/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/atm2d_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/atm2d_readparms.F

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

revision 1.1 by jscott, Fri Aug 11 18:55:49 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 6  C Line 6  C
6  C     /==========================================================\  C     /==========================================================\
7  C     | SUBROUTINE ATM2D_READPARMS                               |  C     | SUBROUTINE ATM2D_READPARMS                               |
8  C     |==========================================================|  C     |==========================================================|
9  C     | Initialize  1DTO2D  parameters, read in data.1dto2d      |  C     | Initialize ATM2D parameters, read in data.atm2d          |
10  C     \==========================================================/  C     \==========================================================/
11        IMPLICIT NONE        IMPLICIT NONE
12    
# Line 43  C     msgBuf      - Informational/error Line 43  C     msgBuf      - Informational/error
43  C     iUnit       - Work variable for IO unit number  C     iUnit       - Work variable for IO unit number
44        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
45        INTEGER iUnit        INTEGER iUnit
46        INTEGER j        INTEGER j     ! loop counter
47    
48    
49        WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: opening data.atm2d'        WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: opening data.atm2d'
# Line 103  c Line 103  c
103  C--   Close the open data file  C--   Close the open data file
104        CLOSE(iUnit)        CLOSE(iUnit)
105    
106        IF (tauThetaRelax.NE.0.D0) r_tauThetaRelax= 1.D0/tauThetaRelax        IF (tauThetaRelax .NE. 0. _d 0)
107        IF (tauSaltRelax.NE.0.D0) r_tauSaltRelax= 1.D0/tauSaltRelax       &                  r_tauThetaRelax= 1. _d 0/tauThetaRelax
108          IF (tauSaltRelax .NE. 0. _d 0)
109         &                  r_tauSaltRelax= 1. _d 0/tauSaltRelax
110    
111        RETURN        RETURN
112        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22