/[MITgcm]/MITgcm/model/src/packages_check.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_check.F

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

revision 1.41 by jmc, Sat Apr 28 00:15:11 2007 UTC revision 1.42 by dimitri, Wed Nov 28 09:26:16 2007 UTC
# Line 273  C---  Continue with standard packages (w Line 273  C---  Continue with standard packages (w
273        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
274  #endif  #endif
275    
276    #ifdef ALLOW_SALT_PLUME
277          IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )
278    #else
279          IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
280    #endif
281    
282  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
283        IF ( useEXF .AND. useBulkForce ) THEN        IF ( useEXF .AND. useBulkForce ) THEN
284          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22