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

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

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

revision 1.15 by jmc, Tue Oct 17 18:52:34 2006 UTC revision 1.16 by jmc, Thu Jan 24 17:22:06 2008 UTC
# Line 87  C     i,k    :: Loop counters Line 87  C     i,k    :: Loop counters
87           ENDDO           ENDDO
88           CLOSE(37)           CLOSE(37)
89    
90        ELSEIF ( equationOfState(1:5) .EQ. 'JMD95'        ELSEIF ( equationOfState .EQ. 'JMD95Z'
91       &         .OR. equationOfState .EQ. 'UNESCO' ) THEN       &    .OR. equationOfState .EQ. 'JMD95P'
92         &    .OR. equationOfState .EQ. 'UNESCO' ) THEN
93  C  C
94  C     Jackett & McDougall (1995, JPO) equation of state  C     Jackett & McDougall (1995, JPO) equation of state
95  C     rho = R(salinity, potential temperature, pressure)  C     rho = R(salinity, potential temperature, pressure)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22