/[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.34 by jmc, Fri May 12 00:09:21 2017 UTC revision 1.35 by jmc, Fri Oct 6 00:03:56 2017 UTC
# Line 308  c     ENDIF Line 308  c     ENDIF
308        ENDIF        ENDIF
309  #endif /* ndef ATMOSPHERIC_LOADING */  #endif /* ndef ATMOSPHERIC_LOADING */
310    
311    #ifndef EXF_ALLOW_TIDES
312          IF ( tidePotFile.NE.' ' ) THEN
313            WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ',
314         &    '"tidePot" with #undef EXF_ALLOW_TIDES'
315            CALL PRINT_ERROR( msgBuf, myThid )
316            errCount = errCount + 1
317          ENDIF
318    #endif /* ndef EXF_SEAICE_FRACTION */
319    
320  #ifndef EXF_SEAICE_FRACTION  #ifndef EXF_SEAICE_FRACTION
321        IF ( areamaskfile.NE.' ' ) THEN        IF ( areamaskfile.NE.' ' ) THEN
322          WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ',          WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ',
# Line 462  C---+----1----+----2----+----3----+----4 Line 471  C---+----1----+----2----+----3----+----4
471        CALL EXF_CHECK_INTERP( 'apressure', apressurefile,        CALL EXF_CHECK_INTERP( 'apressure', apressurefile,
472       &         apressure_interpMethod, apressure_nlat,       &         apressure_interpMethod, apressure_nlat,
473       &         apressure_nlon, apressure_lon_inc, errCount, myThid )       &         apressure_nlon, apressure_lon_inc, errCount, myThid )
474          CALL EXF_CHECK_INTERP( 'tidePot', tidePotFile,
475         &         tidePot_interpMethod, tidePot_nlat,
476         &         tidePot_nlon, tidePot_lon_inc, errCount, myThid )
477        CALL EXF_CHECK_INTERP( 'areamask', areamaskfile,        CALL EXF_CHECK_INTERP( 'areamask', areamaskfile,
478       &         areamask_interpMethod, areamask_nlat,       &         areamask_interpMethod, areamask_nlat,
479       &         areamask_nlon, areamask_lon_inc, errCount, myThid )       &         areamask_nlon, areamask_lon_inc, errCount, myThid )
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22