model/src/packages_boot.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.33 2006/03/20 15:11:18 jmc Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: PACKAGES_BOOT
C     !INTERFACE:
      SUBROUTINE PACKAGES_BOOT( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE PACKAGES_BOOT                                  
C     | o Routine to parse runtime package selection file         
C     *==========================================================*
C     | Routine reads a flat file which contains a single flag    
C     | for each known "package". Flag can enables runtime        
C     | activation or deactivation of a package. The data is read 
C     | from a file called data.pkg.                              
C     | Note - If a runtime activation flag is set on but the     
C     |        package code was not included in the build then    
C     |        the default behavior is to stop with an error.     
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid -  Number of this instances
      INTEGER myThid

C     !LOCAL VARIABLES:
C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
C     iUnit       - Work variable for IO unit number
      CHARACTER*(MAX_LEN_MBUF) msgBuf
      INTEGER iUnit

C     data.pkg namelists
      NAMELIST /PACKAGES/
     &          useOPPS,
     &          usePP81,
     &          useMY82,
     &          useGGL90,
     &          useKPP,
     &          useGMRedi,
     &          useOBCS,
     &          useAIM,
     &          useLand,
     &          useGrdchk,
     &          useECCO,
     &          useSHAP_FILT,
     &          useZONAL_FILT,
     &          useFLT,
     &          usePTRACERS,
     &          useGCHEM,
     &          useRBCS,
     &          useOffLine,
     &          useSBO,
     &          useSEAICE,
     &          useShelfIce,
     &          useThSIce,
     &          useBulkForce,
     &          useEBM,
     &          usefizhi,
     &          usegridalt,
     &          useDiagnostics,
     &          useMNC,
     &          useRunClock,
     &          useMATRIX,
     &          useEMBED_FILES,
     &          useMYPACKAGE
CEOP

      _BEGIN_MASTER(myThid)

      WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)
    

      CALL OPEN_COPY_DATA_FILE(
     I                          'data.pkg', 'PACKAGES_BOOT',
     O                          iUnit,
     I                          myThid )

C--   Default package configuration
      useOPPS         =.FALSE.
      usePP81         =.FALSE.
      useMY82         =.FALSE.
      useGGL90        =.FALSE.
      useKPP          =.FALSE.
      useGMRedi       =.FALSE.
      useOBCS         =.FALSE.
      useAIM          =.FALSE.
      useLand         =.FALSE.
      useCAL          =.FALSE.
      useEXF          =.FALSE.
      useEBM          =.FALSE.
      useGrdchk       =.FALSE.
      useECCO         =.FALSE.
      useSHAP_FILT    =.FALSE.
      useZONAL_FILT   =.FALSE.
      useFLT          =.FALSE.
      usePTRACERS     =.FALSE.
      useGCHEM        =.FALSE.
      useRBCS         =.FALSE.
      useOffLine      =.FALSE.
      useMATRIX       =.FALSE.
      useSBO          =.FALSE.
      useSEAICE       =.FALSE.
      useShelfIce     =.FALSE.
      useThSIce       =.FALSE.
      useBulkForce    =.FALSE.
      usefizhi        =.FALSE.
      usegridalt      =.FALSE.
      useDiagnostics  =.FALSE.
      useMNC          =.FALSE.
      useRunClock     =.FALSE.
      useMYPACKAGE    =.FALSE.

C--   Read parameters from open data file
      READ(UNIT=iUnit,NML=PACKAGES)


      WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)

C--   Close the open data file
      CLOSE(iUnit)
      _END_MASTER(myThid)
 
C--   packages with hard-coded switch
#ifdef ALLOW_EXF
      useEXF = .TRUE.
#endif
#ifdef ALLOW_CAL
      useCAL = .TRUE.
#endif

C--   Everyone else must wait for the parameters to be loaded
      _BARRIER

      RETURN
      END
