pkg/ocn_compon_interf/CPL_PARAMS.h

C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/CPL_PARAMS.h,v 1.2 2004/05/21 19:42:26 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_PAR_L/: logical parameters
C     cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence
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 as
C                              atmospheric loading
C     useImportSIce :: True => use the Imported Sea-Ice mass as ice-loading
      COMMON /CPL_OCN_PAR_L/
     &  cpl_earlyExpImpCall,
     &  useImportHFlx, useImportFW, useImportTau, 
     &  useImportSLP, useImportSIce
      LOGICAL cpl_earlyExpImpCall
      LOGICAL useImportHFlx
      LOGICAL useImportFW
      LOGICAL useImportTau
      LOGICAL useImportSLP
      LOGICAL useImportSIce

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 */ 
1	C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/CPL_PARAMS.h,v 1.2 2004/05/21 19:42:26 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 (ocean)
10	C ==========================================================
11
12	C-- COMMON /CPL_OCN_PAR_L/: logical parameters
13	C cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence
14	C useImportHFlx :: True => use the Imported HeatFlux from couler
15	C useImportFW :: True => use the Imported Fresh Water flux fr cpl
16	C useImportTau :: True => use the Imported Wind-Stress from couler
17	C useImportSLP :: True => use the Imported Sea-level Pressure as
18	C atmospheric loading
19	C useImportSIce :: True => use the Imported Sea-Ice mass as ice-loading
20	COMMON /CPL_OCN_PAR_L/
21	& cpl_earlyExpImpCall,
22	& useImportHFlx, useImportFW, useImportTau,
23	& useImportSLP, useImportSIce
24	LOGICAL cpl_earlyExpImpCall
25	LOGICAL useImportHFlx
26	LOGICAL useImportFW
27	LOGICAL useImportTau
28	LOGICAL useImportSLP
29	LOGICAL useImportSIce
30
31	C-- COMMON /CPL_OCN_PAR_C/: Character valued parameters
32	c CHARACTER*(MAX_LEN_FNAM) cpl_ocnFile
33
34	C-- COMMON /CPL_OCN_PAR_R/: real-type parameters
35	C cpl_taveFreq :: Frequency^-1 for time-Aver. output (s)
36	COMMON /CPL_OCN_PAR_R/
37	& cpl_taveFreq
38	_RL cpl_taveFreq
39
40	#endif /* COMPONENT_MODULE */