/[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.3 by cnh, Sat Sep 5 17:52:13 1998 UTC revision 1.4 by cnh, Wed Sep 9 15:04:44 1998 UTC
# Line 39  C     (This is now the actual hydrostati Line 39  C     (This is now the actual hydrostati
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) )*recip_HoriVertRatio
43       &  *0.5 _d 0*( buoyKM1(i,j)+buoyKP1(i,j) )       &  *0.5 _d 0*( buoyKM1(i,j)+buoyKP1(i,j) )
44       &  *rkFac  C    &  *rkFac
45         ENDDO         ENDDO
46        ENDDO        ENDDO
47    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22