[Dart-dev] [4063] DART/trunk/models/POP: Reduced the verbosity of the run-time output.
nancy at ucar.edu
nancy at ucar.edu
Thu Sep 24 11:56:48 MDT 2009
An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090924/01769484/attachment.html
-------------- next part --------------
Modified: DART/trunk/models/POP/dart_to_pop.f90
===================================================================
--- DART/trunk/models/POP/dart_to_pop.f90 2009-09-22 21:52:23 UTC (rev 4062)
+++ DART/trunk/models/POP/dart_to_pop.f90 2009-09-24 17:56:47 UTC (rev 4063)
@@ -24,7 +24,7 @@
use types_mod, only : r4, r8, SECPERDAY
use utilities_mod, only : E_ERR, E_WARN, E_MSG, error_handler, open_file, &
- initialize_utilities, finalize_utilities, &
+ initialize_utilities, timestamp, &
find_namelist_in_file, check_namelist_read, &
logfileunit
use assim_model_mod, only : open_restart_read, aread_state_restart, close_restart
@@ -50,7 +50,8 @@
character (len = 128) :: dart_to_pop_input_file = 'dart.ic'
logical :: advance_time_present = .TRUE.
-namelist /dart_to_pop_nml/ dart_to_pop_input_file, advance_time_present
+namelist /dart_to_pop_nml/ dart_to_pop_input_file, &
+ advance_time_present
!----------------------------------------------------------------------
@@ -59,13 +60,16 @@
type(time_type) :: model_time, adv_to_time
real(r8), allocatable :: statevector(:)
character (len = 128) :: pop_restart_filename = 'no_pop_restart_file'
+logical :: verbose = .FALSE.
!----------------------------------------------------------------------
-call initialize_utilities('dart_to_pop')
+call initialize_utilities(progname='dart_to_pop', output_flag=verbose)
-! Call model_mod:static_init_model(), which reads the namelists
-! to set calendar type, grid sizes, etc.
+!----------------------------------------------------------------------
+! Call model_mod:static_init_model() which reads the POP namelists
+! to set grid sizes, etc.
+!----------------------------------------------------------------------
call static_init_model()
@@ -80,6 +84,11 @@
call get_pop_restart_filename( pop_restart_filename )
+write(*,*)
+write(*,'(''dart_to_pop:converting DART file '',A, &
+ &'' to POP restart file '',A)') &
+ trim(dart_to_pop_input_file), trim(pop_restart_filename)
+
!----------------------------------------------------------------------
! Reads the valid time, the state, and the target time.
!----------------------------------------------------------------------
@@ -109,10 +118,10 @@
! Log what we think we're doing, and exit.
!----------------------------------------------------------------------
-call print_date( model_time,'dart_to_pop:dart model date')
-call print_time( model_time,'dart_to_pop:dart model time')
-call print_date( model_time,'dart_to_pop:dart model date',logfileunit)
-call print_time( model_time,'dart_to_pop:dart model time',logfileunit)
+call print_date( model_time,'dart_to_pop:POP model date')
+call print_time( model_time,'dart_to_pop:DART model time')
+call print_date( model_time,'dart_to_pop:POP model date',logfileunit)
+call print_time( model_time,'dart_to_pop:DART model time',logfileunit)
if ( advance_time_present ) then
call print_time(adv_to_time,'dart_to_pop:advance_to time')
@@ -121,6 +130,7 @@
call print_date(adv_to_time,'dart_to_pop:advance_to date',logfileunit)
endif
-call finalize_utilities()
+! When called with 'end', timestamp will call finalize_utilities()
+call timestamp(string1=source, pos='end')
end program dart_to_pop
Added: DART/trunk/models/POP/dart_to_pop.nml
===================================================================
--- DART/trunk/models/POP/dart_to_pop.nml (rev 0)
+++ DART/trunk/models/POP/dart_to_pop.nml 2009-09-24 17:56:47 UTC (rev 4063)
@@ -0,0 +1,4 @@
+&dart_to_pop_nml
+ dart_to_pop_input_file = 'dart.ic',
+ advance_time_present = .FALSE. /
+
Property changes on: DART/trunk/models/POP/dart_to_pop.nml
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Modified: DART/trunk/models/POP/model_mod.nml
===================================================================
--- DART/trunk/models/POP/model_mod.nml 2009-09-22 21:52:23 UTC (rev 4062)
+++ DART/trunk/models/POP/model_mod.nml 2009-09-24 17:56:47 UTC (rev 4063)
@@ -2,5 +2,6 @@
assimilation_period_days = 7,
assimilation_period_seconds = 0,
model_perturbation_amplitude = 0.2,
- output_state_vector = .true. /
+ output_state_vector = .true.,
+ debug = 0 /
Modified: DART/trunk/models/POP/pop_to_dart.f90
===================================================================
--- DART/trunk/models/POP/pop_to_dart.f90 2009-09-22 21:52:23 UTC (rev 4062)
+++ DART/trunk/models/POP/pop_to_dart.f90 2009-09-24 17:56:47 UTC (rev 4063)
@@ -29,7 +29,7 @@
use types_mod, only : r4, r8
use utilities_mod, only : E_ERR, E_WARN, E_MSG, error_handler, logfileunit, &
- initialize_utilities, finalize_utilities, &
+ initialize_utilities, timestamp, &
find_namelist_in_file, check_namelist_read
use model_mod, only : restart_file_to_sv, static_init_model, &
get_model_size, get_pop_restart_filename
@@ -61,23 +61,38 @@
type(time_type) :: model_time
real(r8), allocatable :: statevector(:)
character (len = 128) :: pop_restart_filename = 'no_pop_restart_filename'
+logical :: verbose = .FALSE.
!----------------------------------------------------------------------
-call initialize_utilities('pop_to_dart')
+call initialize_utilities(progname='pop_to_dart', output_flag=verbose)
+!----------------------------------------------------------------------
! Call model_mod:static_init_model(), which reads the namelists
! to set calendar type, starting date, deltaT, etc.
+!----------------------------------------------------------------------
call static_init_model()
+!----------------------------------------------------------------------
! Read the namelist to get the input and output filenames.
+!----------------------------------------------------------------------
+
call find_namelist_in_file("input.nml", "pop_to_dart_nml", iunit)
read(iunit, nml = pop_to_dart_nml, iostat = io)
call check_namelist_read(iunit, io, "pop_to_dart_nml") ! closes, too.
call get_pop_restart_filename( pop_restart_filename )
+write(*,*)
+write(*,'(''pop_to_dart:converting POP restart file '',A, &
+ &'' to DART file '',A)') &
+ trim(pop_restart_filename), trim(pop_to_dart_output_file)
+
+!----------------------------------------------------------------------
+! Now that we know the names, get to work.
+!----------------------------------------------------------------------
+
x_size = get_model_size()
allocate(statevector(x_size))
call restart_file_to_sv(pop_restart_filename, statevector, model_time)
@@ -86,7 +101,14 @@
call awrite_state_restart(model_time, statevector, iunit)
call close_restart(iunit)
-call finalize_utilities()
+!----------------------------------------------------------------------
+! When called with 'end', timestamp will call finalize_utilities()
+!----------------------------------------------------------------------
+
+call print_date(model_time, str='pop_to_dart:POP model date')
+call print_time(model_time, str='pop_to_dart:DART model time')
+call timestamp(string1=source, pos='end')
+
end program pop_to_dart
Added: DART/trunk/models/POP/pop_to_dart.nml
===================================================================
--- DART/trunk/models/POP/pop_to_dart.nml (rev 0)
+++ DART/trunk/models/POP/pop_to_dart.nml 2009-09-24 17:56:47 UTC (rev 4063)
@@ -0,0 +1,3 @@
+&pop_to_dart_nml
+ pop_to_dart_output_file = 'dart.ud' /
+
Property changes on: DART/trunk/models/POP/pop_to_dart.nml
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Modified: DART/trunk/models/POP/shell_scripts/assimilate.csh
===================================================================
--- DART/trunk/models/POP/shell_scripts/assimilate.csh 2009-09-22 21:52:23 UTC (rev 4062)
+++ DART/trunk/models/POP/shell_scripts/assimilate.csh 2009-09-24 17:56:47 UTC (rev 4063)
@@ -13,39 +13,7 @@
#-----------------------------------------------------------------------------
# assimilate.csh
-#
-#
-#
-# just see what we have to work with.
-# Check the ENVIRONMENT section of:
-# /fis01/cgd/oce/yeager/home/ccsm_runs/ccsm4.0_IE/dart.001hy/poe.stdout.921054
#-----------------------------------------------------------------------------
-# CASE=dart.001hy
-# CASEROOT=/fis01/cgd/oce/yeager/home/ccsm_runs/ccsm4.0_IE/dart.001hy
-# CCSMROOT=/blhome/yeager/ccsm4_0_beta21ie
-# GRID=T62_gx1v6
-# CASETOOLS=/fis01/cgd/oce/yeager/home/ccsm_runs/ccsm4.0_IE/dart.001hy/Tools
-# CASEBUILD=/fis01/cgd/oce/yeager/home/ccsm_runs/ccsm4.0_IE/dart.001hy/Buildconf
-# SCRIPTSROOT=/blhome/yeager/ccsm4_0_beta21ie/scripts
-# UTILROOT=/blhome/yeager/ccsm4_0_beta21ie/scripts/ccsm_utils
-# BLDROOT=/blhome/yeager/ccsm4_0_beta21ie/scripts/ccsm_utils/Build
-# CODEROOT=/blhome/yeager/ccsm4_0_beta21ie/models
-# SHAREROOT=/blhome/yeager/ccsm4_0_beta21ie/models/csm_share
-# COMP_OCN=pop2
-# OCN_GRID=gx1v6
-# OCN_NX=320
-# OCN_NY=384
-# STOP_OPTION=ndays
-# STOP_N=5
-# STOP_DATE=-999
-# REST_OPTION=ndays
-# REST_N=5
-# REST_DATE=-999
-# RUN_TYPE=hybrid
-# RUN_STARTDATE=2000-01-01
-# RUN_REFCASE=c.b12.001
-# RUN_REFDATE=0002-01-01
-# NINST_OCN=7
set ensemble_size = ${NINST_OCN}
@@ -94,9 +62,9 @@
foreach FILE ( input.nml filter pop_to_dart dart_to_pop )
if ( -e ../${FILE} ) then
- cp -pv ../${FILE} .
+ /usr/local/bin/cp -pv ../${FILE} .
else if ( -e ${DARTDIR}/${FILE} ) then
- cp -pv ${DARTDIR}/${FILE} .
+ /usr/local/bin/cp -pv ${DARTDIR}/${FILE} .
else
echo "DART required file $FILE not found ... ERROR"
stop
@@ -104,7 +72,6 @@
end
-# what about advance_time
# move inflation info (if they exist) ...
#-------------------------------------------------------------------------
@@ -117,9 +84,9 @@
# that came from pointer files ../rpointer.ocn.[1-N].restart
#
# DART namelist settings appropriate/required:
-# &filter_nml: restart_in_file_name = 'filter_ics'
-# &ensemble_manager_nml: single_restart_file_in = '.false.'
-# &pop_to_dart_nml: pop_to_dart_input_file = 'dart.ud',
+# &filter_nml: restart_in_file_name = 'filter_ics'
+# &ensemble_manager_nml: single_restart_file_in = '.false.'
+# &pop_to_dart_nml: pop_to_dart_output_file = 'dart.ud',
#-------------------------------------------------------------------------
set member = 1
@@ -130,7 +97,7 @@
ln -sf ../$OCN_RESTART_FILENAME pop.r.nc
ln -sf ../pop2_in.$member pop_in
- ./pop_to_dart
+ ./pop_to_dart || exit 1
mv dart.ud $DART_IC_FILE
@ member++
@@ -165,11 +132,12 @@
ln -sfv ${OBS_FILE} obs_seq.out
-mpirun.lsf ./filter
+mpirun.lsf ./filter || exit 2
mv Prior_Diag.nc ../Prior_Diag.${OCN_DATE_EXT}.nc
mv Posterior_Diag.nc ../Posterior_Diag.${OCN_DATE_EXT}.nc
mv obs_seq.final ../obs_seq.${OCN_DATE_EXT}.final
+mv dart_log.out ../dart_log.${OCN_DATE_EXT}.out
# move inflation info (if they exist) ...
@@ -193,7 +161,7 @@
ln -sf $DART_RESTART_FILE dart.ic
- ./dart_to_pop
+ ./dart_to_pop || exit 3
@ member++
end
More information about the Dart-dev
mailing list