/[MITgcm]/MITgcm/pkg/aim_v23/aim_dyn2aim.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_dyn2aim.F

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

revision 1.1 by jmc, Fri Nov 22 17:17:03 2002 UTC revision 1.2 by jmc, Mon May 26 18:57:24 2003 UTC
# Line 209  C     Fsurf = Ffull(nlev)+WVS*(Ffull(nle Line 209  C     Fsurf = Ffull(nlev)+WVS*(Ffull(nle
209          WVSurf(I2,myThid) = 0.          WVSurf(I2,myThid) = 0.
210          K = kGrd(I2)          K = kGrd(I2)
211          IF (K.GT.1) THEN          IF (K.GT.1) THEN
212            WVSurf(I2,myThid) = (LOG(SIGH(K))-SIGL(K))*WVI(K-1,2)  C- full cell version of Franco Molteni formula:
213    c         WVSurf(I2,myThid) = (LOG(SIGH(K))-SIGL(K))*WVI(K-1,2)
214    C- partial cell version using true log-P extrapolation:
215              WVSurf(I2,myThid) = (LOG(PSA(I2))-SIGL(K))*WVI(K-1,1)
216  C- like in the old code:  C- like in the old code:
217  c         WVSurf(I2,myThid) = WVI(K,2)  c         WVSurf(I2,myThid) = WVI(K,2)
218          ENDIF          ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22