/[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.6 by mlosch, Fri Nov 19 21:28:47 2004 UTC revision 1.7 by jmc, Sat May 14 22:51:45 2005 UTC
# Line 28  C  none Line 28  C  none
28  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
29    
30  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
31    C  tIter0               :: retired parameter
32  C  iTracer              :: loop indices  C  iTracer              :: loop indices
33  C  iUnit                :: unit number for I/O  C  iUnit                :: unit number for I/O
34  C  msgBuf               :: message buffer  C  msgBuf               :: message buffer
35          INTEGER tIter0, UNSET_I
36        INTEGER iTracer        INTEGER iTracer
37        INTEGER iUnit        INTEGER iUnit
38        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
39          PARAMETER ( UNSET_I      = 123456789  )
40  CEOP  CEOP
41    
42          NAMELIST /GCHEM_PARM01/
43         &                   tIter0,
44         &                   WindFile,
45         &                   IceFile,
46         &                   AtmospFile,
47         &                   IronFile,
48         &                   SilicaFile,
49         &                   nsubtime
50    
51  C Set defaults values for parameters in GCHEM.h  C Set defaults values for parameters in GCHEM.h
52         tIter0=0         tIter0 = UNSET_I
53         nsubtime=1         nsubtime=1
54         windFile=' '         windFile=' '
55         atmospFile=' '         atmospFile=' '
# Line 46  C Set defaults values for parameters in Line 58  C Set defaults values for parameters in
58         SilicaFile=' '         SilicaFile=' '
59    
60    
61  C Open and read the data.ptracers file  C Open and read the data.gchem file
62        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
63        WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem'        WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem'
64        CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
# Line 63  C Open and read the data.ptracers file Line 75  C Open and read the data.ptracers file
75    
76  C Close the open data file  C Close the open data file
77        CLOSE(iUnit)        CLOSE(iUnit)
78    
79    C- Check for retired parameters:
80          IF ( tIter0 .NE. UNSET_I ) THEN
81    c      nRetired = nRetired+1
82           WRITE(msgBuf,'(A,A)')
83         &  'S/R GCHEM_READPARMS: Paramater "tIter0" is',
84         &  ' no longer allowed in file "data.gchem"'
85           CALL PRINT_ERROR( msgBuf , myThid)
86           WRITE(msgBuf,'(A,A)')
87         &  'S/R GCHEM_READPARMS: "tIter0" has been moved to',
88         &  ' PTRACERS_Iter0 in file "data.ptracers".'
89           CALL PRINT_ERROR( msgBuf , myThid)
90           STOP 'ABNORMAL END: S/R GCHEM_READPARMS'
91          ENDIF
92    
93        _END_MASTER(myThid)        _END_MASTER(myThid)
94    
95  C Everyone else must wait for the parameters to be loaded  C Everyone else must wait for the parameters to be loaded
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22