/[MITgcm]/MITgcm_contrib/darwin/pkg/gchem/GCHEM.h
ViewVC logotype

Diff of /MITgcm_contrib/darwin/pkg/gchem/GCHEM.h

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

revision 1.1 by jahn, Fri Jan 11 21:28:01 2008 UTC revision 1.2 by jahn, Mon Jun 2 20:32:49 2008 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  CBOP  CBOP
7  C    !ROUTINE: GCHEM.h  C    !ROUTINE: GCHEM.h
8  C    !INTERFACE:  C    !INTERFACE:
9    
10  C    !DESCRIPTION:  C    !DESCRIPTION:
11  C Contains tracer parameters and input files for chemical tracers.  C Contains tracer parameters and input files for chemical tracers.
12  C These can be read in from data.gchem  C These can be read in from data.gchem
13  C  C
14  C  nsubtime   : : number of chemistry timesteps per deltaTtracer  C--   COMMON /GCHEM_PARM_L/ Logical valued parameters used by GCHEM pkg.
15  C                 (default 1)  C     useDIC    :: flag to turn on/off DIC pkg
16  C  WindFile   : : file name of wind speeds that may be needed for  C     useCFC    :: flag to turn on/off CFC pkg
17  C                 biogeochemical experiments  C     useDARWIN :: flag to turn on/off darwin pkg
18  C  AtmospFile : : file name of atmospheric pressure that may be needed for  C
19  C                 biogeochemical experiments  C--   COMMON /GCHEM_PARAMS/
20  C  IceFile    : : file name of seaice fraction that may be needed for  C  nsubtime    :: number of chemistry timesteps per deltaTtracer
21  C                 biogeochemical experiments  C                 (default 1)
22  C  IronFile   : : file name of aeolian iron flux that may be needed for  C  Filename*   :: various spare filenames
23  C                 biogeochemical experiments  C  gchem_int*  :: place holder to read in a integer number, set at run time
24  C  SilicaFile : : file name of surface silica that may be needed for  C  gchem_rl*   :: place holder to read in a real number, set at run time
25  C                 biogeochemical experiments  C  gchem_ForcingPeriod :: periodic forcing parameter specific for gchem (seconds)
26  C  Filename*  : : various spare filenames  C  gchem_ForcingCycle  :: periodic forcing parameter specific for gchem (seconds)
27  C  gchem_int* : : place holder to read in a integer number, set at run time  
28  C  gchem_rl*  : : place holder to read in a real number, set at run time  CEOP
29  c  gchem_ForcingPeriod : : periodic forcing parameter specific for gchem (seconds)  
30  c  gchem_ForcingCycle  : : periodic forcing parameter specific for gchem (seconds)        COMMON /GCHEM_PARM_L/
31         &              useDIC,
32         &              useCFC,
33         &              useDARWIN
34    
35          LOGICAL useDIC, useCFC, useDARWIN
36    
37          COMMON /GCHEM_PARAMS/
38         &                   Filename1,
39         &                   Filename2,
40         &                   Filename3,
41         &                   Filename4,
42         &                   Filename5,
43         &                   nsubtime,
44         &           gchem_int1, gchem_int2, gchem_int3,
45         &           gchem_int4, gchem_int5,
46         &           gchem_rl1, gchem_rl2, gchem_rl3,
47         &           gchem_rl4, gchem_rl5,
48         &           gchem_ForcingPeriod, gchem_ForcingCycle
49    
 C    
50        INTEGER nsubtime        INTEGER nsubtime
       CHARACTER*(MAX_LEN_FNAM) WindFile  
       CHARACTER*(MAX_LEN_FNAM) AtmospFile  
       CHARACTER*(MAX_LEN_FNAM) IceFile  
       CHARACTER*(MAX_LEN_FNAM) IronFile  
       CHARACTER*(MAX_LEN_FNAM) SilicaFile  
51        CHARACTER*(MAX_LEN_FNAM) Filename1        CHARACTER*(MAX_LEN_FNAM) Filename1
52        CHARACTER*(MAX_LEN_FNAM) Filename2        CHARACTER*(MAX_LEN_FNAM) Filename2
53        CHARACTER*(MAX_LEN_FNAM) Filename3        CHARACTER*(MAX_LEN_FNAM) Filename3
# Line 54  C Line 66  C
66        _RL     gchem_ForcingPeriod        _RL     gchem_ForcingPeriod
67        _RL     gchem_ForcingCycle        _RL     gchem_ForcingCycle
68    
   
       COMMON /GCHEM_PARAMS/  
      &                   WindFile,  
      &                   AtmospFile,  
      &                   IceFile,  
      &                   IronFile,  
      &                   SilicaFile,  
      &                   Filename1,  
      &                   Filename2,  
      &                   Filename3,  
      &                   Filename4,  
      &                   Filename5,  
      &                   nsubtime,  
      &           gchem_int1, gchem_int2, gchem_int3,  
      &           gchem_int4, gchem_int5,  
      &           gchem_rl1, gchem_rl2, gchem_rl3,  
      &           gchem_rl4, gchem_rl5,  
      &           gchem_ForcingPeriod, gchem_ForcingCycle  
 CEOP  
   
69  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22