/[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.8 by dimitri, Thu Oct 7 01:10:43 2004 UTC revision 1.9 by dimitri, Fri Dec 3 07:36:58 2004 UTC
# Line 160  c     check for consistency Line 160  c     check for consistency
160        stop 'stopped in exf_clim_readparms: value of yftype not allowed'        stop 'stopped in exf_clim_readparms: value of yftype not allowed'
161        end if                  end if          
162    
163    #ifdef USE_EXF_INTERPOLATION
164          if ( climsst_nlat .GT. MAX_LAT_INC )
165         & stop 'stopped in exf_clim_readparms: climsst_nlat > MAX_LAT_INC'
166          if ( climsss_nlat .GT. MAX_LAT_INC )
167         & stop 'stopped in exf_clim_readparms: climsss_nlat > MAX_LAT_INC'
168    #endif
169    
170    
171  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
172        if ( climtempfile .NE. ' ' ) then        if ( climtempfile .NE. ' ' ) then
173           call cal_FullDate( climtempstartdate1, climtempstartdate2,           call cal_FullDate( climtempstartdate1, climtempstartdate2,
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22