/[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.15 by jmc, Wed Apr 9 17:55:12 2008 UTC revision 1.16 by dfer, Wed Apr 9 20:10:04 2008 UTC
# Line 40  C  msgBuf              :: message buffer Line 40  C  msgBuf              :: message buffer
40  c     PARAMETER ( UNSET_I      = 123456789  )  c     PARAMETER ( UNSET_I      = 123456789  )
41  CEOP  CEOP
42    
43    C- Sub-package on/off flags: not fully implemented, requires
44    C  to test the flag before any corresponding pkg S/R call
45    
46        NAMELIST /GCHEM_PARM01/        NAMELIST /GCHEM_PARM01/
47       &                   tIter0,       &                   nsubtime,
48         &                   useDIC,
49         &                   useCFC,
50       &                   Filename1,       &                   Filename1,
51       &                   Filename2,       &                   Filename2,
52       &                   Filename3,       &                   Filename3,
53       &                   Filename4,       &                   Filename4,
54       &                   Filename5,       &                   Filename5,
      &                   nsubtime,  
55       &           gchem_int1, gchem_int2, gchem_int3,       &           gchem_int1, gchem_int2, gchem_int3,
56       &           gchem_int4, gchem_int5,       &           gchem_int4, gchem_int5,
57       &           gchem_rl1, gchem_rl2, gchem_rl3,       &           gchem_rl1, gchem_rl2, gchem_rl3,
58       &           gchem_rl4, gchem_rl5,       &           gchem_rl4, gchem_rl5,
59       &           gchem_ForcingPeriod, gchem_ForcingCycle       &           gchem_ForcingPeriod, gchem_ForcingCycle,
60         &           tIter0
61    
62  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
63    
# Line 98  C Open and read the data.gchem file Line 103  C Open and read the data.gchem file
103  C Close the open data file  C Close the open data file
104        CLOSE(iUnit)        CLOSE(iUnit)
105    
 C- Sub-package on/off flags: until fully implemented, which requires  
 C   a) to read the flag value from data.gchem  
 C   b) to test the flag before any corresponding pkg S/R call  
 C- (for now) just it turned on when the corresponding pkg is compliled  
 #ifdef ALLOW_DIC  
        useDIC = .TRUE.  
 #endif  
 #ifdef ALLOW_CFC  
        useCFC = .TRUE.  
 #endif  
   
106  C- Check for retired parameters:  C- Check for retired parameters:
107        IF ( tIter0 .NE. UNSET_I ) THEN        IF ( tIter0 .NE. UNSET_I ) THEN
108  c      nRetired = nRetired+1  c      nRetired = nRetired+1
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22