pkg/atm_compon_interf/CPL_PARAMS.h

C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/CPL_PARAMS.h,v 1.2 2004/05/21 20:00:48 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 (atmos)
C     *==========================================================*

C--   COMMON /CPL_ATM_PAR_L/: logical parameters
C     cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence
C     cpl_oldPickup :: restart from an old pickup (= until checkpoint 52m_post)
C     useImportMxlD :: True => use Imported Mix.Layer Detph from coupler
C     useImportSST  :: True => use the Imported SST from coupler
C     useImportSSS  :: True => use the Imported SSS from coupler
C     useImportVsq  :: True => use the Imported Surf. velocity^2
C     useImportFlxCO2 :: True => use the Imported air-sea CO2 fluxes from coupler
      COMMON /CPL_ATM_PAR_L/
     &  cpl_earlyExpImpCall, cpl_oldPickup,
     &  useImportMxlD, useImportSST, useImportSSS,
     &  useImportVsq, useImportFlxCO2

      LOGICAL cpl_earlyExpImpCall
      LOGICAL cpl_oldPickup
      LOGICAL useImportMxlD, useImportSST, useImportSSS
      LOGICAL useImportVsq, useImportFlxCO2

C--   COMMON /CPL_ATM_PAR_I/: Integer valued parameters
C     cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter
      COMMON /CPL_ATM_PAR_I/
     &  cplSendFrq_iter
      INTEGER cplSendFrq_iter

C--   COMMON /CPL_ATM_PAR_C/: Character valued parameters
c     CHARACTER*(MAX_LEN_FNAM) cpl_atmFile

C--   COMMON /CPL_ATM_PAR_R/: real-type parameters
C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)
c     COMMON /CPL_ATM_PAR_R/
c    &    cpl_atmSendFrq

#endif /* COMPONENT_MODULE */
1	C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/CPL_PARAMS.h,v 1.2 2004/05/21 20:00:48 jmc Exp $
2	C $Name: $
3
4	#ifdef COMPONENT_MODULE
5	C ==========================================================
6	C \| CPL_PARAMS.h
7	C \| o Header file for Coupling component interface
8	C ==========================================================
9	C \| this version is specific to 1 component (atmos)
10	C ==========================================================
11
12	C-- COMMON /CPL_ATM_PAR_L/: logical parameters
13	C cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence
14	C cpl_oldPickup :: restart from an old pickup (= until checkpoint 52m_post)
15	C useImportMxlD :: True => use Imported Mix.Layer Detph from coupler
16	C useImportSST :: True => use the Imported SST from coupler
17	C useImportSSS :: True => use the Imported SSS from coupler
18	C useImportVsq :: True => use the Imported Surf. velocity^2
19	C useImportFlxCO2 :: True => use the Imported air-sea CO2 fluxes from coupler
20	COMMON /CPL_ATM_PAR_L/
21	& cpl_earlyExpImpCall, cpl_oldPickup,
22	& useImportMxlD, useImportSST, useImportSSS,
23	& useImportVsq, useImportFlxCO2
24
25	LOGICAL cpl_earlyExpImpCall
26	LOGICAL cpl_oldPickup
27	LOGICAL useImportMxlD, useImportSST, useImportSSS
28	LOGICAL useImportVsq, useImportFlxCO2
29
30	C-- COMMON /CPL_ATM_PAR_I/: Integer valued parameters
31	C cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter
32	COMMON /CPL_ATM_PAR_I/
33	& cplSendFrq_iter
34	INTEGER cplSendFrq_iter
35
36	C-- COMMON /CPL_ATM_PAR_C/: Character valued parameters
37	c CHARACTER*(MAX_LEN_FNAM) cpl_atmFile
38
39	C-- COMMON /CPL_ATM_PAR_R/: real-type parameters
40	C cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s)
41	c COMMON /CPL_ATM_PAR_R/
42	c & cpl_atmSendFrq
43
44	#endif /* COMPONENT_MODULE */