/[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.5.2.1 by cnh, Tue Jan 30 18:07:07 2001 UTC revision 1.8 by adcroft, Thu Sep 13 17:43:55 2001 UTC
# Line 41  C     msgBuf      - Informational/error Line 41  C     msgBuf      - Informational/error
41        IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)        IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
42  #endif  #endif
43    
44        return  #ifdef ALLOW_OBCS
45        end        IF (useOBCS) CALL OBCS_CHECK( myThid )
46    #else
47          IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
48    #endif
49    
50    #ifndef ALLOW_AIM
51          IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
52    #endif
53    
54    #ifndef ALLOW_FLT
55          IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
56    #endif
57    
58          RETURN
59          END
Legend:
Removed from v.1.5.2.1  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22