/[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.22 by heimbach, Fri May 14 21:08:28 2004 UTC revision 1.23 by mlosch, Thu Sep 2 09:13:49 2004 UTC
# Line 45  C     iUnit       - Work variable for IO Line 45  C     iUnit       - Work variable for IO
45  C     data.pkg namelists  C     data.pkg namelists
46    
47        NAMELIST /PACKAGES/        NAMELIST /PACKAGES/
48         &          usePP81,
49         &          useMY82,
50       &          useKPP,       &          useKPP,
51       &          useGMRedi,       &          useGMRedi,
52       &          useOBCS,       &          useOBCS,
# Line 81  CEOP Line 83  CEOP
83       I                          myThid )       I                          myThid )
84    
85  C--   Default package configuration  C--   Default package configuration
86          usePP81=.FALSE.
87          useMY82=.FALSE.
88        useKPP=.FALSE.        useKPP=.FALSE.
89        useGMRedi=.FALSE.        useGMRedi=.FALSE.
90        useOBCS=.FALSE.        useOBCS=.FALSE.
# Line 112  C--   Read parameters from open data fil Line 116  C--   Read parameters from open data fil
116  C--   Close the open data file  C--   Close the open data file
117        CLOSE(iUnit)        CLOSE(iUnit)
118        _END_MASTER(myThid)        _END_MASTER(myThid)
119    
120  C--   Everyone else must wait for the parameters to be loaded  C--   Everyone else must wait for the parameters to be loaded
121        _BARRIER        _BARRIER
122    
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22