/[MITgcm]/MITgcm/pkg/gchem/gchem_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_readparms.F

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

revision 1.9 by stephd, Tue May 1 20:48:42 2007 UTC revision 1.10 by stephd, Fri Oct 12 21:23:22 2007 UTC
# Line 16  C !USES: =============================== Line 16  C !USES: ===============================
16        IMPLICIT NONE        IMPLICIT NONE
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19    #include "PARAMS.h"
20  #include "GCHEM.h"  #include "GCHEM.h"
21    
22  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 32  C  tIter0               :: retired param Line 33  C  tIter0               :: retired param
33  C  iTracer              :: loop indices  C  iTracer              :: loop indices
34  C  iUnit                :: unit number for I/O  C  iUnit                :: unit number for I/O
35  C  msgBuf               :: message buffer  C  msgBuf               :: message buffer
36        INTEGER tIter0, UNSET_I        INTEGER tIter0
37        INTEGER iTracer        INTEGER iTracer
38        INTEGER iUnit        INTEGER iUnit
39        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
40        PARAMETER ( UNSET_I      = 123456789  )  c     PARAMETER ( UNSET_I      = 123456789  )
41  CEOP  CEOP
42    
43        NAMELIST /GCHEM_PARM01/        NAMELIST /GCHEM_PARM01/
# Line 55  CEOP Line 56  CEOP
56       &           gchem_int1, gchem_int2, gchem_int3,       &           gchem_int1, gchem_int2, gchem_int3,
57       &           gchem_int4, gchem_int5,       &           gchem_int4, gchem_int5,
58       &           gchem_rl1, gchem_rl2, gchem_rl3,       &           gchem_rl1, gchem_rl2, gchem_rl3,
59       &           gchem_rl4, gchem_rl5       &           gchem_rl4, gchem_rl5,
60         &           gchem_ForcingPeriod, gchem_ForcingCycle
61    
62  C Set defaults values for parameters in GCHEM.h  C Set defaults values for parameters in GCHEM.h
63         tIter0 = UNSET_I         tIter0 = UNSET_I
# Line 80  C Set defaults values for parameters in Line 82  C Set defaults values for parameters in
82         gchem_rl3=0.d0         gchem_rl3=0.d0
83         gchem_rl4=0.d0         gchem_rl4=0.d0
84         gchem_rl5=0.d0         gchem_rl5=0.d0
85    c default periodic forcing to same as for physics
86           gchem_ForcingPeriod=externForcingPeriod
87           gchem_ForcingCycle=externForcingCycle
88  C Open and read the data.gchem file  C Open and read the data.gchem file
89        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
90        WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem'        WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem'
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22