/[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.6 by cnh, Fri Nov 6 22:44:44 1998 UTC revision 1.7 by heimbach, Fri Jun 9 02:45:04 2000 UTC
# Line 51  C     (This is now the actual hydrostati Line 51  C     (This is now the actual hydrostati
51  C     points)  C     points)
52        DO j=jMin,jMax        DO j=jMin,jMax
53         DO i=iMin,iMax         DO i=iMin,iMax
54    #ifdef ALLOW_AUTODIFF_TAMC
55    CADJ GENERAL
56    #endif
57          phiHyd(i,j,K)=phiHyd(i,j,Km1)-rhoConst*halfLayer          phiHyd(i,j,K)=phiHyd(i,j,Km1)-rhoConst*halfLayer
58       &  *0.5 _d 0*( drF(Km1)+drF(K) )*gamma       &  *0.5 _d 0*( drF(Km1)+drF(K) )*gamma
59       &  *0.5 _d 0*( buoyKM1(i,j)+buoyKP1(i,j) )       &  *0.5 _d 0*( buoyKM1(i,j)+buoyKP1(i,j) )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22