/[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.2 by jscott, Tue Aug 22 20:21:38 2006 UTC
# 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.2
  ViewVC Help
Powered by ViewVC 1.1.22