/[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.9 by dimitri, Fri Dec 3 07:36:58 2004 UTC revision 1.10 by dimitri, Sat Jan 1 04:59:17 2005 UTC
# Line 89  c     Data files. Line 89  c     Data files.
89        climsssfile        = ' '        climsssfile        = ' '
90    
91  c     Start dates.  c     Start dates.
92        climtempstartdate  = 0        climtempstartdate  = 0.
93        climsaltstartdate  = 0        climsaltstartdate  = 0.
94        climsststartdate   = 0        climsststartdate   = 0.
95        climsssstartdate   = 0        climsssstartdate   = 0.
96    
97  c     Initialise constant values for relax. to constant SST, SSS  c     Initialise constant values for relax. to constant SST, SSS
98        climsstconst = 0. _d 0        climsstconst = 0. _d 0
# Line 169  c     check for consistency Line 169  c     check for consistency
169    
170    
171  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
172        if ( climtempfile .NE. ' ' ) then        if ( climtempfile .NE. ' ' .AND. climtempperiod .NE. 0 ) then
173           call cal_FullDate( climtempstartdate1, climtempstartdate2,           call cal_FullDate( climtempstartdate1, climtempstartdate2,
174       &        date_array,                    mythid )       &        date_array,                    mythid )
175           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
# Line 179  c     check for consistency Line 179  c     check for consistency
179  #endif  #endif
180    
181  #ifdef ALLOW_CLIMSALT_RELAXATION  #ifdef ALLOW_CLIMSALT_RELAXATION
182        if ( climsaltfile .NE. ' ' ) then              if ( climsaltfile .NE. ' ' .AND. climsaltperiod .NE. 0 ) then      
183          call cal_FullDate( climsaltstartdate1, climsaltstartdate2,          call cal_FullDate( climsaltstartdate1, climsaltstartdate2,
184       &                     date_array,                    mythid )       &                     date_array,                    mythid )
185          call cal_TimePassed(modelstartdate,date_array,difftime,mythid)          call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
# Line 189  c     check for consistency Line 189  c     check for consistency
189  #endif  #endif
190    
191  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
192        if ( climsstfile .NE. ' ' ) then        if ( climsstfile .NE. ' ' .AND. climsstperiod .NE. 0 ) then
193           call cal_FullDate( climsststartdate1, climsststartdate2,           call cal_FullDate( climsststartdate1, climsststartdate2,
194       &        date_array,                  mythid )       &        date_array,                  mythid )
195           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
# Line 199  c     check for consistency Line 199  c     check for consistency
199  #endif  #endif
200    
201  #ifdef ALLOW_CLIMSSS_RELAXATION  #ifdef ALLOW_CLIMSSS_RELAXATION
202        if ( climsssfile .NE. ' ' ) then        if ( climsssfile .NE. ' ' .AND. climsssperiod .NE. 0 ) then
203           call cal_FullDate( climsssstartdate1, climsssstartdate2,           call cal_FullDate( climsssstartdate1, climsssstartdate2,
204       &        date_array,                  mythid )       &        date_array,                  mythid )
205           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)           call cal_TimePassed(modelstartdate,date_array,difftime,mythid)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22