/[MITgcm]/MITgcm/pkg/ptracers/ptracers_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_readparms.F

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

revision 1.29 by jmc, Mon Dec 17 22:03:15 2007 UTC revision 1.30 by jmc, Sat Apr 5 18:22:16 2008 UTC
# Line 39  C     msgBuf     :: message buffer Line 39  C     msgBuf     :: message buffer
39        INTEGER ic        INTEGER ic
40        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
41        _RL PTRACERS_diffKr(PTRACERS_num)        _RL PTRACERS_diffKr(PTRACERS_num)
42          _RL tauTr1ClimRelax
43    
44  C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS  C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS
45  C                          are written to post-processing files.  C                          are written to post-processing files.
46    C     tauTr1ClimRelax :: old parameter (will be removed 1 day)
47        NAMELIST /PTRACERS_PARM01/        NAMELIST /PTRACERS_PARM01/
48         &     tauTr1ClimRelax,
49       &     PTRACERS_dumpFreq,       &     PTRACERS_dumpFreq,
50       &     PTRACERS_taveFreq,       &     PTRACERS_taveFreq,
51       &     PTRACERS_monitorFreq,       &     PTRACERS_monitorFreq,
# Line 123  C     Set defaults values for parameters Line 126  C     Set defaults values for parameters
126        PTRACERS_pickup_write_mnc = .FALSE.        PTRACERS_pickup_write_mnc = .FALSE.
127        PTRACERS_pickup_read_mnc  = .FALSE.        PTRACERS_pickup_read_mnc  = .FALSE.
128  #endif  #endif
129          tauTr1ClimRelax = 0.
130    
131  C     Open and read the data.ptracers file  C     Open and read the data.ptracers file
132        WRITE(msgBuf,'(A)') ' PTRACERS_READPARMS: opening data.ptracers'        WRITE(msgBuf,'(A)') ' PTRACERS_READPARMS: opening data.ptracers'
# Line 144  C     Close the open data file Line 148  C     Close the open data file
148  C     Now set-up any remaining parameters that result from the input  C     Now set-up any remaining parameters that result from the input
149  C     parameters  C     parameters
150    
151    C     Tracer 1 climatology relaxation time scale (<- but the code is gone !)
152          IF ( tauTr1ClimRelax .EQ. 0. ) THEN
153           lambdaTr1ClimRelax = 0.
154          ELSE
155           lambdaTr1ClimRelax = 1./tauTr1ClimRelax
156          ENDIF
157    
158  C     If PTRACERS_numInUse was not set in data.ptracers then we can  C     If PTRACERS_numInUse was not set in data.ptracers then we can
159  C     assume that all PTRACERS fields will be in use  C     assume that all PTRACERS fields will be in use
160        IF (PTRACERS_numInUse.LT.0) THEN        IF (PTRACERS_numInUse.LT.0) THEN
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22