From c5b94387c1b68b8ec6b6794543314e867f9aa1fc Mon Sep 17 00:00:00 2001
From: William Pringle <wpringle@nd.edu>
Date: Tue, 17 Mar 2020 17:48:54 -0500
Subject: [PATCH] Update Calc_f13.m

adding advection_state
---
 utilities/Calc_f13.m | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/utilities/Calc_f13.m b/utilities/Calc_f13.m
index 5bc01a54..36d658ec 100644
--- a/utilities/Calc_f13.m
+++ b/utilities/Calc_f13.m
@@ -11,6 +11,7 @@
 %              'Mn' ('mannings_n_at_sea_floor')
 %              'Ss' ('surface_submergence_state')
 %              'Re' ('initial_river_elevation')
+%              'Ad' ('advection_state')
 %
 %            3) then either: 
 %              'inpoly' followed by...
@@ -47,6 +48,9 @@
 elseif strcmpi(attribute,'Re')
     attrname = 'initial_river_elevation';
     default_val = 0;
+elseif strcmpi(attribute,'Ad')
+    attrname = 'advection_state';
+    default_val = -999;
 else
     error(['Attribute ' attribute ' not currently supported'])
 end