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

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

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

revision 1.2 by cnh, Sat Aug 22 17:51:07 1998 UTC revision 1.3 by cnh, Sat Sep 5 17:52:13 1998 UTC
# Line 38  C--   Contribution to phiHyd(:,:,K) from Line 38  C--   Contribution to phiHyd(:,:,K) from
38  C     (This is now the actual hydrostatic pressure|height at the T/S points)  C     (This is now the actual hydrostatic pressure|height at the T/S points)
39        DO j=jMin,jMax        DO j=jMin,jMax
40         DO i=iMin,iMax         DO i=iMin,iMax
41          phiHyd(i,j,K)=phiHyd(i,j,Km1)+rhoConst*halfLayer          phiHyd(i,j,K)=phiHyd(i,j,Km1)-rhoConst*halfLayer
42       &  *0.5 _d 0*(drF(Km1)+drF(K))       &  *0.5 _d 0*(drF(Km1)+drF(K))
43       &  *0.5 _d 0*( buoyKM1(i,j)+buoyKP1(i,j) )       &  *0.5 _d 0*( buoyKM1(i,j)+buoyKP1(i,j) )
44         &  *rkFac
45         ENDDO         ENDDO
46        ENDDO        ENDDO
47    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22