/[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.8.2.4 by adcroft, Thu Jan 25 19:43:32 2001 UTC revision 1.8.2.5 by jmc, Wed Jan 31 17:11:16 2001 UTC
# Line 170  C--------------------------------------- Line 170  C---------------------------------------
170                phiHyd(i,j,K)=phiHyd(i,j,K-1)                phiHyd(i,j,K)=phiHyd(i,j,K-1)
171       &           -( ddRm*(theta(I,J,K-1,bi,bj)-tRef(K-1))       &           -( ddRm*(theta(I,J,K-1,bi,bj)-tRef(K-1))
172       &             +ddRp*(theta(I,J, K ,bi,bj)-tRef( K )) )       &             +ddRp*(theta(I,J, K ,bi,bj)-tRef( K )) )
173  C             Old code bug looked like this  C             Old code (atmos-exact) looked like this
174  Cold          phiHyd(i,j,K)=phiHyd(i,j,K-1)-(ddRm1*  Cold          phiHyd(i,j,K)=phiHyd(i,j,K-1) - ddRm1*
175  Cold &      (theta(I,J,K-1,bi,bj)+theta(I,J,K,bi,bj))-tRef(K))  Cold &      (theta(I,J,K-1,bi,bj)+theta(I,J,K,bi,bj)-2.*tRef(K))
176              ENDDO              ENDDO
177            ENDDO            ENDDO
178          ENDIF          ENDIF
Legend:
Removed from v.1.8.2.4  
changed lines
  Added in v.1.8.2.5
  ViewVC Help
Powered by ViewVC 1.1.22