[Dart-dev] DART/branches Revision: 12344

[dart at ucar.edu]

nancy at ucar.edu
2018-01-17 14:17:52 -0700 (Wed, 17 Jan 2018)
84
restore the call to print the string about ignoring obs
above the given threshold.




Modified: DART/branches/recam/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-17 21:03:12 UTC (rev 12343)
+++ DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-17 21:17:52 UTC (rev 12344)
@@ -249,13 +249,6 @@
 
 if ( module_initialized ) return
 
-! The Plan:
-!
-! * read in the grid sizes from grid file
-! * allocate space, and read in actual grid values
-! * figure out model timestep
-! * Compute the model size.
-
 ! Record version info
 call register_module(source, revision, revdate)
 
@@ -274,13 +267,13 @@
 
 call read_grid_info(cam_template_filename, grid_data)
 
+! initialize global values that are used frequently
+call init_globals()
+
 ! read the namelist &model_nml :: state_variables
 ! to set up what will be read into the cam state vector
 call set_cam_variable_info(state_variables, nfields)
 
-! initialize global values that are used frequently
-call init_globals()
-
 ! convert from string in namelist to integer (e.g. VERTISxxx)
 ! and tell the dart code which vertical type we want to localize in.
 call set_vert_localization(vertical_localization_coord)
@@ -299,7 +292,8 @@
 ! set top limit where obs are discarded
 if (no_assim_above_pressure > 0.0_r8) then
    write(string1, *) 'discarding observations above a pressure level of ', &
-                      no_assim_above_pressure, ' Pascals'   !>@todo FIXME  units???
+                      no_assim_above_pressure, ' Pascals' 
+   call error_handler(E_MSG, 'static_init_model', string1, source, revision, revdate)
 
    ! compute both height and pressure columns once, based on a surface
    ! pressure of 1000 mb. use for quick conversions when absolute accuracy