1	heimbach	1.34	C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.33 2006/03/20 15:11:18 jmc Exp $
2	adcroft	1.6	C $Name: $
3	heimbach	1.1
4	jmc	1.33	#include "PACKAGES_CONFIG.h"
5	heimbach	1.1	#include "CPP_OPTIONS.h"
6
7	cnh	1.7	CBOP
8			C !ROUTINE: PACKAGES_BOOT
9			C !INTERFACE:
10	heimbach	1.1	SUBROUTINE PACKAGES_BOOT( myThid )
11	cnh	1.7
12			C !DESCRIPTION: \bv
13			C ==========================================================
14			C \| SUBROUTINE PACKAGES_BOOT
15			C \| o Routine to parse runtime package selection file
16			C ==========================================================
17			C \| Routine reads a flat file which contains a single flag
18			C \| for each known "package". Flag can enables runtime
19			C \| activation or deactivation of a package. The data is read
20			C \| from a file called data.pkg.
21			C \| Note - If a runtime activation flag is set on but the
22			C \| package code was not included in the build then
23			C \| the default behavior is to stop with an error.
24			C ==========================================================
25			C \ev
26
27			C !USES:
28	heimbach	1.1	IMPLICIT NONE
29			C === Global variables ===
30			#include "SIZE.h"
31			#include "EEPARAMS.h"
32			#include "PARAMS.h"
33
34	cnh	1.7	C !INPUT/OUTPUT PARAMETERS:
35	heimbach	1.1	C === Routine arguments ===
36			C myThid - Number of this instances
37			INTEGER myThid
38
39	cnh	1.7	C !LOCAL VARIABLES:
40			C === Local variables ===
41			C msgBuf - Informational/error meesage buffer
42			C iUnit - Work variable for IO unit number
43			CHARACTER*(MAX_LEN_MBUF) msgBuf
44			INTEGER iUnit
45
46	cheisey	1.11	C data.pkg namelists
47	heimbach	1.1	NAMELIST /PACKAGES/
48	mlosch	1.24	& useOPPS,
49	mlosch	1.23	& usePP81,
50			& useMY82,
51	mlosch	1.24	& useGGL90,
52	heimbach	1.1	& useKPP,
53			& useGMRedi,
54	adcroft	1.2	& useOBCS,
55	jmc	1.3	& useAIM,
56	jmc	1.15	& useLand,
57	heimbach	1.5	& useGrdchk,
58	adcroft	1.4	& useECCO,
59	adcroft	1.6	& useSHAP_FILT,
60	jmc	1.8	& useZONAL_FILT,
61	adcroft	1.9	& useFLT,
62	heimbach	1.10	& usePTRACERS,
63	mlosch	1.26	& useGCHEM,
64	stephd	1.29	& useRBCS,
65	jmc	1.32	& useOffLine,
66	dimitri	1.14	& useSBO,
67	cheisey	1.11	& useSEAICE,
68	mlosch	1.31	& useShelfIce,
69	jmc	1.33	& useThSIce,
70	jmc	1.16	& useBulkForce,
71	jmc	1.33	& useEBM,
72	molod	1.18	& usefizhi,
73	molod	1.19	& usegridalt,
74	jmc	1.32	& useDiagnostics,
75	spk	1.27	& useMNC,
76	adcroft	1.28	& useRunClock,
77	edhill	1.30	& useMATRIX,
78	heimbach	1.34	& useEMBED_FILES,
79			& useMYPACKAGE
80	cnh	1.7	CEOP
81	heimbach	1.1
82			_BEGIN_MASTER(myThid)
83
84	cnh	1.7	WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
85	heimbach	1.1	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
86			& SQUEEZE_RIGHT , 1)
87
88
89			CALL OPEN_COPY_DATA_FILE(
90			I 'data.pkg', 'PACKAGES_BOOT',
91			O iUnit,
92			I myThid )
93
94			C-- Default package configuration
95	jmc	1.33	useOPPS =.FALSE.
96			usePP81 =.FALSE.
97			useMY82 =.FALSE.
98			useGGL90 =.FALSE.
99			useKPP =.FALSE.
100			useGMRedi =.FALSE.
101			useOBCS =.FALSE.
102			useAIM =.FALSE.
103			useLand =.FALSE.
104			useCAL =.FALSE.
105			useEXF =.FALSE.
106			useEBM =.FALSE.
107			useGrdchk =.FALSE.
108			useECCO =.FALSE.
109			useSHAP_FILT =.FALSE.
110			useZONAL_FILT =.FALSE.
111			useFLT =.FALSE.
112			usePTRACERS =.FALSE.
113			useGCHEM =.FALSE.
114			useRBCS =.FALSE.
115			useOffLine =.FALSE.
116			useMATRIX =.FALSE.
117			useSBO =.FALSE.
118			useSEAICE =.FALSE.
119			useShelfIce =.FALSE.
120			useThSIce =.FALSE.
121			useBulkForce =.FALSE.
122			usefizhi =.FALSE.
123			usegridalt =.FALSE.
124			useDiagnostics =.FALSE.
125			useMNC =.FALSE.
126			useRunClock =.FALSE.
127	heimbach	1.34	useMYPACKAGE =.FALSE.
128	heimbach	1.1
129			C-- Read parameters from open data file
130			READ(UNIT=iUnit,NML=PACKAGES)
131
132
133	cnh	1.7	WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
134	heimbach	1.1	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
135			& SQUEEZE_RIGHT , 1)
136
137			C-- Close the open data file
138			CLOSE(iUnit)
139			_END_MASTER(myThid)
140	mlosch	1.23
141	jmc	1.33	C-- packages with hard-coded switch
142			#ifdef ALLOW_EXF
143			useEXF = .TRUE.
144			#endif
145			#ifdef ALLOW_CAL
146			useCAL = .TRUE.
147			#endif
148
149	heimbach	1.1	C-- Everyone else must wait for the parameters to be loaded
150			_BARRIER
151
152	jmc	1.15	RETURN
153			END