/[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.4 by heimbach, Sat Jul 13 03:01:39 2002 UTC revision 1.5 by heimbach, Thu Nov 6 22:03:49 2003 UTC
# Line 2  C $Header$ Line 2  C $Header$
2    
3  #include "COST_CPPOPTIONS.h"  #include "COST_CPPOPTIONS.h"
4    
   
5        subroutine cost_readparms( mythid )        subroutine cost_readparms( mythid )
6    
7  c     ==================================================================  c     ==================================================================
# Line 28  c     == global variables == Line 27  c     == global variables ==
27  #include "cost.h"  #include "cost.h"
28    
29  c     == routine arguments ==  c     == routine arguments ==
   
30        integer mythid        integer mythid
31    
32  c     == local variables ==  c     == local variables ==
33    
       integer sststartdate1  
       integer sststartdate2  
       integer topexstartdate1  
       integer topexstartdate2  
       integer ersstartdate1  
       integer ersstartdate2  
   
 c     == external functions ==  
   
       integer  cal_IntMonths  
       external cal_IntMonths  
       integer  cal_IntDays  
       external cal_IntDays  
   
34  c     == end of interface ==  c     == end of interface ==
35    
36  c--   Read the namelist input.  c--   Read the namelist input.
37        namelist /cost_nml/        namelist /cost_nml/
38       &                   data_errfile,       &                   mult_atl, mult_test, mult_tracer
      &                   tbarfile, sbarfile, psbarfile,  
      &                   using_topex,  
      &                   topexstartdate1, topexstartdate2,  
      &                   topexperiod, topexfile, topexmeanfile,  
      &                   using_ers,  
      &                   ersstartdate1, ersstartdate2,  
      &                   ersperiod, ersfile,  
      &                   ssh_errfile,  
      &                   sststartdate1, sststartdate2, sstdatfile,  
      &                   tdatfile, sdatfile,  
      &                   ctdtfile, ctdsfile,  
      &                   hflux_errfile, sflux_errfile,  
      &                   tauu_errfile, tauv_errfile,  
      &                   geoid_errfile, geoid_covariancefile,  
      &                   mult_hq,    mult_hs, mult_tauu, mult_tauv,  
      &                   mult_hmean, mult_h,  mult_temp, mult_salt,  
      &                   mult_sst, mult_atl, mult_ctdt, mult_ctds,  
      &                   mult_test, mult_tracer,  
      &                   iprec_cost, yftype_cost  
39    
40        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
41    
42  c--     Set default values.  c--     Set default values.
         data_errfile          =    ' '  
         tbarfile              =    ' '  
         sbarfile              =    ' '  
         psbarfile             =    ' '  
         using_topex           = .false.  
         topexstartdate1       =      0  
         topexstartdate2       =      0  
         topexperiod           =      0. _d 0  
         topexfile             =    ' '  
         topexmeanfile         =    ' '  
         using_ers             = .false.  
         ersstartdate1         =      0  
         ersstartdate2         =      0  
         ersperiod             =      0. _d 0  
         ersfile               =    ' '  
         ssh_errfile           =    ' '  
         sststartdate1         =      0  
         sststartdate2         =      0  
         sstdatfile            =    ' '  
         tdatfile              =    ' '  
         sdatfile              =    ' '  
         ctdtfile              =    ' '  
         ctdsfile              =    ' '  
         hflux_errfile         =    ' '  
         sflux_errfile         =    ' '  
         tauu_errfile          =    ' '  
         tauv_errfile          =    ' '  
         geoid_errfile         =    ' '  
         geoid_covariancefile  =    ' '  
         mult_hq               =      0. _d 0  
         mult_hs               =      0. _d 0  
         mult_tauu             =      0. _d 0  
         mult_tauv             =      0. _d 0  
         mult_hmean            =      0. _d 0  
         mult_h                =      0. _d 0  
         mult_temp             =      0. _d 0  
         mult_salt             =      0. _d 0  
         mult_sst              =      0. _d 0  
43          mult_atl              =      0. _d 0          mult_atl              =      0. _d 0
         mult_ctdt             =      0. _d 0  
         mult_ctds             =      0. _d 0  
44          mult_test             =      0. _d 0          mult_test             =      0. _d 0
45          mult_tracer           =      0. _d 0          mult_tracer           =      0. _d 0
46    
 c--     Check versions.  
   
47  c--     Next, read the cost data file.  c--     Next, read the cost data file.
48          call nml_filter( 'data.cost', scrunit1, myThid )          call nml_filter( 'data.cost', scrunit1, myThid )
49          if (scrunit1 .eq. 0) then          if (scrunit1 .eq. 0) then
# Line 129  c--     Next, read the cost data file. Line 52  c--     Next, read the cost data file.
52          read(  scrunit1, nml = cost_nml )          read(  scrunit1, nml = cost_nml )
53          close( scrunit1 )          close( scrunit1 )
54    
         call cost_Summary( mythid )  
   
55        _END_MASTER( mythid )        _END_MASTER( mythid )
56    
57        _BARRIER        _BARRIER
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22