47 |
C |
C |
48 |
C provide the pressure for use in the equation of state |
C provide the pressure for use in the equation of state |
49 |
C |
C |
50 |
IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN |
IF ( usingZCoords ) THEN |
51 |
C in Z coordinates the pressure is rho0 * (hydrostatic) Potential |
C in Z coordinates the pressure is rho0 * (hydrostatic) Potential |
52 |
IF ( useDynP_inEos_Zc ) THEN |
IF ( useDynP_inEos_Zc ) THEN |
53 |
C---------- |
C---------- |
71 |
ENDDO |
ENDDO |
72 |
ENDDO |
ENDDO |
73 |
ENDIF |
ENDIF |
74 |
ELSEIF ( buoyancyRelation .EQ. 'ATMOSPHERIC' |
ELSEIF ( usingPCoords ) THEN |
|
& .OR. buoyancyRelation .EQ. 'OCEANICP' ) THEN |
|
75 |
C in P coordinates the pressure is just the coordinate of |
C in P coordinates the pressure is just the coordinate of |
76 |
C the tracer point |
C the tracer point |
77 |
DO j=1-Oly,sNy+Oly |
DO j=1-Oly,sNy+Oly |