[Dart-dev] DART/branches Revision: 12440
dart at ucar.edu
dart at ucar.edu
Mon Mar 12 09:24:12 MDT 2018
thoar at ucar.edu
2018-03-12 09:24:12 -0600 (Mon, 12 Mar 2018)
56
Preserving state before Cheyenne goes down for a week.
Modified: DART/branches/cesm_clm/assimilation_code/programs/forcing_check/shell_scripts/CleanForcing.csh
===================================================================
--- DART/branches/cesm_clm/assimilation_code/programs/forcing_check/shell_scripts/CleanForcing.csh 2018-03-09 23:49:04 UTC (rev 12439)
+++ DART/branches/cesm_clm/assimilation_code/programs/forcing_check/shell_scripts/CleanForcing.csh 2018-03-12 15:24:12 UTC (rev 12440)
@@ -8,7 +8,7 @@
#
# qsub -I -l select=1:ncpus=1:mpiprocs=1 -l walltime=04:00:00 -q economy -A P86850054
#
-# qcmd -q share -l select=1 -l walltime=06:00:00 -- ./CleanForcing.csh
+# qcmd -q share -l select=1,walltime=06:00:00 -- ./CleanForcing.csh |& tee my_log.txt
#===========================================================================
# Process the DS199.1 files to remove negative values
@@ -64,7 +64,7 @@
# set DSSBASE = /glade/p/rda/data/ds199.1/CAM_DATM.cpl
set OURBASE = /glade/p/image/thoar/CAM_DATM/4xdaily/CAM_DATM.cpl
-@ YEAR = 1997
+@ YEAR = 2006
while ($YEAR <= 2010)
@ MEMBER = 1
Deleted: DART/branches/cesm_clm/models/clm/clm_to_dart.f90
===================================================================
--- DART/branches/cesm_clm/models/clm/clm_to_dart.f90 2018-03-09 23:49:04 UTC (rev 12439)
+++ DART/branches/cesm_clm/models/clm/clm_to_dart.f90 2018-03-12 15:24:12 UTC (rev 12440)
@@ -1,93 +0,0 @@
-! DART software - Copyright 2004 - 2013 UCAR. This open source software is
-! provided by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-!
-! $Id$
-
-program clm_to_dart
-
-!----------------------------------------------------------------------
-! purpose: interface between clm and DART
-!
-! method: Read clm "restart" files of model state
-! Reform fields into a DART state vector (control vector).
-! Write out state vector in "proprietary" format for DART.
-! The output is a "DART restart file" format.
-!
-! USAGE: The clm filename is read from the clm_in namelist
-! <edit clm_to_dart_output_file in input.nml:clm_to_dart_nml>
-! clm_to_dart
-!
-! author: Tim Hoar 12 July 2011
-!----------------------------------------------------------------------
-
-use types_mod, only : r8
-use utilities_mod, only : initialize_utilities, finalize_utilities, &
- find_namelist_in_file, check_namelist_read
-use model_mod, only : get_model_size, mark_missing_r8_values, &
- read_model_time, static_init_model
-use time_manager_mod, only : time_type, print_time, print_date
-
-implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source = &
- "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate = "$Date$"
-
-!-----------------------------------------------------------------------
-! namelist parameters with default values.
-!-----------------------------------------------------------------------
-
-character(len=512) :: clm_to_dart_output_file = 'clm_restart.nc'
-
-namelist /clm_to_dart_nml/ clm_to_dart_output_file
-
-!----------------------------------------------------------------------
-! global storage
-!----------------------------------------------------------------------
-
-integer :: io, iunit, x_size
-type(time_type) :: model_time
-real(r8), allocatable :: statevector(:)
-
-!======================================================================
-
-call initialize_utilities(progname='clm_to_dart')
-
-call static_init_model()
-
-!----------------------------------------------------------------------
-! Read the namelist to get the output filename.
-!----------------------------------------------------------------------
-
-call find_namelist_in_file("input.nml", "clm_to_dart_nml", iunit)
-read(iunit, nml = clm_to_dart_nml, iostat = io)
-call check_namelist_read(iunit, io, "clm_to_dart_nml") ! closes, too.
-
-!----------------------------------------------------------------------
-! get to work
-!----------------------------------------------------------------------
-
-!----------------------------------------------------------------------
More information about the Dart-dev
mailing list