/[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.13 by jmc, Fri Nov 4 01:19:24 2005 UTC revision 1.14 by cnh, Mon Nov 7 18:26:02 2005 UTC
# Line 67  C     I,K    - Loop counters Line 67  C     I,K    - Loop counters
67           if ( tAlpha .eq. UNSET_RL ) tAlpha = 2.  _d -4           if ( tAlpha .eq. UNSET_RL ) tAlpha = 2.  _d -4
68           if ( sBeta  .eq. UNSET_RL ) sBeta  = 7.4 _d -4           if ( sBeta  .eq. UNSET_RL ) sBeta  = 7.4 _d -4
69        elseif ( equationOfState .eq. 'POLY3' ) then        elseif ( equationOfState .eq. 'POLY3' ) then
70             _BEGIN_MASTER( myThid )
71           OPEN(37,FILE='POLY3.COEFFS',STATUS='OLD',FORM='FORMATTED')           OPEN(37,FILE='POLY3.COEFFS',STATUS='OLD',FORM='FORMATTED')
72           READ(37,*) I           READ(37,*) I
73           IF (I.NE.Nr) THEN           IF (I.NE.Nr) THEN
# Line 83  C     I,K    - Loop counters Line 84  C     I,K    - Loop counters
84              READ(37,*) (eosC(I,K),I=1,9)              READ(37,*) (eosC(I,K),I=1,9)
85           ENDDO           ENDDO
86           CLOSE(37)           CLOSE(37)
87             _END_MASTER( myThid )
88             _BARRIER
89    
90        elseif ( equationOfState(1:5) .eq. 'JMD95'        elseif ( equationOfState(1:5) .eq. 'JMD95'
91       &         .or. equationOfState .eq. 'UNESCO' ) then       &         .or. equationOfState .eq. 'UNESCO' ) then
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22