[Dart-dev] [7219] DART/trunk/models/clm/model_mod.f90: Replacing magic numbers with the parameters that were

[nancy at ucar.edu]

Revision: 7219
Author:   thoar
Date:     2014-10-21 12:20:08 -0600 (Tue, 21 Oct 2014)
Log Message:
-----------
Replacing magic numbers with the parameters that were
supposed to be used. The parameters were already defined
and in use in other places.

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

-------------- next part --------------
Modified: DART/trunk/models/clm/model_mod.f90
===================================================================
--- DART/trunk/models/clm/model_mod.f90	2014-10-20 22:26:32 UTC (rev 7218)
+++ DART/trunk/models/clm/model_mod.f90	2014-10-21 18:20:08 UTC (rev 7219)
@@ -3698,12 +3698,12 @@
    call to_upper(origin_file)
    call to_upper(state_or_aux)
 
-   table(i,1) = trim(varname)
-   table(i,2) = trim(dartstr)
-   table(i,3) = trim(minvalstring)
-   table(i,4) = trim(maxvalstring)
-   table(i,5) = trim(origin_file)
-   table(i,6) = trim(state_or_aux)
+   table(i,VT_VARNAMEINDX) = trim(varname)
+   table(i,VT_KINDINDX)    = trim(dartstr)
+   table(i,VT_MINVALINDX)  = trim(minvalstring)
+   table(i,VT_MAXVALINDX)  = trim(maxvalstring)
+   table(i,VT_ORIGININDX)  = trim(origin_file)
+   table(i,VT_STATEINDX)   = trim(state_or_aux)
 
    ! If the first element is empty, we have found the end of the list.
    if ( table(i,1) == ' ' ) exit MyLoop