[Dart-dev] DART/branches Revision: 12265

[dart at ucar.edu]

nancy at ucar.edu
2018-01-03 14:30:00 -0700 (Wed, 03 Jan 2018)
41
make correct use of logicals and reals.




Modified: DART/branches/recam/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-03 20:29:46 UTC (rev 12264)
+++ DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-03 21:30:00 UTC (rev 12265)
@@ -105,8 +105,8 @@
 integer            :: assimilation_period_days        = 0
 integer            :: assimilation_period_seconds     = 21600
 logical            :: use_log_vertical_scale          = .false.
-integer            :: no_assim_above_pressure         = -1.0      ! in pascals or mb/hPa?
-logical            :: start_damping_ramp_at_pressure  = .false.  
+real(r8)           :: no_assim_above_pressure         = -1.0      ! in pascals or mb/hPa?
+real(r8)           :: start_damping_ramp_at_pressure  = -1.0
 integer            :: debug_level                     = 0
 logical            :: suppress_grid_info_in_output    = .false.
 logical            :: custom_routine_to_generate_ensemble = .false.
@@ -268,12 +268,12 @@
 if (using_chemistry) call init_chem_tables()
 
 !>@todo we need to set the model top related stuff here
-if (start_damping_ramp_at_pressure) then
+if (start_damping_ramp_at_pressure > 0.0_r8) then
    print*, '"start_damping_ramp_at_pressure" not implemented yet'
 endif
 
 !>@todo we need to set the model top related stuff here
-if (no_assim_above_pressure) then
+if (no_assim_above_pressure > 0.0_r8) then
    print*, '"no_assim_above_pressure" not implemented yet'
 endif