/[MITgcm]/MITgcm/pkg/cost/cost_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by heimbach, Thu Nov 6 22:03:49 2003 UTC revision 1.6 by heimbach, Mon Sep 27 18:00:19 2004 UTC
# Line 36  c     == end of interface == Line 36  c     == end of interface ==
36  c--   Read the namelist input.  c--   Read the namelist input.
37        namelist /cost_nml/        namelist /cost_nml/
38       &                   mult_atl, mult_test, mult_tracer       &                   mult_atl, mult_test, mult_tracer
39         &                 , lastinterval
40    
41        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
42    
# Line 44  c--     Set default values. Line 45  c--     Set default values.
45          mult_test             =      0. _d 0          mult_test             =      0. _d 0
46          mult_tracer           =      0. _d 0          mult_tracer           =      0. _d 0
47    
48    c--     30*24*3600 = 2592000 = 1 model month
49            lastinterval = 2592000.
50    
51  c--     Next, read the cost data file.  c--     Next, read the cost data file.
52          call nml_filter( 'data.cost', scrunit1, myThid )          call nml_filter( 'data.cost', scrunit1, myThid )
53          if (scrunit1 .eq. 0) then          if (scrunit1 .eq. 0) then
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22