Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:40:51 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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
                0025 C  gchem_ForcingPeriod :: periodic forcing parameter specific for gchem (seconds)
                0026 C  gchem_ForcingCycle  :: periodic forcing parameter specific for gchem (seconds)
                0027 CEOP
                0028 
                0029       COMMON /GCHEM_PARM_L/
5dae554984 Oliv*0030      &              useCFC,
0b2b69e236 Jean*0031      &              useDIC,
                0032      &              useBLING,
011faa4555 Jean*0033      &              useSPOIL,
5dae554984 Oliv*0034      &              useDARWIN
011faa4555 Jean*0035       LOGICAL useCFC, useDIC, useBLING, useSPOIL, useDARWIN
652de42f4a Jean*0036 
011faa4555 Jean*0037       COMMON /GCHEM_PARM_C/
                0038      &                   fileName1, fileName2, fileName3,
                0039      &                   fileName4, fileName5
                0040       CHARACTER*(MAX_LEN_FNAM) fileName1
                0041       CHARACTER*(MAX_LEN_FNAM) fileName2
                0042       CHARACTER*(MAX_LEN_FNAM) fileName3
                0043       CHARACTER*(MAX_LEN_FNAM) fileName4
                0044       CHARACTER*(MAX_LEN_FNAM) fileName5
daab022f42 Step*0045 
011faa4555 Jean*0046       COMMON /GCHEM_PARM_I/
                0047      &           gchem_Tracer_num, gchem_sepFTr_num,
                0048      &           nsubtime,   gchem_int1, gchem_int2,
                0049      &           gchem_int3, gchem_int4, gchem_int5
                0050       INTEGER gchem_Tracer_num
                0051       INTEGER gchem_sepFTr_num
daab022f42 Step*0052       INTEGER nsubtime
9b49463ca4 Step*0053       INTEGER gchem_int1
                0054       INTEGER gchem_int2
                0055       INTEGER gchem_int3
                0056       INTEGER gchem_int4
                0057       INTEGER gchem_int5
011faa4555 Jean*0058 
                0059       COMMON /GCHEM_PARM_R/
                0060      &           gchem_rl1, gchem_rl2, gchem_rl3,
                0061      &           gchem_rl4, gchem_rl5,
                0062      &           gchem_ForcingPeriod, gchem_ForcingCycle
9b49463ca4 Step*0063       _RL     gchem_rl1
                0064       _RL     gchem_rl2
                0065       _RL     gchem_rl3
                0066       _RL     gchem_rl4
                0067       _RL     gchem_rl5
e1858e35fd Step*0068       _RL     gchem_ForcingPeriod
                0069       _RL     gchem_ForcingCycle
9b49463ca4 Step*0070 
969f3d7839 Mart*0071 #endif /* ALLOW_GCHEM */