/[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.17 by jahn, Tue Jun 30 16:43:00 2009 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         &                   useDARWIN,
51       &                   Filename1,       &                   Filename1,
52       &                   Filename2,       &                   Filename2,
53       &                   Filename3,       &                   Filename3,
54       &                   Filename4,       &                   Filename4,
55       &                   Filename5,       &                   Filename5,
      &                   nsubtime,  
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       &           gchem_ForcingPeriod, gchem_ForcingCycle,
61         &           tIter0
62    
63  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
64    
# Line 61  C---+----1----+----2----+----3----+----4 Line 67  C---+----1----+----2----+----3----+----4
67  C Set defaults values for parameters in GCHEM.h  C Set defaults values for parameters in GCHEM.h
68         useDIC = .FALSE.         useDIC = .FALSE.
69         useCFC = .FALSE.         useCFC = .FALSE.
70           useDARWIN = .FALSE.
71         tIter0 = UNSET_I         tIter0 = UNSET_I
72         nsubtime=1         nsubtime=1
73         Filename1=' '         Filename1=' '
# Line 98  C Open and read the data.gchem file Line 105  C Open and read the data.gchem file
105  C Close the open data file  C Close the open data file
106        CLOSE(iUnit)        CLOSE(iUnit)
107    
 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  
   
108  C- Check for retired parameters:  C- Check for retired parameters:
109        IF ( tIter0 .NE. UNSET_I ) THEN        IF ( tIter0 .NE. UNSET_I ) THEN
110  c      nRetired = nRetired+1  c      nRetired = nRetired+1
# Line 140  C Everyone else must wait for the parame Line 136  C Everyone else must wait for the parame
136        ENDIF        ENDIF
137  #endif  #endif
138    
139    #ifdef ALLOW_DARWIN
140          IF ( useDARWIN ) THEN
141            CALL DARWIN_READPARMS(myThid)
142          ENDIF
143    #endif
144    
145  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
146    
147        RETURN        RETURN
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22