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

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

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

revision 1.78 by dimitri, Tue Apr 23 19:04:33 2013 UTC revision 1.79 by jmc, Tue May 27 23:41:31 2014 UTC
# Line 258  C     Surface flux data. Line 258  C     Surface flux data.
258  # endif /* ALLOW_EXCH2 */  # endif /* ALLOW_EXCH2 */
259  #endif /* USE_EXF_INTERPOLATION */  #endif /* USE_EXF_INTERPOLATION */
260    
261          IF ( .NOT.useEXF ) THEN
262    C-    pkg EXF is not used
263            _BEGIN_MASTER(myThid)
264    C-    Track pkg activation status:
265    C     print a (weak) warning if data.exf is found
266             CALL PACKAGES_UNUSED_MSG( 'useEXF', ' ', ' ' )
267            _END_MASTER(myThid)
268            RETURN
269          ENDIF
270    
271        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
272    
273  C     Set default values.  C     Set default values.
Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79
  ViewVC Help
Powered by ViewVC 1.1.22