[Dart-dev] [3656] DART/trunk/models/cam/model_mod.f90: replaced a hardwired -2 with the parameter VERTISUNDEF

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20081114/9561b894/attachment.html
-------------- next part --------------
Modified: DART/trunk/models/cam/model_mod.f90
===================================================================
--- DART/trunk/models/cam/model_mod.f90	2008-11-14 23:08:52 UTC (rev 3655)
+++ DART/trunk/models/cam/model_mod.f90	2008-11-14 23:27:05 UTC (rev 3656)
@@ -1910,7 +1910,7 @@
 do i=1,state_num_0d
    nfld = nfld + 1
    if (indx == 1 ) then
-      which_vert = -2
+      which_vert = VERTISUNDEF
       goto 10
    else
       indx = indx - 1