Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by gforget, Mon Oct 26 00:43:38 2009 UTC | revision 1.4 by gforget, Mon Oct 26 21:48:43 2009 UTC | |
---|---|---|
# | Line 64 C i,j :: Loop counters | Line 64 C i,j :: Loop counters |
64 | PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) | PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
65 | CEOP | CEOP |
66 | ||
DO j=jMin,jMax | ||
DO i=iMin,iMax | ||
phiHydLow(i,j,bi,bj) = 0. _d 0 | ||
ENDDO | ||
ENDDO | ||
67 | IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN | IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN |
68 | ||
69 | C----- Compute bottom pressure deviation from gravity*rho0*H | C----- Compute bottom pressure deviation from gravity*rho0*H |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |