[Dart-dev] [4955] DART/trunk: Enable the GPS namelist. Add the
nancy at ucar.edu
nancy at ucar.edu
Tue Jun 7 16:11:08 MDT 2011
Revision: 4955
Author: nancy
Date: 2011-06-07 16:11:08 -0600 (Tue, 07 Jun 2011)
Log Message:
-----------
Enable the GPS namelist. Add the gps namelist to any input.nml file which
included the obs_def_gps_mod in the &preprocess_nml namelist. Add a
GPS .nml file with the default values. Change the documentation in the
.html file to no longer say the GPS namelist is disabled by default.
Modified Paths:
--------------
DART/trunk/models/am2/work/input.nml
DART/trunk/models/cam/work/input.nml
DART/trunk/models/wrf/experiments/Radar/input.nml
DART/trunk/models/wrf/regression/CONUS-V2/input.nml
DART/trunk/models/wrf/regression/Radar/input.nml
DART/trunk/models/wrf/work/input.nml
DART/trunk/obs_def/obs_def_gps_mod.f90
DART/trunk/obs_def/obs_def_gps_mod.html
DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml
DART/trunk/observations/utilities/threed_sphere/input.nml
DART/trunk/observations/var/work/input.nml
Added Paths:
-----------
DART/trunk/obs_def/obs_def_gps_mod.nml
-------------- next part --------------
Modified: DART/trunk/models/am2/work/input.nml
===================================================================
--- DART/trunk/models/am2/work/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/models/am2/work/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -177,6 +177,10 @@
&mpi_utilities_nml
/
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
&obs_sequence_tool_nml
filename_seq = 'obs_seq.test',
filename_out = 'obs_seq.processed',
Modified: DART/trunk/models/cam/work/input.nml
===================================================================
--- DART/trunk/models/cam/work/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/models/cam/work/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -191,6 +191,10 @@
&mpi_utilities_nml
/
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
&restart_file_tool_nml
input_file_name = "filter_restart",
output_file_name = "filter_updated_restart",
Modified: DART/trunk/models/wrf/experiments/Radar/input.nml
===================================================================
--- DART/trunk/models/wrf/experiments/Radar/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/models/wrf/experiments/Radar/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -179,6 +179,10 @@
# microphysics_type = 3 ,
# allow_dbztowt_conv = .false. /
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
# The times in the namelist for the obs_diag program are vectors
# that follow the following sequence:
# year month day hour minute second
Modified: DART/trunk/models/wrf/regression/CONUS-V2/input.nml
===================================================================
--- DART/trunk/models/wrf/regression/CONUS-V2/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/models/wrf/regression/CONUS-V2/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -127,6 +127,10 @@
# Acceptable latitudes range from [-90, 90]
# Acceptable longitudes range from [ 0, 360]
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
&obs_diag_nml
obs_sequence_name = 'obs_seq.final',
obs_sequence_list = '',
Modified: DART/trunk/models/wrf/regression/Radar/input.nml
===================================================================
--- DART/trunk/models/wrf/regression/Radar/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/models/wrf/regression/Radar/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -173,6 +173,10 @@
# Acceptable latitudes range from [-90, 90]
# Acceptable longitudes range from [ 0, Inf]
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
&obs_diag_nml
obs_sequence_name = 'obs_seq.final',
obs_sequence_list = '',
Modified: DART/trunk/models/wrf/work/input.nml
===================================================================
--- DART/trunk/models/wrf/work/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/models/wrf/work/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -245,6 +245,10 @@
perturbation_amplitude = 0.2,
/
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
# The times in the namelist for the obs_diag program are vectors
# that follow the following sequence:
# year month day hour minute second
Modified: DART/trunk/obs_def/obs_def_gps_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_gps_mod.f90 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/obs_def/obs_def_gps_mod.f90 2011-06-07 22:11:08 UTC (rev 4955)
@@ -100,6 +100,7 @@
! the local has no additional metadata; the nonlocal needs one of these
! allocated and filled in.
integer :: max_gpsro_obs = 100000
+
type gps_nonlocal_type
private
character(len=6) :: gpsro_ref_form
@@ -111,10 +112,7 @@
type(gps_nonlocal_type), allocatable :: gps_data(:)
-!! NAMELIST: comment this in to allow user to increase the total number of
-!! gps obs allowed via namelist instead of recompiling. also comment code
-!! in one other place below, also marked NAMELIST.
-!namelist /obs_def_gps_nml/ max_gpsro_obs
+namelist /obs_def_gps_nml/ max_gpsro_obs
character(len=129) :: msgstring
integer :: ii
@@ -138,19 +136,16 @@
! global count of all gps observations from any input file
keycount = 0
-!! NAMELIST: comment this code in to enable namelist setting of max
-!! start NAMELIST
-!! Read the namelist entry
-!! find max number of gps obs which can be stored, and initialize type
-!call find_namelist_in_file("input.nml", "obs_def_gps_nml", iunit)
-!read(iunit, nml = obs_def_gps_nml, iostat = rc)
-!call check_namelist_read(iunit, rc, "obs_def_gps_nml")
+! Read the namelist entry
+call find_namelist_in_file("input.nml", "obs_def_gps_nml", iunit)
+read(iunit, nml = obs_def_gps_nml, iostat = rc)
+call check_namelist_read(iunit, rc, "obs_def_gps_nml")
-!! Record the namelist values used for the run ...
-!if (do_nml_file()) write(nmlfileunit, nml=obs_def_gps_nml)
-!if (do_nml_term()) write( * , nml=obs_def_gps_nml)
-!! end NAMELIST
+! Record the namelist values used for the run ...
+if (do_nml_file()) write(nmlfileunit, nml=obs_def_gps_nml)
+if (do_nml_term()) write( * , nml=obs_def_gps_nml)
+! find max number of gps obs which can be stored, and initialize type
allocate(gps_data(max_gpsro_obs), stat = rc)
if (rc /= 0) then
write(msgstring, *) 'initial allocation failed for gps observation data,', &
Modified: DART/trunk/obs_def/obs_def_gps_mod.html
===================================================================
--- DART/trunk/obs_def/obs_def_gps_mod.html 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/obs_def/obs_def_gps_mod.html 2011-06-07 22:11:08 UTC (rev 4955)
@@ -56,11 +56,12 @@
<A NAME="Namelist"></A>
<HR>
<H2>NAMELIST</H2>
-<P>By default this namelist is NOT enabled. The maximum number of
-GPS observations supported is compiled into the code. To enable
-this namelist so the maximum can be set at runtime, edit the
-source code and remove the comments around the reading in of
-the namelist, and recompile.
+<P>This namelist is now enabled by default. The maximum number of
+GPS observations is settable at runtime by changing the value in
+the namelist. If you get an error about a missing namelist, add
+<em class=code>&obs_def_gps_nml</em> using the example below
+to your <em class=file>input.nml</em> namelist file and rerun.
+No recompiling is needed.
</P><P>
We adhere to the F90 standard of starting a namelist with an ampersand
'&' and terminating with a slash '/' for all our namelist input.
@@ -76,7 +77,8 @@
<!-- Description -->
<P>
-This namelist is read in a file called <em class=file>input.nml</em>
+This namelist is read in a file called <em class=file>input.nml</em> .
+Here is an example of the default namelist:
</P>
<pre>
&obs_def_gps_nml
Added: DART/trunk/obs_def/obs_def_gps_mod.nml
===================================================================
--- DART/trunk/obs_def/obs_def_gps_mod.nml (rev 0)
+++ DART/trunk/obs_def/obs_def_gps_mod.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -0,0 +1,4 @@
+
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+/
Property changes on: DART/trunk/obs_def/obs_def_gps_mod.nml
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Modified: DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml
===================================================================
--- DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -46,6 +46,10 @@
&obs_kind_nml
/
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
&preprocess_nml
input_obs_kind_mod_file = '../../../../obs_kind/DEFAULT_obs_kind_mod.F90',
output_obs_kind_mod_file = '../../../../obs_kind/obs_kind_mod.f90',
Modified: DART/trunk/observations/utilities/threed_sphere/input.nml
===================================================================
--- DART/trunk/observations/utilities/threed_sphere/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/observations/utilities/threed_sphere/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -28,6 +28,10 @@
&location_nml
/
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
&obs_sequence_nml
write_binary_obs_sequence = .false. /
Modified: DART/trunk/observations/var/work/input.nml
===================================================================
--- DART/trunk/observations/var/work/input.nml 2011-06-07 22:03:16 UTC (rev 4954)
+++ DART/trunk/observations/var/work/input.nml 2011-06-07 22:11:08 UTC (rev 4955)
@@ -25,6 +25,11 @@
nmlfilename = 'convert.nml'
/
+&obs_def_gps_nml
+ max_gpsro_obs = 100000,
+ /
+
+
&obs_sequence_nml
write_binary_obs_sequence = .false. /
More information about the Dart-dev
mailing list