/[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.1 by cnh, Thu Aug 20 18:47:27 1998 UTC revision 1.2 by cnh, Sat Aug 22 17:51:07 1998 UTC
# Line 3  C $Header$ Line 3  C $Header$
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
5        SUBROUTINE CALC_PHI_HYD( bi, bj, iMin, iMax, jMin, jMax, K,        SUBROUTINE CALC_PHI_HYD( bi, bj, iMin, iMax, jMin, jMax, K,
6       I    buoyKM1, buoyKP1k, phiHyd, myThid)       I    buoyKM1, buoyKP1, phiHyd, myThid)
7  C     /==========================================================\  C     /==========================================================\
8  C     | SUBROUTINE CALC_PHI_HYD                                  |  C     | SUBROUTINE CALC_PHI_HYD                                  |
9  C     | o Integrate the hydrostatic relation to find phiHyd.     |  C     | o Integrate the hydrostatic relation to find phiHyd.     |
# Line 20  C     == Routine arguments == Line 20  C     == Routine arguments ==
20        INTEGER bi,bj,iMin,iMax,jMin,jMax,K        INTEGER bi,bj,iMin,iMax,jMin,jMax,K
21        _RL buoyKM1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL buoyKM1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
22        _RL buoyKP1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL buoyKP1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
23        _RL phiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)        _RL phiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
24        integer myThid        integer myThid
25  C     == Local variables ==  C     == Local variables ==
26        INTEGER i,j,Km1        INTEGER i,j,Km1
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22