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

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

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

Revision 1.14 - (show annotations) (download)
Tue Feb 18 05:33:54 2003 UTC (21 years, 3 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint50c_post, checkpoint50c_pre, checkpoint48i_post, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint48f_post, checkpoint48h_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint50g_post, checkpoint50e_pre, checkpoint50e_post, checkpoint50d_pre, checkpoint49, checkpoint48g_post, checkpoint50b_post
Changes since 1.13: +3 -1 lines 
Merging from release1_p12:
o Modifications for using pkg/exf with pkg/seaice
  - improved description of the various forcing configurations
  - added basic radiation bulk formulae to pkg/exf
  - units/sign fix for evap computation in exf_getffields.F
  - updated verification/global_with_exf/results/output.txt
o Added pkg/sbo for computing IERS Special Bureau for the Oceans
  (SBO) core products, including oceanic mass, center-of-mass,
  angular, and bottom pressure (see pkg/sbo/README.sbo).
o Lower bound for viscosity/diffusivity in pkg/kpp/kpp_routines.F
  to avoid negative values in shallow regions.
  - updated verification/natl_box/results/output.txt
  - updated verification/lab_sea/results/output.txt
o MPI gather, scatter: eesupp/src/gather_2d.F and scatter_2d.F
o Added useSingleCpuIO option (see PARAMS.h).
o Updated useSingleCpuIO option in mdsio_writefield.F to
  work with multi-field files, e.g., for single-file pickup.
o pkg/seaice:
  - bug fix in growth.F: QNET for no shortwave case
  - added HeffFile for specifying initial sea-ice thickness
  - changed SEAICE_EXTERNAL_FLUXES wind stress implementation
o Added missing /* */ to CPP comments in pkg/seaice, pkg/exf,
  kpp_transport_t.F, forward_step.F, and the_main_loop.F
o pkg/seaice:
  - adjoint-friendly modifications
  - added a SEAICE_WRITE_PICKUP at end of the_model_main.F
1 C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.13 2002/12/28 10:11:10 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 & useGrdchk,
55 & useECCO,
56 & useSHAP_FILT,
57 & useZONAL_FILT,
58 & useFLT,
59 & usePTRACERS,
60 & useSBO,
61 & useSEAICE,
62 & useBulkforce,
63 & useThermSEAICE
64
65
66 CEOP
67
68 _BEGIN_MASTER(myThid)
69
70 WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
71 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 useKPP=.FALSE.
82 useGMRedi=.FALSE.
83 useOBCS=.FALSE.
84 useAIM=.FALSE.
85 useGrdchk=.FALSE.
86 useECCO=.FALSE.
87 useSHAP_FILT=.FALSE.
88 useZONAL_FILT=.FALSE.
89 useFLT=.FALSE.
90 usePTRACERS=.FALSE.
91 useSBO=.FALSE.
92 useSeaIce=.FALSE.
93 cswdblk -- add
94 useBulkforce=.FALSE.
95 cswdblk -- end add ---
96 cswdice --- add ---
97 useThermSeaIce=.FALSE.
98 cswdice --- end add ---
99
100
101 C-- Read parameters from open data file
102 READ(UNIT=iUnit,NML=PACKAGES)
103
104
105 WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
106 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
107 & SQUEEZE_RIGHT , 1)
108
109 C-- Close the open data file
110 CLOSE(iUnit)
111 _END_MASTER(myThid)
112
113 C-- Everyone else must wait for the parameters to be loaded
114 _BARRIER
115
116 return
117 end
  ViewVC Help
Powered by ViewVC 1.1.22