/[MITgcm]/MITgcm/verification/matrix_example/code/packages_boot.F
ViewVC logotype

Contents of /MITgcm/verification/matrix_example/code/packages_boot.F

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


Revision 1.2 - (show annotations) (download)
Wed Apr 20 18:29:57 2005 UTC (18 years, 11 months ago) by spk
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
FILE REMOVED
Removing files that are now incorporated in main code tree

1 C $Header: /u/gcmpack/MITgcm/verification/matrix_example/code/packages_boot.F,v 1.1 2005/04/18 20:14:36 spk 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 NAMELIST /PACKAGES/
47 & useOPPS,
48 & usePP81,
49 & useMY82,
50 & useGGL90,
51 & useKPP,
52 & useGMRedi,
53 & useOBCS,
54 & useAIM,
55 & useLand,
56 & useGrdchk,
57 & useECCO,
58 & useSHAP_FILT,
59 & useZONAL_FILT,
60 & useFLT,
61 & usePTRACERS,
62 & useGCHEM,
63 & useSBO,
64 & useSEAICE,
65 & useBulkForce,
66 & useThSIce,
67 & usefizhi,
68 & usegridalt,
69 & usediagnostics,
70 & useEBM,
71 & useMNC,
72 & useMATRIX
73 CEOP
74
75 _BEGIN_MASTER(myThid)
76
77 WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
78 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
79 & SQUEEZE_RIGHT , 1)
80
81
82 CALL OPEN_COPY_DATA_FILE(
83 I 'data.pkg', 'PACKAGES_BOOT',
84 O iUnit,
85 I myThid )
86
87 C-- Default package configuration
88 usePP81=.FALSE.
89 useMY82=.FALSE.
90 useGGL90=.FALSE.
91 useKPP=.FALSE.
92 useGMRedi=.FALSE.
93 useOBCS=.FALSE.
94 useAIM=.FALSE.
95 useLand=.FALSE.
96 useGrdchk=.FALSE.
97 useECCO=.FALSE.
98 useSHAP_FILT=.FALSE.
99 useZONAL_FILT=.FALSE.
100 useFLT=.FALSE.
101 usePTRACERS=.FALSE.
102 useGCHEM=.FALSE.
103 useSBO=.FALSE.
104 useSeaIce=.FALSE.
105 useBulkForce=.FALSE.
106 useThSIce=.FALSE.
107 usefizhi=.FALSE.
108 usegridalt=.FALSE.
109 usediagnostics=.FALSE.
110 useEBM=.FALSE.
111 useMNC=.FALSE.
112 useMATRIX=.FALSE.
113
114 C-- Read parameters from open data file
115 READ(UNIT=iUnit,NML=PACKAGES)
116
117
118 WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
119 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
120 & SQUEEZE_RIGHT , 1)
121
122 C-- Close the open data file
123 CLOSE(iUnit)
124 _END_MASTER(myThid)
125
126 C-- Everyone else must wait for the parameters to be loaded
127 _BARRIER
128
129 RETURN
130 END

  ViewVC Help
Powered by ViewVC 1.1.22