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

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

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

Revision 1.17 - (show annotations) (download)
Tue Feb 18 05:33:54 2003 UTC (21 years, 2 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.16: +7 -0 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
2 #include "CPP_OPTIONS.h"
3
4 CStartOfInterface
5 CBOP
6 C !ROUTINE: PACKAGES_READPARMS
7 C !INTERFACE:
8 SUBROUTINE PACKAGES_READPARMS(myThid)
9
10 C !DESCRIPTION: \bv
11 C *==========================================================*
12 C | SUBROUTINE PACKAGES_READPARMS
13 C | o Read runtime package configuration parameters
14 C *==========================================================*
15 C | Packages can have internal runtime configuration
16 C | parameters. A package provides a routine
17 C | ${PKGNAME}_READ_PARMS to read these parameters. In
18 C | general this routine should read parameters from a file
19 C | called data.${pkgname}.
20 C | This routine (S/R PACKAGES_READPARMS) calls per-package
21 C | parameter reading routines.
22 C *==========================================================*
23 C \ev
24
25 C !CALLING SEQUENCE:
26 C PACKAGES_READPARMS
27 C |
28 C |-- GMREDI_READPARMS
29 C |
30 C |-- KPP_READPARMS
31 C |
32 C |-- SBO_READPARMS
33 C |
34 C |-- SEAICE_READPARMS
35 C |
36 C |-- SHAP_FILT_READPARMS
37 C |
38 C |-- ZONAL_FILT_READPARMS
39 C |
40 C |-- OBCS_READPARMS
41 C |
42 C |-- AIM_INITIALISE
43 C |
44 C |-- COST_READPARMS
45 C |
46 C |-- CTRL_INIT
47 C |
48 C |-- OPTIM_READPARMS
49 C |
50 C |-- GRDCHK_READPARMS
51 C |
52 C |-- ECCO_READPARMS
53
54
55 C !USES:
56 IMPLICIT NONE
57 C == Global variables ==
58 #include "SIZE.h"
59 #include "EEPARAMS.h"
60 #include "PARAMS.h"
61
62 C == Routine arguments ==
63 INTEGER myThid
64 CEOP
65
66 #ifdef ALLOW_GMREDI
67 C-- Initialize GM/Redi parameters
68 IF (useGMRedi) CALL GMREDI_READPARMS( myThid )
69 #endif
70
71 #ifdef ALLOW_KPP
72 C-- Initialize KPP parameters
73 IF (useKPP) CALL KPP_READPARMS( myThid )
74 #endif
75
76 #ifdef ALLOW_SBO
77 C-- Initialize SBO parameters
78 IF (useSBO) CALL SBO_READPARMS( myThid )
79 #endif
80
81 #ifdef ALLOW_SEAICE
82 C-- Initialize SEAICE parameters
83 IF (useSEAICE) CALL SEAICE_READPARMS( myThid )
84 #endif
85
86 #ifdef ALLOW_SHAP_FILT
87 IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid )
88 #endif
89
90 #ifdef ALLOW_ZONAL_FILT
91 IF (useZONAL_FILT) CALL ZONAL_FILT_READPARMS( myThid )
92 #endif
93
94 #ifdef ALLOW_OBCS
95 IF (useOBCS) CALL OBCS_READPARMS( myThid )
96 #endif
97
98 cswdblk -- add ---
99 #ifdef ALLOW_BULK_FORCE
100 C -- initialize Bulkf parameters
101 IF (useBulkForce) call BULKF_READPARMS( myThid )
102 #endif
103 cswdblk --- end add ---
104
105 cswdice -- add ---
106 #ifdef ALLOW_THERM_SEAICE
107 C -- initialize Sea Ice parameters
108 IF (useThermSeaIce) call ICE_READPARMS( myThid )
109 #endif
110 cswdice --- end add ---
111
112
113 #ifdef ALLOW_PTRACERS
114 IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )
115 #endif
116
117 #ifdef ALLOW_AIM
118 C-- Initialise & Read AIM physical parameters
119 IF (useAIM) CALL AIM_INITIALISE( myThid )
120 #endif
121
122 #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
123 C-- Initialise the optim. parameters.
124 call optim_readparms( myThid )
125 _BARRIER
126 C-- Initialise the control vector.
127 CALL ctrl_init( myThid )
128 _BARRIER
129 #endif
130
131 #ifdef ALLOW_GRADIENT_CHECK
132 C-- Initialise gradient check parameters
133 if (useGrdchk) call grdchk_readparms( myThid )
134 #endif
135
136 #ifdef ALLOW_CALENDAR
137 C-- Initialise the calendar package.
138 call cal_readparms( myThid )
139 #endif
140
141 C-- Custom routine to set forcing fields.
142 #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
143 call exf_readparms ( mythid )
144 #endif
145
146 #ifdef INCLUDE_ECCO_PACKAGE
147 c-- Initialize ECCO package parameters
148 IF (useECCO) CALL ECCO_READPARMS ( myThid )
149 #else
150 # ifdef ALLOW_COST
151 C-- Initialise the cost function.
152 call cost_readparms( mythid )
153 _BARRIER
154 # endif
155 #endif
156
157 END
  ViewVC Help
Powered by ViewVC 1.1.22