model/src/packages_boot.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.14 2003/02/18 05:33:54 dimitri Exp $
C $Name:  $

#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
cswdblk -- add useBulkforce to NAMELIST
cswdice -- addd useThermSeaIce to NAMELIST

      NAMELIST /PACKAGES/
     &          useKPP,
     &          useGMRedi,
     &          useOBCS,
     &          useAIM,
     &          useLand,
     &          useGrdchk,
     &          useECCO,
     &          useSHAP_FILT,
     &          useZONAL_FILT,
     &          useFLT,
     &          usePTRACERS,
     &          useSBO,
     &          useSEAICE,
     &          useBulkforce,
     &          useThermSEAICE


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
      useKPP=.FALSE.
      useGMRedi=.FALSE.
      useOBCS=.FALSE.
      useAIM=.FALSE.
      useLand=.FALSE.
      useGrdchk=.FALSE.
      useECCO=.FALSE.
      useSHAP_FILT=.FALSE.
      useZONAL_FILT=.FALSE.
      useFLT=.FALSE.
      usePTRACERS=.FALSE.
      useSBO=.FALSE.
      useSeaIce=.FALSE.
cswdblk -- add
      useBulkforce=.FALSE.
cswdblk -- end add ---
cswdice --- add ---
      useThermSeaIce=.FALSE.
cswdice --- end add ---


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--   Everyone else must wait for the parameters to be loaded
      _BARRIER

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.14 2003/02/18 05:33:54 dimitri Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: PACKAGES_BOOT
8	C !INTERFACE:
9	SUBROUTINE PACKAGES_BOOT( myThid )
10
11	C !DESCRIPTION: \bv
12	C ==========================================================
13	C \| SUBROUTINE PACKAGES_BOOT
14	C \| o Routine to parse runtime package selection file
15	C ==========================================================
16	C \| Routine reads a flat file which contains a single flag
17	C \| for each known "package". Flag can enables runtime
18	C \| activation or deactivation of a package. The data is read
19	C \| from a file called data.pkg.
20	C \| Note - If a runtime activation flag is set on but the
21	C \| package code was not included in the build then
22	C \| the default behavior is to stop with an error.
23	C ==========================================================
24	C \ev
25
26	C !USES:
27	IMPLICIT NONE
28	C === Global variables ===
29	#include "SIZE.h"
30	#include "EEPARAMS.h"
31	#include "PARAMS.h"
32
33	C !INPUT/OUTPUT PARAMETERS:
34	C === Routine arguments ===
35	C myThid - Number of this instances
36	INTEGER myThid
37
38	C !LOCAL VARIABLES:
39	C === Local variables ===
40	C msgBuf - Informational/error meesage buffer
41	C iUnit - Work variable for IO unit number
42	CHARACTER*(MAX_LEN_MBUF) msgBuf
43	INTEGER iUnit
44
45	C data.pkg namelists
46	cswdblk -- add useBulkforce to NAMELIST
47	cswdice -- addd useThermSeaIce to NAMELIST
48
49	NAMELIST /PACKAGES/
50	& useKPP,
51	& useGMRedi,
52	& useOBCS,
53	& useAIM,
54	& useLand,
55	& useGrdchk,
56	& useECCO,
57	& useSHAP_FILT,
58	& useZONAL_FILT,
59	& useFLT,
60	& usePTRACERS,
61	& useSBO,
62	& useSEAICE,
63	& useBulkforce,
64	& useThermSEAICE
65
66
67	CEOP
68
69	_BEGIN_MASTER(myThid)
70
71	WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
72	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
73	& SQUEEZE_RIGHT , 1)
74
75
76	CALL OPEN_COPY_DATA_FILE(
77	I 'data.pkg', 'PACKAGES_BOOT',
78	O iUnit,
79	I myThid )
80
81	C-- Default package configuration
82	useKPP=.FALSE.
83	useGMRedi=.FALSE.
84	useOBCS=.FALSE.
85	useAIM=.FALSE.
86	useLand=.FALSE.
87	useGrdchk=.FALSE.
88	useECCO=.FALSE.
89	useSHAP_FILT=.FALSE.
90	useZONAL_FILT=.FALSE.
91	useFLT=.FALSE.
92	usePTRACERS=.FALSE.
93	useSBO=.FALSE.
94	useSeaIce=.FALSE.
95	cswdblk -- add
96	useBulkforce=.FALSE.
97	cswdblk -- end add ---
98	cswdice --- add ---
99	useThermSeaIce=.FALSE.
100	cswdice --- end add ---
101
102
103	C-- Read parameters from open data file
104	READ(UNIT=iUnit,NML=PACKAGES)
105
106
107	WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
108	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
109	& SQUEEZE_RIGHT , 1)
110
111	C-- Close the open data file
112	CLOSE(iUnit)
113	_END_MASTER(myThid)
114
115	C-- Everyone else must wait for the parameters to be loaded
116	_BARRIER
117
118	RETURN
119	END