/[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.4 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.5 by dimitri, Mon Oct 20 06:25:16 2003 UTC
# Line 37  c     == routine arguments == Line 37  c     == routine arguments ==
37  c     == local variables ==  c     == local variables ==
38    
39        integer i        integer i
40          integer date_array(4), difftime(4)
41    
42  c     == end of interface ==  c     == end of interface ==
43    
# Line 85  c     Data files. Line 86  c     Data files.
86        climsstfile        = ' '        climsstfile        = ' '
87        climsssfile        = ' '        climsssfile        = ' '
88    
89  c     Initialise the date arrays.  c     Start dates.
90        do i = 1,4        climtempstartdate  = 0
91           climtempstartdate(i) = 0        climsaltstartdate  = 0
92           climsaltstartdate(i) = 0        climsststartdate   = 0
93           climsststartdate(i)  = 0        climsssstartdate   = 0
          climsssstartdate(i)  = 0  
       enddo  
94    
95  c     Initialise constant values for relax. to constant SST, SSS  c     Initialise constant values for relax. to constant SST, SSS
96        climsstconst = 0. _d 0        climsstconst = 0. _d 0
# Line 136  c     check for consistency Line 135  c     check for consistency
135    
136  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
137          call cal_FullDate( climtempstartdate1, climtempstartdate2,          call cal_FullDate( climtempstartdate1, climtempstartdate2,
138       &                     climtempstartdate,             mythid )       &                     date_array,                    mythid )
139            call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
140            call cal_ToSeconds (difftime,      climtempstartdate  ,mythid)
141            climtempstartdate=modelstart+climtempstartdate
142  #endif  #endif
143    
144  #ifdef ALLOW_CLIMSALT_RELAXATION  #ifdef ALLOW_CLIMSALT_RELAXATION
145          call cal_FullDate( climsaltstartdate1, climsaltstartdate2,          call cal_FullDate( climsaltstartdate1, climsaltstartdate2,
146       &                     climsaltstartdate,             mythid )       &                     date_array,                    mythid )
147            call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
148            call cal_ToSeconds (difftime,      climsaltstartdate  ,mythid)
149            climsaltstartdate=modelstart+climsaltstartdate
150  #endif  #endif
151    
152  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
153          call cal_FullDate( climsststartdate1, climsststartdate2,          call cal_FullDate( climsststartdate1, climsststartdate2,
154       &                     climsststartdate,            mythid )       &                     date_array,                  mythid )
155            call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
156            call cal_ToSeconds (difftime,       climsststartdate  ,mythid)
157            climsststartdate=modelstart+climsststartdate
158  #endif  #endif
159    
160  #ifdef ALLOW_CLIMSSS_RELAXATION  #ifdef ALLOW_CLIMSSS_RELAXATION
161          call cal_FullDate( climsssstartdate1, climsssstartdate2,          call cal_FullDate( climsssstartdate1, climsssstartdate2,
162       &                     climsssstartdate,            mythid )       &                     date_array,                  mythid )
163            call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
164            call cal_ToSeconds (difftime,       climsssstartdate  ,mythid)
165            climsssstartdate=modelstart+climsssstartdate
166  #endif  #endif
167    
168        _END_MASTER( mythid )        _END_MASTER( mythid )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22