/[MITgcm]/MITgcm/pkg/exf/exf_clim_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_clim_readparms.F

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

revision 1.1 by heimbach, Mon May 14 22:08:40 2001 UTC revision 1.2 by heimbach, Thu Mar 6 00:47:33 2003 UTC
# Line 44  c     Surface flux data. Line 44  c     Surface flux data.
44        namelist /exf_clim_nml/        namelist /exf_clim_nml/
45       & climtempstartdate1, climtempstartdate2, climtempperiod,       & climtempstartdate1, climtempstartdate2, climtempperiod,
46       & climsaltstartdate1, climsaltstartdate2, climsaltperiod,       & climsaltstartdate1, climsaltstartdate2, climsaltperiod,
47       &  climsststartdate1,  climsststartdate2, climsstperiod,       &  climsststartdate1,  climsststartdate2,  climsstperiod,
48       &  climsssstartdate1,  climsssstartdate2, climsssperiod,       &  climsssstartdate1,  climsssstartdate2,  climsssperiod,
49       &       climtempfile,       climsaltfile,   climsstfile,       &       climtempfile,       climsaltfile,    climsstfile,
50       &        climsssfile,       &        climsssfile,       climsstconst,   climsssconst,
51       &     exf_clim_iprec, exf_clim_yftype       &     exf_clim_iprec, exf_clim_yftype
52    
53        _BEGIN_MASTER(mythid)        _BEGIN_MASTER(mythid)
# Line 77  c     Data files. Line 77  c     Data files.
77        climsstfile        = ' '        climsstfile        = ' '
78        climsssfile        = ' '        climsssfile        = ' '
79    
80  c       Initialise the date arrays.  c     Initialise the date arrays.
81        do i = 1,4        do i = 1,4
82           climtempstartdate(i) = 0           climtempstartdate(i) = 0
83           climsaltstartdate(i) = 0           climsaltstartdate(i) = 0
# Line 85  c       Initialise the date arrays. Line 85  c       Initialise the date arrays.
85           climsssstartdate(i)  = 0           climsssstartdate(i)  = 0
86        enddo        enddo
87    
88    c     Initialise constant values for relax. to constant SST, SSS
89          climsstconst = 0. _d 0
90          climsssconst = 0. _d 0
91    
92  c     Initialise file type and field precision  c     Initialise file type and field precision
93        exf_clim_iprec  = 32        exf_clim_iprec  = 32
94        exf_clim_yftype = 'RL'        exf_clim_yftype = 'RL'
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22