[Dart-dev] [4475] DART/trunk/models/NCOMMAS/model_mod.f90: Fixed index check so that get_state_meta_data() will not ignore

[nancy at ucar.edu]

Revision: 4475
Author:   thoar
Date:     2010-08-12 17:10:45 -0600 (Thu, 12 Aug 2010)
Log Message:
-----------
Fixed index check so that get_state_meta_data() will not ignore
(and sometimes error out on) the first index of a particular variable.

Modified Paths:
--------------
    DART/trunk/models/NCOMMAS/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/NCOMMAS/model_mod.f90
===================================================================
--- DART/trunk/models/NCOMMAS/model_mod.f90	2010-08-12 02:11:57 UTC (rev 4474)
+++ DART/trunk/models/NCOMMAS/model_mod.f90	2010-08-12 23:10:45 UTC (rev 4475)
@@ -326,7 +326,7 @@
   nf     = -1
   
   FindIndex : DO n = 1,nfields
-    IF( (progvar(n)%index1 < index_in) .and. (index_in <= progvar(n)%indexN) ) THEN
+    IF( (progvar(n)%index1 <= index_in) .and. (index_in <= progvar(n)%indexN) ) THEN
       nf = n
       myindx = index_in - progvar(n)%index1
       EXIT FindIndex