Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |