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

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

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

revision 1.20 by jmc, Mon Oct 22 01:29:51 2012 UTC revision 1.21 by dimitri, Sat Apr 20 21:37:28 2013 UTC
# Line 107  c     check for consistency Line 107  c     check for consistency
107  #endif  #endif
108    
109  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
110        if ( climsst_nlat .GT. MAX_LAT_INC )        IF ( climsstfile .NE. ' ' ) THEN
111       & stop 'stopped in exf_readparms: climsst_nlat > MAX_LAT_INC'         IF ( climsst_nlat .GT. MAX_LAT_INC )
112        if ( climsss_nlat .GT. MAX_LAT_INC )       &  STOP 'stopped in exf_readparms: climsst_nlat > MAX_LAT_INC'
113       & stop 'stopped in exf_readparms: climsss_nlat > MAX_LAT_INC'        ENDIF
114          IF ( climsssfile .NE. ' ' ) THEN
115           IF ( climsss_nlat .GT. MAX_LAT_INC )
116         &  STOP 'stopped in exf_readparms: climsss_nlat > MAX_LAT_INC'
117          ENDIF
118        if ( usingCartesianGrid ) then        if ( usingCartesianGrid ) then
119         print*,'USE_EXF_INTERPOLATION assumes latitude/longitude'         print*,'USE_EXF_INTERPOLATION assumes latitude/longitude'
120         print*,'input and output coordinates.  Trivial to extend to'         print*,'input and output coordinates.  Trivial to extend to'
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22