C $Header: /u/gcmpack/MITgcm/pkg/gchem/GCHEM.h,v 1.15 2017/12/29 19:35:37 jmc Exp $
C $Name: $
#ifdef ALLOW_GCHEM
CBOP
C !ROUTINE: GCHEM.h
C !INTERFACE:
C !DESCRIPTION:
C Contains tracer parameters and input files for chemical tracers.
C These can be read in from data.gchem
C
C-- COMMON /GCHEM_PARM_L/ Logical valued parameters used by GCHEM pkg.
C useCFC :: flag to turn on/off CFC pkg
C useDIC :: flag to turn on/off DIC pkg
C useBLING :: flag to turn on/off BLING pkg
C useSPOIL :: flag to turn on/off SPOIL pkg
C useDARWIN :: flag to turn on/off darwin pkg
C
C-- COMMON /GCHEM_PARAMS/
C gchem_Tracer_num :: number of Geo-Chemistry tracers
C gchem_sepFTr_num :: number of GChem tracers that use Separate Forcing
C nsubtime :: number of chemistry timesteps per deltaTtracer (default 1)
C fileName* :: various spare filenames
C gchem_int* :: place holder to read in a integer number, set at run time
C gchem_rl* :: place holder to read in a real number, set at run time
C gchem_ForcingPeriod :: periodic forcing parameter specific for gchem (seconds)
C gchem_ForcingCycle :: periodic forcing parameter specific for gchem (seconds)
CEOP
COMMON /GCHEM_PARM_L/
& useCFC,
& useDIC,
& useBLING,
& useSPOIL,
& useDARWIN
LOGICAL useCFC, useDIC, useBLING, useSPOIL, useDARWIN
COMMON /GCHEM_PARM_C/
& fileName1, fileName2, fileName3,
& fileName4, fileName5
CHARACTER*(MAX_LEN_FNAM) fileName1
CHARACTER*(MAX_LEN_FNAM) fileName2
CHARACTER*(MAX_LEN_FNAM) fileName3
CHARACTER*(MAX_LEN_FNAM) fileName4
CHARACTER*(MAX_LEN_FNAM) fileName5
COMMON /GCHEM_PARM_I/
& gchem_Tracer_num, gchem_sepFTr_num,
& nsubtime, gchem_int1, gchem_int2,
& gchem_int3, gchem_int4, gchem_int5
INTEGER gchem_Tracer_num
INTEGER gchem_sepFTr_num
INTEGER nsubtime
INTEGER gchem_int1
INTEGER gchem_int2
INTEGER gchem_int3
INTEGER gchem_int4
INTEGER gchem_int5
COMMON /GCHEM_PARM_R/
& gchem_rl1, gchem_rl2, gchem_rl3,
& gchem_rl4, gchem_rl5,
& gchem_ForcingPeriod, gchem_ForcingCycle
_RL gchem_rl1
_RL gchem_rl2
_RL gchem_rl3
_RL gchem_rl4
_RL gchem_rl5
_RL gchem_ForcingPeriod
_RL gchem_ForcingCycle
#endif /* ALLOW_GCHEM */