/[MITgcm]/MITgcm/model/src/ini_cg3d.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cg3d.F

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

revision 1.22 by jmc, Tue Dec 5 05:25:08 2006 UTC revision 1.23 by jmc, Mon Mar 12 23:43:54 2007 UTC
# Line 135  C  deep-model: *deepFacC (faceArea), /de Line 135  C  deep-model: *deepFacC (faceArea), /de
135           ENDDO           ENDDO
136          ENDDO          ENDDO
137          DO K=2,Nr          DO K=2,Nr
138           tmpFac = nh_Fac*recip_horiVertRatio*recip_horiVertRatio           tmpFac = nh_Fac*rVel2wUnit(k)*rVel2wUnit(k)
139       &          + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k)       &          + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k)
140           IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac           IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac
141           DO J=1,sNy           DO J=1,sNy
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22