/[MITgcm]/MITgcm/model/src/pressure_for_eos.F
ViewVC logotype

Diff of /MITgcm/model/src/pressure_for_eos.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Tue Feb 18 15:25:09 2003 UTC revision 1.2 by jmc, Tue Oct 19 02:39:58 2004 UTC
# Line 47  CEOP Line 47  CEOP
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----------
# Line 71  C---------- Line 71  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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22