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

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

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

revision 1.37 by jmc, Tue Oct 17 18:52:34 2006 UTC revision 1.38 by jmc, Wed Jan 10 23:49:44 2007 UTC
# Line 86  CEOP Line 86  CEOP
86        WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'        WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
87        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
88       &                    SQUEEZE_RIGHT , myThid )       &                    SQUEEZE_RIGHT , myThid )
89        
90    
91        CALL OPEN_COPY_DATA_FILE(        CALL OPEN_COPY_DATA_FILE(
92       I                          'data.pkg', 'PACKAGES_BOOT',       I                          'data.pkg', 'PACKAGES_BOOT',
# Line 140  C--   Read parameters from open data fil Line 140  C--   Read parameters from open data fil
140    
141  C--   Close the open data file  C--   Close the open data file
142        CLOSE(iUnit)        CLOSE(iUnit)
143    
144  C--   packages with hard-coded switch  C--   packages with hard-coded switch
145  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
146        useEXF = .TRUE.        useEXF = .TRUE.
# Line 149  C--   packages with hard-coded switch Line 149  C--   packages with hard-coded switch
149        useCAL = .TRUE.        useCAL = .TRUE.
150  #endif  #endif
151    
152    C--   packages with an implied switch
153          useGAD = tempStepping .OR. saltStepping .OR. usePTRACERS
154    
155        _END_MASTER(myThid)        _END_MASTER(myThid)
156    
157  C--   Everyone else must wait for the parameters to be loaded  C--   Everyone else must wait for the parameters to be loaded
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22