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	jmc	1.3	C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/CPL_PARAMS.h,v 1.2 2004/05/21 20:00:48 jmc Exp $
2	jmc	1.1	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	jmc	1.2	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	jmc	1.3	C useImportFlxCO2 :: True => use the Imported air-sea CO2 fluxes from coupler
20	jmc	1.2	COMMON /CPL_ATM_PAR_L/
21			& cpl_earlyExpImpCall, cpl_oldPickup,
22	jmc	1.3	& useImportMxlD, useImportSST, useImportSSS,
23			& useImportVsq, useImportFlxCO2
24	jmc	1.2
25			LOGICAL cpl_earlyExpImpCall
26			LOGICAL cpl_oldPickup
27	jmc	1.3	LOGICAL useImportMxlD, useImportSST, useImportSSS
28			LOGICAL useImportVsq, useImportFlxCO2
29	jmc	1.1
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	jmc	1.3	c COMMON /CPL_ATM_PAR_R/
42	jmc	1.1	c & cpl_atmSendFrq
43
44	jmc	1.3	#endif /* COMPONENT_MODULE */