[Dart-dev] DART/branches Revision: 12670

[dart at ucar.edu]

goldy at ucar.edu
2018-06-14 14:07:15 -0600 (Thu, 14 Jun 2018)
40
Added init_ts_perturb to the init_ts_nml


Modified: DART/branches/cesm_dart_esp/models/POP/dart_pop_mod.f90
===================================================================
--- DART/branches/cesm_dart_esp/models/POP/dart_pop_mod.f90	2018-06-14 17:02:15 UTC (rev 12669)
+++ DART/branches/cesm_dart_esp/models/POP/dart_pop_mod.f90	2018-06-14 20:07:15 UTC (rev 12670)
@@ -106,10 +106,11 @@
 character(len=100) :: init_ts_outfile
 character(len= 64) :: init_ts_option, init_ts_suboption
 character(len= 64) :: init_ts_file_fmt, init_ts_outfile_fmt
+real  (r8)         :: init_ts_perturb
 
 namelist /init_ts_nml/ init_ts_option, init_ts_suboption, &
                        init_ts_file, init_ts_file_fmt, &
-                       init_ts_outfile, init_ts_outfile_fmt
+                       init_ts_outfile, init_ts_outfile_fmt, init_ts_perturb
 
 !------------------------------------------------------------------
 ! The POP domain namelist
@@ -856,7 +857,7 @@
                   'get_var "mdt" from "'//trim(fname)//'"')
 
 ! Replace _FillValue with something
-!>@todo CHECK ... does it xtype of the variable matter when getting a _FillValue attribute. 
+!>@todo CHECK ... does it xtype of the variable matter when getting a _FillValue attribute.
 !> If it does not, these lines could collapse into something cleaner.
 
 if (xtype == NF90_REAL) then
@@ -898,8 +899,8 @@
 
 ! Just something to do a basic check.
 
-dmin = minval(mdt, mdt /= MISSING_R8) 
-dmax = maxval(mdt, mdt /= MISSING_R8) 
+dmin = minval(mdt, mdt /= MISSING_R8)
+dmax = maxval(mdt, mdt /= MISSING_R8)
 write(string1,*)'..  mdt sizes are ',size(mdt,1),size(mdt,2)
 write(string2,*)'_FillValue was ',dmiss,' original units "'//trim(unitsstring)//'"'
 write(string3,*)'min,max (meters) ',dmin, dmax