[Dart-dev] [4936] DART/trunk/models/cam/model_mod.f90: No code changes - just remove some remaining references

[nancy at ucar.edu]

Revision: 4936
Author:   nancy
Date:     2011-06-02 09:09:27 -0600 (Thu, 02 Jun 2011)
Log Message:
-----------
No code changes - just remove some remaining references
to the trans_* programs in the comments.

Modified Paths:
--------------
    DART/trunk/models/cam/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/cam/model_mod.f90
===================================================================
--- DART/trunk/models/cam/model_mod.f90	2011-06-01 23:21:43 UTC (rev 4935)
+++ DART/trunk/models/cam/model_mod.f90	2011-06-02 15:09:27 UTC (rev 4936)
@@ -81,7 +81,7 @@
 ! > new filter_ics for the cases I've distributed
 ! > init2ud script for them to create their own.
 !      list of files that script/model_mod needs; 
-!          trans_pv_sv_time0  (the executable)
+!          cam_to_dart+restart_file_tool (was trans_pv_sv_time0)  (the executable)
 !          input.nml:perfect_model_nml (with the date+time to put in the filter_ics files)
 !          cam_phis.nc  (for static_init_model to get PHIS)
 !          caminput_#.nc  (to convert into filter_ic.####)
@@ -451,7 +451,7 @@
 ! the  subroutine which sorts state_names?
 ! Yes, use two namelists model_nml_1 and model_nml_2 at future date
 
-! list of fields which trans_pv_sv_pert0 needs to perturb because they're
+! list of fields which this code needs to perturb because they're
 ! constant valued model parameters and show no spread when start_from_restart = .true.
 character (len=8),dimension(MAX_STATE_NAMES) :: pert_names     = (/('        ',iii=1,MAX_STATE_NAMES)/)
 real(r8)         ,dimension(MAX_STATE_NAMES) :: pert_sd        = (/(-888888.0d0,iii=1,MAX_STATE_NAMES)/)
@@ -629,7 +629,7 @@
 call check_namelist_read(iunit, io, "model_nml")
 
 ! set the printed output logical variable to reduce printed output;
-! depends on whether this is being called by trans_... (read ens member # from file 'element' )
+! depends on whether this is being called by dart_to_cam (read ens member # from file 'element' )
 ! or by filter (multiple processes, printout controlled by do_output())
 
 if (file_exist('element')) then
@@ -1596,9 +1596,6 @@
 allocate (temp_3d(f_dim_max(1,3),f_dim_max(2,3),f_dim_max(3,3)) &
          ,temp_2d(f_dim_max(1,2),f_dim_max(2,2)) )
 
-! Imported from trans_pv_sv.  Nancy; is this a better place for it?
-! call init_model_instance(var)
-
 ! read CAM 'initial' file fields desired
 
 ifld = 0
@@ -4029,7 +4026,7 @@
 
 ! FIX for 1D 0D  fields?
 
-! trans_pv_sv_pert0.f90 needs to perturb model parameters for the filter_ics.
+! perturb model parameters for the filter_ics.
 ! Use the (single) state value as the "ens_mean" here.
 
 interf_provided = .true.