/[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.6 by mlosch, Mon Apr 19 22:30:46 2004 UTC revision 1.7 by heimbach, Wed Jul 7 19:59:41 2004 UTC
# Line 138  c     check for consistency Line 138  c     check for consistency
138        end if                  end if          
139    
140  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
141          call cal_FullDate( climtempstartdate1, climtempstartdate2,        if ( climtempfile .NE. ' ' ) then
142       &                     date_array,                    mythid )           call cal_FullDate( climtempstartdate1, climtempstartdate2,
143          call cal_TimePassed(modelstartdate,date_array,difftime,mythid)       &        date_array,                    mythid )
144          call cal_ToSeconds (difftime,      climtempstartdate  ,mythid)           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
145          climtempstartdate=modelstart+climtempstartdate           call cal_ToSeconds (difftime,      climtempstartdate  ,mythid)
146             climtempstartdate=modelstart+climtempstartdate
147          endif
148  #endif  #endif
149    
150  #ifdef ALLOW_CLIMSALT_RELAXATION  #ifdef ALLOW_CLIMSALT_RELAXATION
151          if ( climsaltfile .NE. ' ' ) then      
152          call cal_FullDate( climsaltstartdate1, climsaltstartdate2,          call cal_FullDate( climsaltstartdate1, climsaltstartdate2,
153       &                     date_array,                    mythid )       &                     date_array,                    mythid )
154          call cal_TimePassed(modelstartdate,date_array,difftime,mythid)          call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
155          call cal_ToSeconds (difftime,      climsaltstartdate  ,mythid)          call cal_ToSeconds (difftime,      climsaltstartdate  ,mythid)
156          climsaltstartdate=modelstart+climsaltstartdate          climsaltstartdate=modelstart+climsaltstartdate
157          endif
158  #endif  #endif
159    
160  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
161          call cal_FullDate( climsststartdate1, climsststartdate2,        if ( climsstfile .NE. ' ' ) then
162       &                     date_array,                  mythid )           call cal_FullDate( climsststartdate1, climsststartdate2,
163          call cal_TimePassed(modelstartdate,date_array,difftime,mythid)       &        date_array,                  mythid )
164          call cal_ToSeconds (difftime,       climsststartdate  ,mythid)           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
165          climsststartdate=modelstart+climsststartdate           call cal_ToSeconds (difftime,       climsststartdate  ,mythid)
166             climsststartdate=modelstart+climsststartdate
167          endif
168  #endif  #endif
169    
170  #ifdef ALLOW_CLIMSSS_RELAXATION  #ifdef ALLOW_CLIMSSS_RELAXATION
171          call cal_FullDate( climsssstartdate1, climsssstartdate2,        if ( climsssfile .NE. ' ' ) then
172       &                     date_array,                  mythid )           call cal_FullDate( climsssstartdate1, climsssstartdate2,
173          call cal_TimePassed(modelstartdate,date_array,difftime,mythid)       &        date_array,                  mythid )
174          call cal_ToSeconds (difftime,       climsssstartdate  ,mythid)           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
175          climsssstartdate=modelstart+climsssstartdate           call cal_ToSeconds (difftime,       climsssstartdate  ,mythid)
176             climsssstartdate=modelstart+climsssstartdate
177          endif
178  #endif  #endif
179    
180        _END_MASTER( mythid )        _END_MASTER( mythid )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22