forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
CPL_PARAMS.h
104 lines (94 loc) · 4.35 KB
/
CPL_PARAMS.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/CPL_PARAMS.h,v 1.8 2016/01/06 01:05:45 jmc Exp $
C $Name: $
#ifdef COMPONENT_MODULE
C *==========================================================*
C | CPL_PARAMS.h
C | o Header file for Coupling component interface
C *==========================================================*
C | this version is specific to 1 component (ocean)
C *==========================================================*
C-- COMMON /CPL_OCN_SWITCH/: from coupler, control switch
C of optionnally exchanged fields;
C cpl_exchange_RunOff :: controls exchange of RunOff fields
C cpl_exchange1W_sIce :: controls 1-way exchange of seaice (step fwd in ATM)
C cpl_exchange2W_sIce :: controls 2-way exchange of ThSIce variables
C cpl_exchange_SaltPl :: controls exchange of Salt-Plume fields
C cpl_exchange_DIC :: controls exchange of DIC variables
COMMON /CPL_OCN_SWITCH/
& cpl_exchange_RunOff,
& cpl_exchange1W_sIce, cpl_exchange2W_sIce,
& cpl_exchange_SaltPl,
& cpl_exchange_DIC
INTEGER cpl_exchange_RunOff
INTEGER cpl_exchange1W_sIce
INTEGER cpl_exchange2W_sIce
INTEGER cpl_exchange_SaltPl
INTEGER cpl_exchange_DIC
C-- COMMON /CPL_OCN_PAR_L/: logical parameters
C ocn_cplSequential :: use Sequential Coupling (instead of Synchronous)
C ocn_cplExch_RunOff :: exchange RunOff fields with coupler
C ocn_cplExch1W_sIce :: 1-way exchange of seaice fields with coupler
C ocn_cplExch2W_sIce :: 2-way exchange of ThSIce fields with coupler
C ocn_cplExch_SaltPl :: exchange Salt-Plume fields with coupler
C ocn_cplExch_DIC :: exchange DIC fields with coupler
C useImportHFlx :: True => use the Imported HeatFlux from couler
C useImportFW :: True => use the Imported Fresh Water flux fr cpl
C useImportTau :: True => use the Imported Wind-Stress from couler
C useImportSLP :: True => use the Imported Sea-level Pressure
C useImportRunOff :: True => use the Imported RunOff flux from coupler
C useImportSIce :: True => use the Imported Sea-Ice mass as ice-loading
C useImportThSIce :: True => use the Imported thSIce state var from coupler
C useImportSltPlm :: True => use the Imported Salt-Plume flux from coupler
C useImportFice :: True => use the Imported Seaice fraction (DIC-only)
C useImportCO2 :: True => use the Imported atmos. CO2 from coupler
C useImportWSpd :: True => use the Imported surf. Wind speed from coupler
COMMON /CPL_OCN_PAR_L/
& ocn_cplSequential,
& ocn_cplExch_RunOff,
& ocn_cplExch1W_sIce, ocn_cplExch2W_sIce, ocn_cplExch_SaltPl,
& ocn_cplExch_DIC,
& useImportHFlx, useImportFW, useImportTau,
& useImportSLP, useImportRunOff,
& useImportSIce, useImportThSIce, useImportSltPlm,
& useImportFice, useImportCO2, useImportWSpd,
& cpl_snapshot_mdsio, cpl_snapshot_mnc,
& cpl_timeave_mdsio, cpl_timeave_mnc
LOGICAL ocn_cplSequential
LOGICAL ocn_cplExch_RunOff
LOGICAL ocn_cplExch1W_sIce
LOGICAL ocn_cplExch2W_sIce
LOGICAL ocn_cplExch_SaltPl
LOGICAL ocn_cplExch_DIC
LOGICAL useImportHFlx
LOGICAL useImportFW
LOGICAL useImportTau
LOGICAL useImportSLP
LOGICAL useImportRunOff
LOGICAL useImportSIce
LOGICAL useImportThSIce
LOGICAL useImportSltPlm
LOGICAL useImportFice
LOGICAL useImportCO2
LOGICAL useImportWSpd
LOGICAL
& cpl_snapshot_mdsio, cpl_snapshot_mnc,
& cpl_timeave_mdsio, cpl_timeave_mnc
C-- COMMON /CPL_OCN_PAR_I/: Integer valued parameters
C maxNumberPrint :: max number of printed Export/Import messages
C countPrtExp :: counter for printed Export message
C countPrtImp :: counter for printed Import message
C cplErrorCount :: counter for errors in coupling config
COMMON /CPL_OCN_PAR_I/
& cplErrorCount
INTEGER cplErrorCount
C-- COMMON /CPL_OCN_PAR_C/: Character valued parameters
c CHARACTER*(MAX_LEN_FNAM) cpl_ocnFile
C-- COMMON /CPL_OCN_PAR_R/: real-type parameters
C cpl_taveFreq :: Frequency^-1 for time-Aver. output (s)
COMMON /CPL_OCN_PAR_R/
& cpl_taveFreq
_RL cpl_taveFreq
#endif /* COMPONENT_MODULE */
CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***