/[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.10.2.2 by heimbach, Tue Jun 24 23:05:29 2003 UTC revision 1.11 by jmc, Tue Oct 19 02:39:58 2004 UTC
# Line 39  C     I,J,K Line 39  C     I,J,K
39        INTEGER  I,  J,  K        INTEGER  I,  J,  K
40        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
41                
42        IF ( buoyancyRelation .EQ. 'ATMOSPHERIC' ) RETURN        IF ( .NOT.fluidIsWater ) RETURN
43    
44        equationOfState = eosType        equationOfState = eosType
45    
# Line 94  C     rho = R(salinity, potential temper Line 94  C     rho = R(salinity, potential temper
94  C     pressure needs to be available (from the previous  C     pressure needs to be available (from the previous
95  C     time step to linearize the problem)  C     time step to linearize the problem)
96  C  C
97           if ( equationOfState .eq. 'JMD95Z'           if ( equationOfState .eq. 'JMD95Z' .and. usingPCoords ) then
      &        .and. buoyancyRelation .eq. 'OCEANICP' ) then  
98              write(msgBuf,'(A)')              write(msgBuf,'(A)')
99       &      'ini_eos: equation of state ''JMD95Z'' should not'       &      'ini_eos: equation of state ''JMD95Z'' should not'
100              CALL PRINT_ERROR( msgBuf , 1)              CALL PRINT_ERROR( msgBuf , 1)
Legend:
Removed from v.1.10.2.2  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22