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

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

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

Revision 1.12 - (hide annotations) (download)
Thu Nov 21 19:11:42 2002 UTC (21 years, 6 months ago) by cheisey
Branch: MAIN
CVS Tags: checkpoint47e_post, checkpoint47c_post, checkpoint47d_pre, checkpoint47a_post, checkpoint47d_post, branch-exfmods-tag, checkpoint47b_post
Branch point for: branch-exfmods-curt
Changes since 1.11: +7 -7 lines 
Two packages:  bulk_force (Bulk forcing)
and therm_seaice (thermodynamic_seaice) - adopted from LANL CICE.v2.0.2
Earlier integration from Stephaine Dutkiewicz
and Patrick Heimbach.

Two ifdef statements for compile time,
ALLOW_THERM_SEAICE and ALLOW_BULK_FORCE

Two switches in data.pkg to turn on at run-time:

cat data.pkg
# Packages
 &PACKAGES
 useBulkForce=.TRUE.,
 useThermSeaIce=.TRUE.,
 &

WARNING:  useSEAICE and useThermSEAICE are mutually exclusive.

The bulk package requires an additional parameter file
with two namelists, data.ice and data.blk.

c ADAPTED FROM:
c LANL CICE.v2.0.2
c-----------------------------------------------------------------------
c.. thermodynamics (vertical physics) based on M. Winton 3-layer model
c.. See Bitz, C. M. and W. H. Lipscomb, 1999:  "An energy-conserving
c..       thermodynamic sea ice model for climate study."  J. Geophys.
c..       Res., 104, 15669 - 15677.
c..     Winton, M., 1999:  "A reformulated three-layer sea ice model."
c..       Submitted to J. Atmos. Ocean. Technol.

c.. authors Elizabeth C. Hunke and William Lipscomb
c..         Fluid Dynamics Group, Los Alamos National Laboratory
c-----------------------------------------------------------------------
1 cheisey 1.12 C $Header: /u/u0/gcmpack/MITgcm/model/src/packages_boot.F,v 1.11 2002/11/15 19:58:21 cheisey Exp $
2 adcroft 1.6 C $Name: $
3 heimbach 1.1
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.7 CBOP
7     C !ROUTINE: PACKAGES_BOOT
8     C !INTERFACE:
9 heimbach 1.1 SUBROUTINE PACKAGES_BOOT( myThid )
10 cnh 1.7
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 heimbach 1.1 IMPLICIT NONE
28     C === Global variables ===
29     #include "SIZE.h"
30     #include "EEPARAMS.h"
31     #include "PARAMS.h"
32    
33 cnh 1.7 C !INPUT/OUTPUT PARAMETERS:
34 heimbach 1.1 C === Routine arguments ===
35     C myThid - Number of this instances
36     INTEGER myThid
37    
38 cnh 1.7 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 cheisey 1.11 C data.pkg namelists
47 cheisey 1.12 cswdblk -- add useBulkforce to NAMELIST
48     cswdice -- addd useThermSeaIce to NAMELIST
49 cheisey 1.11
50 heimbach 1.1 NAMELIST /PACKAGES/
51     & useKPP,
52     & useGMRedi,
53 adcroft 1.2 & useOBCS,
54 jmc 1.3 & useAIM,
55 heimbach 1.5 & useGrdchk,
56 adcroft 1.4 & useECCO,
57 adcroft 1.6 & useSHAP_FILT,
58 jmc 1.8 & useZONAL_FILT,
59 adcroft 1.9 & useFLT,
60 heimbach 1.10 & usePTRACERS,
61 cheisey 1.11 & useSEAICE,
62 cheisey 1.12 & useBulkforce,
63     & useThermSEAICE
64 cheisey 1.11
65    
66 cnh 1.7 CEOP
67 heimbach 1.1
68     _BEGIN_MASTER(myThid)
69    
70 cnh 1.7 WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
71 heimbach 1.1 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
72     & SQUEEZE_RIGHT , 1)
73    
74    
75     CALL OPEN_COPY_DATA_FILE(
76     I 'data.pkg', 'PACKAGES_BOOT',
77     O iUnit,
78     I myThid )
79    
80     C-- Default package configuration
81 jmc 1.8 useKPP=.FALSE.
82 heimbach 1.1 useGMRedi=.FALSE.
83 adcroft 1.2 useOBCS=.FALSE.
84 jmc 1.3 useAIM=.FALSE.
85 jmc 1.8 useGrdchk=.FALSE.
86 heimbach 1.1 useECCO=.FALSE.
87 adcroft 1.4 useSHAP_FILT=.FALSE.
88 jmc 1.8 useZONAL_FILT=.FALSE.
89     useFLT=.FALSE.
90 heimbach 1.10 usePTRACERS=.FALSE.
91 cheisey 1.11 useSeaIce=.FALSE.
92     cswdblk -- add
93 cheisey 1.12 useBulkforce=.FALSE.
94 cheisey 1.11 cswdblk -- end add ---
95     cswdice --- add ---
96 cheisey 1.12 useThermSeaIce=.FALSE.
97 cheisey 1.11 cswdice --- end add ---
98    
99 heimbach 1.1
100     C-- Read parameters from open data file
101     READ(UNIT=iUnit,NML=PACKAGES)
102    
103    
104 cnh 1.7 WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
105 heimbach 1.1 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
106     & SQUEEZE_RIGHT , 1)
107    
108     C-- Close the open data file
109     CLOSE(iUnit)
110     _END_MASTER(myThid)
111    
112     C-- Everyone else must wait for the parameters to be loaded
113     _BARRIER
114    
115     return
116     end
  ViewVC Help
Powered by ViewVC 1.1.22