[Dart-dev] DART/branches Revision: 12034

[dart at ucar.edu]

nancy at ucar.edu
2017-11-03 10:08:23 -0600 (Fri, 03 Nov 2017)
96
fix the syntax for the select block, have model_mod_check
use the new version to try to build.




Modified: DART/branches/recam/models/cam-fv/new_model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/new_model_mod.f90	2017-11-03 14:55:31 UTC (rev 12033)
+++ DART/branches/recam/models/cam-fv/new_model_mod.f90	2017-11-03 16:08:23 UTC (rev 12034)
@@ -245,10 +245,10 @@
 myqty = get_kind_index(domain_id, myvarid)
 
 select case (myqty)
-  case U_WIND_COMPONENT:
+  case (QTY_U_WIND_COMPONENT)
    location = set_location(grid%slon(iloc), grid%lat(jloc), grid%level(vloc), VERTISLEVEL)
 
-  case V_WIND_COMPONENT:
+  case (QTY_V_WIND_COMPONENT)
    location = set_location(grid%lon(iloc), grid%slat(jloc), grid%level(vloc), VERTISLEVEL)
 
   case default

Modified: DART/branches/recam/models/cam-fv/work/path_names_model_mod_check
===================================================================
--- DART/branches/recam/models/cam-fv/work/path_names_model_mod_check	2017-11-03 14:55:31 UTC (rev 12033)
+++ DART/branches/recam/models/cam-fv/work/path_names_model_mod_check	2017-11-03 16:08:23 UTC (rev 12034)
@@ -33,7 +33,7 @@
 assimilation_code/modules/utilities/types_mod.f90
 assimilation_code/modules/utilities/utilities_mod.f90
 assimilation_code/programs/model_mod_check/model_mod_check.f90
-models/cam-fv/model_mod.f90
+models/cam-fv/new_model_mod.f90
 models/model_mod_tools/test_interpolate_threed_sphere.f90
 models/utilities/default_model_mod.f90
 observations/forward_operators/obs_def_mod.f90