/[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.39 by jmc, Wed Mar 7 00:00:06 2007 UTC revision 1.40 by heimbach, Mon Apr 16 22:44:29 2007 UTC
# Line 183  C---  Continue with standard packages (w Line 183  C---  Continue with standard packages (w
183        IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)        IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)
184  #endif  #endif
185    
186  #ifndef ALLOW_THSICE  #ifdef ALLOW_THSICE
187          IF (useThSIce) CALL THSICE_CHECK( myThid )
188    #else
189        IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)        IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)
190  #endif  #endif
191    
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22