/[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.14 - (hide 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 dimitri 1.14 C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.13 2002/12/28 10:11:10 dimitri 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 cheisey 1.11 C data.pkg namelists
46 cheisey 1.12 cswdblk -- add useBulkforce to NAMELIST
47     cswdice -- addd useThermSeaIce to NAMELIST
48 cheisey 1.11
49 heimbach 1.1 NAMELIST /PACKAGES/
50     & useKPP,
51     & useGMRedi,
52 adcroft 1.2 & useOBCS,
53 jmc 1.3 & useAIM,
54 heimbach 1.5 & useGrdchk,
55 adcroft 1.4 & useECCO,
56 adcroft 1.6 & useSHAP_FILT,
57 jmc 1.8 & useZONAL_FILT,
58 adcroft 1.9 & useFLT,
59 heimbach 1.10 & usePTRACERS,
60 dimitri 1.14 & useSBO,
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 dimitri 1.14 useSBO=.FALSE.
92 cheisey 1.11 useSeaIce=.FALSE.
93     cswdblk -- add
94 cheisey 1.12 useBulkforce=.FALSE.
95 cheisey 1.11 cswdblk -- end add ---
96     cswdice --- add ---
97 cheisey 1.12 useThermSeaIce=.FALSE.
98 cheisey 1.11 cswdice --- end add ---
99    
100 heimbach 1.1
101     C-- Read parameters from open data file
102     READ(UNIT=iUnit,NML=PACKAGES)
103    
104    
105 cnh 1.7 WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
106 heimbach 1.1 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