/[MITgcm]/MITgcm/pkg/atm_compon_interf/CPL_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/CPL_PARAMS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Fri May 21 20:00:48 2004 UTC revision 1.3 by jmc, Mon Jun 18 21:28:52 2007 UTC
# Line 16  C     useImportMxlD :: True => use Impor Line 16  C     useImportMxlD :: True => use Impor
16  C     useImportSST  :: True => use the Imported SST from coupler  C     useImportSST  :: True => use the Imported SST from coupler
17  C     useImportSSS  :: True => use the Imported SSS from coupler  C     useImportSSS  :: True => use the Imported SSS from coupler
18  C     useImportVsq  :: True => use the Imported Surf. velocity^2  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/        COMMON /CPL_ATM_PAR_L/
21       &  cpl_earlyExpImpCall, cpl_oldPickup,       &  cpl_earlyExpImpCall, cpl_oldPickup,
22       &  useImportMxlD, useImportSST, useImportSSS, useImportVsq       &  useImportMxlD, useImportSST, useImportSSS,
23         &  useImportVsq, useImportFlxCO2
24    
25        LOGICAL cpl_earlyExpImpCall        LOGICAL cpl_earlyExpImpCall
26        LOGICAL cpl_oldPickup        LOGICAL cpl_oldPickup
27        LOGICAL useImportMxlD, useImportSST, useImportSSS, useImportVsq        LOGICAL useImportMxlD, useImportSST, useImportSSS
28          LOGICAL useImportVsq, useImportFlxCO2
29    
30  C--   COMMON /CPL_ATM_PAR_I/: Integer valued parameters  C--   COMMON /CPL_ATM_PAR_I/: Integer valued parameters
31  C     cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter  C     cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter
# Line 35  c     CHARACTER*(MAX_LEN_FNAM) cpl_atmFi Line 38  c     CHARACTER*(MAX_LEN_FNAM) cpl_atmFi
38    
39  C--   COMMON /CPL_ATM_PAR_R/: real-type parameters  C--   COMMON /CPL_ATM_PAR_R/: real-type parameters
40  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)
41  c     COMMON /CPL_ATM_PAR_R/  c     COMMON /CPL_ATM_PAR_R/
42  c    &    cpl_atmSendFrq  c    &    cpl_atmSendFrq
43    
44  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22