[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