pkg/gchem/GCHEM.h

5bff508b97 Step*0001 #ifdef ALLOW_GCHEM
daab022f42 Step*0002
                0003 CBOP
                0004 C    !ROUTINE: GCHEM.h
                0005 C    !INTERFACE:
652de42f4a Jean*0006
daab022f42 Step*0007 C    !DESCRIPTION:
                0008 C Contains tracer parameters and input files for chemical tracers.
8120bbf77d Step*0009 C These can be read in from data.gchem
                0010 C
652de42f4a Jean*0011 C--   COMMON /GCHEM_PARM_L/ Logical valued parameters used by GCHEM pkg.
5dae554984 Oliv*0012 C     useCFC    :: flag to turn on/off CFC pkg
0b2b69e236 Jean*0013 C     useDIC    :: flag to turn on/off DIC pkg
                0014 C     useBLING  :: flag to turn on/off BLING pkg
011faa4555 Jean*0015 C     useSPOIL  :: flag to turn on/off SPOIL pkg
5dae554984 Oliv*0016 C     useDARWIN :: flag to turn on/off darwin pkg
652de42f4a Jean*0017 C
                0018 C--   COMMON /GCHEM_PARAMS/
011faa4555 Jean*0019 C  gchem_Tracer_num :: number of Geo-Chemistry tracers
                0020 C  gchem_sepFTr_num :: number of GChem tracers that use Separate Forcing
                0021 C  nsubtime    :: number of chemistry timesteps per deltaTtracer (default 1)
                0022 C  fileName*   :: various spare filenames
652de42f4a Jean*0023 C  gchem_int*  :: place holder to read in a integer number, set at run time
                0024 C  gchem_rl*   :: place holder to read in a real number, set at run time
2a2b7d0c36 Mart*0025 C  gchem_ForcingPeriod  :: periodic forcing parameter specific for gchem (secs)
                0026 C  gchem_ForcingCycle   :: periodic forcing parameter specific for gchem (secs)
                0027 C  gchem_secondsPerYear :: used for gchem_insolation only (secs)
652de42f4a Jean*0028 CEOP
                0029
                0030       COMMON /GCHEM_PARM_L/
5dae554984 Oliv*0031      &              useCFC,
0b2b69e236 Jean*0032      &              useDIC,
                0033      &              useBLING,
011faa4555 Jean*0034      &              useSPOIL,
5dae554984 Oliv*0035      &              useDARWIN
011faa4555 Jean*0036       LOGICAL useCFC, useDIC, useBLING, useSPOIL, useDARWIN
652de42f4a Jean*0037
011faa4555 Jean*0038       COMMON /GCHEM_PARM_C/
                0039      &                   fileName1, fileName2, fileName3,
                0040      &                   fileName4, fileName5
                0041       CHARACTER*(MAX_LEN_FNAM) fileName1
                0042       CHARACTER*(MAX_LEN_FNAM) fileName2
                0043       CHARACTER*(MAX_LEN_FNAM) fileName3
                0044       CHARACTER*(MAX_LEN_FNAM) fileName4
                0045       CHARACTER*(MAX_LEN_FNAM) fileName5
daab022f42 Step*0046
011faa4555 Jean*0047       COMMON /GCHEM_PARM_I/
                0048      &           gchem_Tracer_num, gchem_sepFTr_num,
                0049      &           nsubtime,   gchem_int1, gchem_int2,
                0050      &           gchem_int3, gchem_int4, gchem_int5
                0051       INTEGER gchem_Tracer_num
                0052       INTEGER gchem_sepFTr_num
daab022f42 Step*0053       INTEGER nsubtime
9b49463ca4 Step*0054       INTEGER gchem_int1
                0055       INTEGER gchem_int2
                0056       INTEGER gchem_int3
                0057       INTEGER gchem_int4
                0058       INTEGER gchem_int5
011faa4555 Jean*0059
                0060       COMMON /GCHEM_PARM_R/
                0061      &           gchem_rl1, gchem_rl2, gchem_rl3,
                0062      &           gchem_rl4, gchem_rl5,
2a2b7d0c36 Mart*0063      &           gchem_ForcingPeriod, gchem_ForcingCycle,
                0064      &           gchem_secondsPerYear
9b49463ca4 Step*0065       _RL     gchem_rl1
                0066       _RL     gchem_rl2
                0067       _RL     gchem_rl3
                0068       _RL     gchem_rl4
                0069       _RL     gchem_rl5
e1858e35fd Step*0070       _RL     gchem_ForcingPeriod
                0071       _RL     gchem_ForcingCycle
2a2b7d0c36 Mart*0072       _RL     gchem_secondsPerYear
9b49463ca4 Step*0073
969f3d7839 Mart*0074 #endif /* ALLOW_GCHEM */