/[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.17 by jahn, Tue Jun 30 16:43:00 2009 UTC revision 1.22 by mlosch, Wed Aug 9 15:23:37 2017 UTC
# Line 31  C  none Line 31  C  none
31  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
32  C  tIter0               :: retired parameter  C  tIter0               :: retired parameter
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        INTEGER tIter0
       INTEGER iTracer  
37        INTEGER iUnit        INTEGER iUnit
38        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
 c     PARAMETER ( UNSET_I      = 123456789  )  
39  CEOP  CEOP
40    
41  C- Sub-package on/off flags: not fully implemented, requires  C- Sub-package on/off flags: not fully implemented, requires
# Line 45  C  to test the flag before any correspon Line 43  C  to test the flag before any correspon
43    
44        NAMELIST /GCHEM_PARM01/        NAMELIST /GCHEM_PARM01/
45       &                   nsubtime,       &                   nsubtime,
      &                   useDIC,  
46       &                   useCFC,       &                   useCFC,
47         &                   useDIC,
48         &                   useBLING,
49       &                   useDARWIN,       &                   useDARWIN,
50       &                   Filename1,       &                   Filename1,
51       &                   Filename2,       &                   Filename2,
# Line 62  C  to test the flag before any correspon Line 61  C  to test the flag before any correspon
61    
62  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
63    
64          IF ( .NOT.useGCHEM ) THEN
65    C-    pkg GCHEM is not used
66            _BEGIN_MASTER(myThid)
67    C-    Track pkg activation status:
68    C     print a (weak) warning if data.gchem is found
69             CALL PACKAGES_UNUSED_MSG( 'useGCHEM', ' ', ' ' )
70            _END_MASTER(myThid)
71            RETURN
72          ENDIF
73    
74        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
75    
76  C Set defaults values for parameters in GCHEM.h  C Set defaults values for parameters in GCHEM.h
        useDIC = .FALSE.  
77         useCFC = .FALSE.         useCFC = .FALSE.
78           useDIC = .FALSE.
79           useBLING  = .FALSE.
80         useDARWIN = .FALSE.         useDARWIN = .FALSE.
81         tIter0 = UNSET_I         tIter0 = UNSET_I
82         nsubtime=1         nsubtime=1
# Line 103  C Open and read the data.gchem file Line 113  C Open and read the data.gchem file
113       &                   SQUEEZE_RIGHT , 1)       &                   SQUEEZE_RIGHT , 1)
114    
115  C Close the open data file  C Close the open data file
116    #ifdef SINGLE_DISK_IO
117        CLOSE(iUnit)        CLOSE(iUnit)
118    #else
119          CLOSE(iUnit,STATUS='DELETE')
120    #endif /* SINGLE_DISK_IO */
121    
122  C- Check for retired parameters:  C- Check for retired parameters:
123        IF ( tIter0 .NE. UNSET_I ) THEN        IF ( tIter0 .NE. UNSET_I ) THEN
# Line 124  c      nRetired = nRetired+1 Line 138  c      nRetired = nRetired+1
138  C Everyone else must wait for the parameters to be loaded  C Everyone else must wait for the parameters to be loaded
139        _BARRIER        _BARRIER
140    
141    #ifdef ALLOW_CFC
142          IF ( useCFC ) THEN
143            CALL CFC_READPARMS(myThid)
144          ENDIF
145    #endif
146    
147  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
148        IF ( useDIC ) THEN        IF ( useDIC ) THEN
149          CALL DIC_READPARMS(myThid)          CALL DIC_READPARMS(myThid)
150        ENDIF        ENDIF
151  #endif  #endif
152    
153  #ifdef ALLOW_CFC  #ifdef ALLOW_BLING
154        IF ( useCFC ) THEN        IF ( useBLING ) THEN
155          CALL CFC_READPARMS(myThid)          CALL BLING_READPARMS(myThid)
156        ENDIF        ENDIF
157  #endif  #endif
158    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22