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