[Dart-dev] [3840] DART/trunk: Renamed namelist variables to be specific for 'first_' bin.
nancy at ucar.edu
nancy at ucar.edu
Fri May 1 16:55:58 MDT 2009
An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090501/cea99cd3/attachment.html
-------------- next part --------------
Modified: DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90 2009-05-01 16:25:50 UTC (rev 3839)
+++ DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90 2009-05-01 22:55:57 UTC (rev 3840)
@@ -131,7 +131,7 @@
! General purpose variables
!-----------------------------------------------------------------------
-integer :: iepoch, ivar, ifile, num_obs_in_epoch, ngood
+integer :: iepoch, ifile, num_obs_in_epoch, ngood
real(r8) :: obsloc3(3)
integer :: i, io, obsindex, ncunit
@@ -146,7 +146,7 @@
real(digits12) :: mytime
integer :: seconds, days
-character(len = 129) :: ncName, windName, msgstring, calendarstring
+character(len = 129) :: ncName, msgstring, calendarstring
!=======================================================================
! Get the party started
@@ -557,10 +557,6 @@
character(len=129), allocatable, dimension(:) :: textblock
-character(len=nf90_max_name) :: dimname
-integer :: dimlen
-integer, dimension(nf90_max_var_dims) :: dimIDs
-
real(digits12) :: epoch_edges(2)
integer :: seconds, days
type(time_type) :: mytime
@@ -884,7 +880,7 @@
integer, dimension(:), intent(in) :: obs_types
integer, dimension(:), intent(in) :: which_vert
-integer :: DimID, VarID, dimlen, obsindex, iobs
+integer :: DimID, dimlen, obsindex, iobs
integer, dimension(1) :: istart, icount, intval
integer :: locldimlen, obsldimlen, qcldimlen
Modified: DART/trunk/observations/utilities/threed_sphere/input.nml
===================================================================
--- DART/trunk/observations/utilities/threed_sphere/input.nml 2009-05-01 16:25:50 UTC (rev 3839)
+++ DART/trunk/observations/utilities/threed_sphere/input.nml 2009-05-01 22:55:57 UTC (rev 3840)
@@ -34,10 +34,10 @@
# bin_interval_seconds = 21600,
&schedule_nml
- calendar = 'Gregorian',
- bin_start = 2006, 8, 1, 3, 0, 0 ,
- bin_end = 2006, 8, 1, 9, 0, 0 ,
- last_bin_end = 2006, 8, 5, 0, 0, 0 ,
+ calendar = 'Gregorian',
+ first_bin_start = 2006, 8, 1, 0, 0, 0 ,
+ first_bin_end = 2006, 8, 1, 6, 0, 0 ,
+ last_bin_end = 2006, 8, 5, 0, 0, 0 ,
bin_interval_days = 0,
bin_interval_seconds = 21600,
max_num_bins = 1000,
@@ -45,7 +45,7 @@
/
&obs_seq_to_netcdf_nml
- obs_sequence_name = 'obs_seq.final'
+ obs_sequence_name = '/Users/thoar/DART/models/bgrid_solo/work/01_01/obs_seq.final'
lonlim1 = 0.0,
lonlim2 = 360.0,
latlim1 = -80.0,
Modified: DART/trunk/time_manager/schedule_mod.f90
===================================================================
--- DART/trunk/time_manager/schedule_mod.f90 2009-05-01 16:25:50 UTC (rev 3839)
+++ DART/trunk/time_manager/schedule_mod.f90 2009-05-01 22:55:57 UTC (rev 3840)
@@ -61,16 +61,16 @@
! Namelist with default values
!-----------------------------------------------------------------------
-integer, dimension(6) :: bin_start = (/ 2008, 9, 7, 0, 0, 0 /)
-integer, dimension(6) :: bin_end = (/ 2008, 9, 7, 2, 0, 0 /)
-integer, dimension(6) :: last_bin_end = (/ 2008, 9,11, 0, 0, 0 /)
+integer, dimension(6) :: first_bin_start = (/ 2008, 9, 7, 0, 0, 0 /)
+integer, dimension(6) :: first_bin_end = (/ 2008, 9, 7, 2, 0, 0 /)
+integer, dimension(6) :: last_bin_end = (/ 2008, 9,11, 0, 0, 0 /)
integer :: bin_interval_days = 0
integer :: bin_interval_seconds = 21600
integer :: max_num_bins = 1000
character(len=32) :: calendar = 'Gregorian'
logical :: print_table = .false.
-namelist /schedule_nml/ bin_start, bin_end, last_bin_end, &
+namelist /schedule_nml/ first_bin_start, first_bin_end, last_bin_end, &
bin_interval_days, bin_interval_seconds, &
max_num_bins, calendar, print_table
@@ -136,12 +136,12 @@
if ( .not. module_initialized ) call schedule_init ! reads the namelist
-beg_time = set_date(bin_start(1), bin_start(2), &
- bin_start(3), bin_start(4), &
- bin_start(5), bin_start(6) )
-end_time = set_date(bin_end(1), bin_end(2), &
- bin_end(3), bin_end(4), &
- bin_end(5), bin_end(6) )
+beg_time = set_date(first_bin_start(1), first_bin_start(2), &
+ first_bin_start(3), first_bin_start(4), &
+ first_bin_start(5), first_bin_start(6) )
+end_time = set_date(first_bin_end(1), first_bin_end(2), &
+ first_bin_end(3), first_bin_end(4), &
+ first_bin_end(5), first_bin_end(6) )
TimeMax = set_date(last_bin_end(1), last_bin_end(2), &
last_bin_end(3), last_bin_end(4), &
last_bin_end(5), last_bin_end(6) )
@@ -151,12 +151,12 @@
! do some error-checking first
if (end_time < beg_time) then
- write(msgstring,*)'schedule_nml:bin_end must be at or after bin_start'
+ write(msgstring,*)'schedule_nml:first_bin_end must be at or after first_bin_start'
call error_handler(E_ERR,'set_regular_schedule',msgstring,source,revision,revdate)
endif
if (TimeMax < end_time) then
- write(msgstring,*)'schedule_nml:last_bin_end must be at or after bin_end'
+ write(msgstring,*)'schedule_nml:last_bin_end must be at or after first_bin_end'
call error_handler(E_ERR,'set_regular_schedule',msgstring,source,revision,revdate)
endif
Modified: DART/trunk/time_manager/schedule_mod.nml
===================================================================
--- DART/trunk/time_manager/schedule_mod.nml 2009-05-01 16:25:50 UTC (rev 3839)
+++ DART/trunk/time_manager/schedule_mod.nml 2009-05-01 22:55:57 UTC (rev 3840)
@@ -1,8 +1,8 @@
&schedule_nml
calendar = 'Gregorian',
- bin_start = 2008, 9, 7, 0, 0, 0 ,
- bin_end = 2008, 9, 7, 2, 0, 0 ,
- last_bin_end = 2008, 9,11, 0, 0, 0 ,
+ first_bin_start = 2008, 9, 7, 0, 0, 0 ,
+ first_bin_end = 2008, 9, 7, 2, 0, 0 ,
+ last_bin_end = 2008, 9,11, 0, 0, 0 ,
bin_interval_days = 0,
bin_interval_seconds = 21600,
max_num_bins = 1000,
More information about the Dart-dev
mailing list