67 |
IF ( usingZCoords ) THEN |
IF ( usingZCoords ) THEN |
68 |
|
|
69 |
C----- Compute bottom pressure deviation from gravity*rho0*H |
C----- Compute bottom pressure deviation from gravity*rho0*H |
70 |
C Start from phiHyd at the (bottom) tracer point and add Del_h*g*rho' |
C Start from phiHyd at the (bottom) tracer point and add Del_h*g*rho_prime |
71 |
C with Del_h = distance from the bottom up to tracer point |
C with Del_h = distance from the bottom up to tracer point |
72 |
|
|
73 |
C-- Initialise to zero (otherwise phi0surf accumulate over land) |
C-- Initialise to zero (otherwise phi0surf accumulate over land) |