[Dart-dev] [6235] DART/branches/development/models: make the test for the end of the bounds table list

[nancy at ucar.edu]

Revision: 6235
Author:   nancy
Date:     2013-06-10 14:43:19 -0600 (Mon, 10 Jun 2013)
Log Message:
-----------
make the test for the end of the bounds table list
look for either 'NULL' or '' (empty string).

Modified Paths:
--------------
    DART/branches/development/models/mpas_atm/model_mod.f90
    DART/branches/development/models/mpas_ocn/model_mod.f90

-------------- next part --------------
Modified: DART/branches/development/models/mpas_atm/model_mod.f90
===================================================================
--- DART/branches/development/models/mpas_atm/model_mod.f90	2013-06-10 20:38:58 UTC (rev 6234)
+++ DART/branches/development/models/mpas_atm/model_mod.f90	2013-06-10 20:43:19 UTC (rev 6235)
@@ -3994,7 +3994,7 @@
 integer                       :: n
 
 n = 1
-do while ( trim(bounds_table(1,n)) /= 'NULL' )
+do while ( trim(bounds_table(1,n)) /= 'NULL' .and. trim(bounds_table(1,n)) /= '' )
 
    bounds_varname = trim(bounds_table(1,n))
 

Modified: DART/branches/development/models/mpas_ocn/model_mod.f90
===================================================================
--- DART/branches/development/models/mpas_ocn/model_mod.f90	2013-06-10 20:38:58 UTC (rev 6234)
+++ DART/branches/development/models/mpas_ocn/model_mod.f90	2013-06-10 20:43:19 UTC (rev 6235)
@@ -3984,7 +3984,7 @@
 integer                       :: n
 
 n = 1
-do while ( trim(bounds_table(1,n)) /= 'NULL' )
+do while ( trim(bounds_table(1,n)) /= 'NULL' .and. trim(bounds_table(1,n)) /= '' )
 
    bounds_varname = trim(bounds_table(1,n))