pkg/atm_ocn_coupler/CPL_PARAMS.h

7f58e89433 Jean*0001 C     *==========================================================*
                0002 C     | CPL_PARAMS.h
                0003 C     |  - parameter for the Coupler, holds in common block
                0004 C     *==========================================================*
8276725b84 Jean*0005
                0006 C--   COMMON /CPL_PAR_I/ Integer parameters
6502611145 Jean*0007 C     cpl_sequential   :: =0/1 : selects Synchronous/Sequential Coupling
                0008 C-- cpl_exchange_[xxx] :: controls exchange of [xxx] fields with OCN & ATM comp:
                0009 C                      ::  =0 : none ; =1,3 : exch [xxx] fields with OCN comp.
                0010 C                      ::              =2,3 : exch [xxx] fileds with ATM comp.
                0011 C     cpl_exchange_RunOff :: controls exchange of RunOff fields
                0012 C     cpl_exchange1W_sIce :: controls 1-way exchange of seaice (step fwd in ATM)
                0013 C     cpl_exchange2W_sIce :: controls 2-way exchange of ThSIce variables
                0014 C     cpl_exchange_SaltPl :: controls exchange of Salt-Plume fields
                0015 C     cpl_exchange_DIC    :: controls exchange of DIC variables
                0016 C--
8276725b84 Jean*0017 C     runOffMapSize    :: Nunber of connected grid points in RunOff-Map
7f58e89433 Jean*0018 C     nCouplingSteps   :: Number of coupling steps
8276725b84 Jean*0019 C     nSteps_atm       :: Number of coupling steps done by ATM
                0020 C     nSteps_ocn       :: Number of coupling steps done by OCN
6502611145 Jean*0021 C     cplErrorCount    :: counter for errors in coupling config
7f58e89433 Jean*0022       COMMON /CPL_PAR_I/
6502611145 Jean*0023      &     cpl_sequential,
                0024      &     cpl_exchange_RunOff,
                0025      &     cpl_exchange1W_sIce, cpl_exchange2W_sIce,
                0026      &     cpl_exchange_SaltPl,
                0027      &     cpl_exchange_DIC,
8276725b84 Jean*0028      &     runOffMapSize,
                0029      &     nCouplingSteps,
6502611145 Jean*0030      &     nSteps_atm, nSteps_ocn,
                0031      &     cplErrorCount
                0032       INTEGER cpl_sequential
                0033       INTEGER cpl_exchange_RunOff
                0034       INTEGER cpl_exchange1W_sIce
                0035       INTEGER cpl_exchange2W_sIce
                0036       INTEGER cpl_exchange_SaltPl
                0037       INTEGER cpl_exchange_DIC
8276725b84 Jean*0038       INTEGER runOffMapSize
7f58e89433 Jean*0039       INTEGER nCouplingSteps
8276725b84 Jean*0040       INTEGER nSteps_atm, nSteps_ocn
6502611145 Jean*0041       INTEGER cplErrorCount
8276725b84 Jean*0042
                0043 C--   COMMON /CPL_PAR_C/ Character parameters
                0044 C     runOffMapFile    :: Input file for setting runoffmap
                0045       COMMON /CPL_PAR_C/ runOffMapFile
                0046       CHARACTER*80 runOffMapFile
                0047