/[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.29 by heimbach, Sat Sep 3 04:17:57 2005 UTC revision 1.31 by jmc, Fri Nov 4 01:19:24 2005 UTC
# Line 36  C     myThid ::  Number of this instance Line 36  C     myThid ::  Number of this instance
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
37  C     === Local variables ===  C     === Local variables ===
38  C     msgBuf      :: Informational/error meesage buffer  C     msgBuf      :: Informational/error meesage buffer
39        CHARACTER*(MAX_LEN_MBUF) msgBuf  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
40  CEOP  CEOP
41    
42  #ifdef ALLOW_RUNCLOCK  #ifdef ALLOW_RUNCLOCK
# Line 107  CEOP Line 107  CEOP
107        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
108  #endif  #endif
109    
110    #ifndef ALLOW_MATRIX
111          IF (useMATRIX) CALL PACKAGES_CHECK_ERROR('MATRIX', myThid)
112    #endif
113    
114  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
115        IF (useGCHEM) CALL GCHEM_CHECK( myThid )        IF (useGCHEM) CALL GCHEM_CHECK( myThid )
116  #else  #else
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22