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

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

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

Revision 1.10 - (hide annotations) (download)
Tue Feb 18 15:34:25 2003 UTC (21 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint50c_post, checkpoint52d_pre, checkpoint50c_pre, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint48i_post, checkpoint50d_pre, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint51, checkpoint50, checkpoint53, checkpoint52, checkpoint50d_post, checkpoint52f_post, checkpoint50b_pre, checkpoint54f_post, checkpoint51f_post, checkpoint51d_post, checkpoint51t_post, checkpoint51n_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint55c_post, checkpoint51j_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint51l_pre, checkpoint52m_post, checkpoint55g_post, checkpoint48h_post, checkpoint51q_post, checkpoint51b_pre, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52f_pre, checkpoint55d_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, branchpoint-genmake2, checkpoint54a_post, checkpoint51r_post, checkpoint51i_post, checkpoint55b_post, checkpoint51b_post, checkpoint51c_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, checkpoint50g_post, checkpoint52a_pre, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint53f_post, checkpoint52j_post, checkpoint50e_post, branch-netcdf, checkpoint52l_post, checkpoint52n_post, checkpoint53b_pre, checkpoint51e_post, checkpoint55a_post, checkpoint49, checkpoint51o_post, checkpoint51f_pre, checkpoint48g_post, checkpoint53b_post, checkpoint52a_post, checkpoint51g_post, ecco_c52_e35, checkpoint50b_post, checkpoint51m_post, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-genmake2, branch-nonh, tg2-branch, ecco-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.9: +11 -74 lines 
o compute locally the pressure for use in EOS : UNESCO, JMD95P or MDJWF
o store total Potential in totPhyHyd for diagnostic (DYNVARS.h)
o fix restart and overlap Pb when using Z-coord and EOS funct. of P
1 jmc 1.10 C $Header: /u/gcmpack/MITgcm/model/src/ini_eos.F,v 1.9 2003/02/03 21:58:09 jmc Exp $
2 mlosch 1.2 C $Name: $
3 mlosch 1.1
4     #include "CPP_OPTIONS.h"
5 jmc 1.10 #define EXCLUDE_EOS_CHECK
6 mlosch 1.1
7     CBOP
8     C !ROUTINE: INI_EOS
9     C !INTERFACE:
10     subroutine ini_eos( myThid )
11     C !DESCRIPTION: \bv
12     C *==========================================================*
13     C | SUBROUTINE INI_EOS
14     C | o Initialise coefficients of equation of state.
15     C *==========================================================*
16     C \ev
17    
18     C !USES:
19    
20     implicit none
21     C == Global variables ==
22     #include "SIZE.h"
23     #include "EEPARAMS.h"
24     #include "PARAMS.h"
25     #include "EOS.h"
26     #include "GRID.h"
27 mlosch 1.4 #include "DYNVARS.h"
28 mlosch 1.1
29     C !INPUT/OUTPUT PARAMETERS:
30     C == Routine arguments ==
31     C myThid - Number of this instance of INI_CORI
32     INTEGER myThid
33    
34     C !LOCAL VARIABLES:
35     C == Local variables ==
36     C bi,bj - Loop counters
37     C I,J,K
38     INTEGER bi, bj
39     INTEGER I, J, K
40     CHARACTER*(MAX_LEN_MBUF) msgBuf
41    
42 jmc 1.10 IF ( buoyancyRelation .EQ. 'ATMOSPHERIC' ) RETURN
43 mlosch 1.1
44     equationOfState = eosType
45    
46 mlosch 1.4 do k = 1,6
47     eosJMDCFw(k) = 0. _d 0
48     end do
49     do k = 1,9
50     eosJMDCSw(k) = 0. _d 0
51     end do
52     do k = 1,5
53     eosJMDCKFw(k) = 0. _d 0
54     end do
55     do k = 1,7
56     eosJMDCKSw(k) = 0. _d 0
57     end do
58     do k = 1,14
59     eosJMDCKP(k) = 0. _d 0
60     end do
61     do k = 0,11
62     eosMDJWFnum(k) = 0. _d 0
63     end do
64     do k = 0,12
65     eosMDJWFden(k) = 0. _d 0
66     end do
67    
68 mlosch 1.1 if ( equationOfState .eq. 'LINEAR' ) then
69     if ( tAlpha .eq. UNSET_RL ) tAlpha = 2.D-4
70     if ( sBeta .eq. UNSET_RL ) sBeta = 7.4D-4
71     elseif ( equationOfState .eq. 'POLY3' ) then
72     OPEN(37,FILE='POLY3.COEFFS',STATUS='OLD',FORM='FORMATTED')
73     READ(37,*) I
74     IF (I.NE.Nr) THEN
75     WRITE(msgBuf,'(A)')
76     & 'ini_eos: attempt to read POLY3.COEFFS failed'
77     CALL PRINT_ERROR( msgBuf , 1)
78     WRITE(msgBuf,'(A)')
79     & ' because bad # of levels in data'
80     CALL PRINT_ERROR( msgBuf , 1)
81     STOP 'Bad data in POLY3.COEFFS'
82     ENDIF
83     READ(37,*) (eosRefT(K),eosRefS(K),eosSig0(K),K=1,Nr)
84     DO K=1,Nr
85     READ(37,*) (eosC(I,K),I=1,9)
86     ENDDO
87     CLOSE(37)
88 mlosch 1.2
89 mlosch 1.1 elseif ( equationOfState(1:5) .eq. 'JMD95'
90     & .or. equationOfState .eq. 'UNESCO' ) then
91     C
92     C Jackett & McDougall (1995, JPO) equation of state
93     C rho = R(salinity, potential temperature, pressure)
94     C pressure needs to be available (from the previous
95     C time step to linearize the problem)
96     C
97 mlosch 1.2 if ( equationOfState .eq. 'JMD95Z'
98     & .and. buoyancyRelation .eq. 'OCEANICP' ) then
99     write(msgBuf,'(A)')
100     & 'ini_eos: equation of state ''JMD95Z'' should not'
101     CALL PRINT_ERROR( msgBuf , 1)
102     write(msgBuf,'(A)')
103     & ' be used together with pressure coordinates.'
104     CALL PRINT_ERROR( msgBuf , 1)
105     write(msgBuf,'(A)')
106     & ' Use only ''JMD95P'' with ''OCEANICP''.'
107     CALL PRINT_ERROR( msgBuf , 1)
108     STOP 'ABNORMAL END: S/R INI_EOS'
109     endif
110 mlosch 1.1
111     C coefficients nonlinear equation of state in pressure coordinates for
112     C 1. density of fresh water at p = 0
113     eosJMDCFw(1) = 999.842594
114     eosJMDCFw(2) = 6.793952 _d -02
115     eosJMDCFw(3) = - 9.095290 _d -03
116     eosJMDCFw(4) = 1.001685 _d -04
117     eosJMDCFw(5) = - 1.120083 _d -06
118     eosJMDCFw(6) = 6.536332 _d -09
119     C 2. density of sea water at p = 0
120     eosJMDCSw(1) = 8.24493 _d -01
121     eosJMDCSw(2) = - 4.0899 _d -03
122     eosJMDCSw(3) = 7.6438 _d -05
123     eosJMDCSw(4) = - 8.2467 _d -07
124     eosJMDCSw(5) = 5.3875 _d -09
125     eosJMDCSw(6) = - 5.72466 _d -03
126     eosJMDCSw(7) = 1.0227 _d -04
127     eosJMDCSw(8) = - 1.6546 _d -06
128     eosJMDCSw(9) = 4.8314 _d -04
129     if ( equationOfState(1:5) .eq. 'JMD95' ) then
130     C 3. secant bulk modulus K of fresh water at p = 0
131     eosJMDCKFw(1) = 1.965933 _d +04
132     eosJMDCKFw(2) = 1.444304 _d +02
133     eosJMDCKFw(3) = - 1.706103 _d +00
134     eosJMDCKFw(4) = 9.648704 _d -03
135     eosJMDCKFw(5) = - 4.190253 _d -05
136     C 4. secant bulk modulus K of sea water at p = 0
137     eosJMDCKSw(1) = 5.284855 _d +01
138     eosJMDCKSw(2) = - 3.101089 _d -01
139     eosJMDCKSw(3) = 6.283263 _d -03
140     eosJMDCKSw(4) = - 5.084188 _d -05
141     eosJMDCKSw(5) = 3.886640 _d -01
142     eosJMDCKSw(6) = 9.085835 _d -03
143     eosJMDCKSw(7) = - 4.619924 _d -04
144     C 5. secant bulk modulus K of sea water at p
145     eosJMDCKP( 1) = 3.186519 _d +00
146     eosJMDCKP( 2) = 2.212276 _d -02
147     eosJMDCKP( 3) = - 2.984642 _d -04
148     eosJMDCKP( 4) = 1.956415 _d -06
149     eosJMDCKP( 5) = 6.704388 _d -03
150     eosJMDCKP( 6) = - 1.847318 _d -04
151     eosJMDCKP( 7) = 2.059331 _d -07
152     eosJMDCKP( 8) = 1.480266 _d -04
153     eosJMDCKP( 9) = 2.102898 _d -04
154     eosJMDCKP(10) = - 1.202016 _d -05
155     eosJMDCKP(11) = 1.394680 _d -07
156     eosJMDCKP(12) = - 2.040237 _d -06
157     eosJMDCKP(13) = 6.128773 _d -08
158     eosJMDCKP(14) = 6.207323 _d -10
159    
160     elseif ( equationOfState .eq. 'UNESCO' ) then
161    
162     write(msgBuf,'(a)')
163     & 'WARNING WARNING WARNING WARNING WARNING WARNING '
164     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
165     & SQUEEZE_RIGHT , 1)
166     write(msgBuf,'(a,a)')
167     & 'WARNING: using the UNESCO formula with potential ',
168     & 'temperature'
169     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
170     & SQUEEZE_RIGHT , 1)
171     write(msgBuf,'(a)')
172     & 'WARNING: can result in density errors of up to 5%'
173     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
174     & SQUEEZE_RIGHT , 1)
175     write(msgBuf,'(a)')
176 mlosch 1.5 & 'WARNING: (see Jackett and McDougall 1995, JAOT)'
177 mlosch 1.1 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
178     & SQUEEZE_RIGHT , 1)
179     write(msgBuf,'(a)')
180     & 'WARNING WARNING WARNING WARNING WARNING WARNING '
181     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
182     & SQUEEZE_RIGHT , 1)
183    
184     C 3. secant bulk modulus K of fresh water at p = 0
185     eosJMDCKFw(1) = 1.965221 _d +04
186     eosJMDCKFw(2) = 1.484206 _d +02
187     eosJMDCKFw(3) = - 2.327105 _d +00
188     eosJMDCKFw(4) = 1.360477 _d -02
189     eosJMDCKFw(5) = - 5.155288 _d -05
190     C 4. secant bulk modulus K of sea water at p = 0
191     eosJMDCKSw(1) = 5.46746 _d +01
192     eosJMDCKSw(2) = - 0.603459 _d +00
193     eosJMDCKSw(3) = 1.09987 _d -02
194     eosJMDCKSw(4) = - 6.1670 _d -05
195     eosJMDCKSw(5) = 7.944 _d -02
196     eosJMDCKSw(6) = 1.6483 _d -02
197     eosJMDCKSw(7) = - 5.3009 _d -04
198     C 5. secant bulk modulus K of sea water at p
199     eosJMDCKP( 1) = 3.239908 _d +00
200     eosJMDCKP( 2) = 1.43713 _d -03
201     eosJMDCKP( 3) = 1.16092 _d -04
202     eosJMDCKP( 4) = - 5.77905 _d -07
203     eosJMDCKP( 5) = 2.2838 _d -03
204     eosJMDCKP( 6) = - 1.0981 _d -05
205     eosJMDCKP( 7) = - 1.6078 _d -06
206     eosJMDCKP( 8) = 1.91075 _d -04
207     eosJMDCKP( 9) = 8.50935 _d -05
208     eosJMDCKP(10) = - 6.12293 _d -06
209     eosJMDCKP(11) = 5.2787 _d -08
210     eosJMDCKP(12) = - 9.9348 _d -07
211     eosJMDCKP(13) = 2.0816 _d -08
212     eosJMDCKP(14) = 9.1697 _d -10
213     else
214     STOP 'INI_EOS: We should never reach this point!'
215     endif
216    
217 mlosch 1.4 elseif ( equationOfState .eq. 'MDJWF' ) then
218    
219 mlosch 1.7 eosMDJWFnum( 0) = 9.99843699 _d +02
220     eosMDJWFnum( 1) = 7.35212840 _d +00
221     eosMDJWFnum( 2) = -5.45928211 _d -02
222     eosMDJWFnum( 3) = 3.98476704 _d -04
223     eosMDJWFnum( 4) = 2.96938239 _d +00
224     eosMDJWFnum( 5) = -7.23268813 _d -03
225     eosMDJWFnum( 6) = 2.12382341 _d -03
226     eosMDJWFnum( 7) = 1.04004591 _d -02
227     eosMDJWFnum( 8) = 1.03970529 _d -07
228     eosMDJWFnum( 9) = 5.18761880 _d -06
229     eosMDJWFnum(10) = -3.24041825 _d -08
230     eosMDJWFnum(11) = -1.23869360 _d -11
231 mlosch 1.4
232    
233 mlosch 1.7 eosMDJWFden( 0) = 1.00000000 _d +00
234     eosMDJWFden( 1) = 7.28606739 _d -03
235     eosMDJWFden( 2) = -4.60835542 _d -05
236     eosMDJWFden( 3) = 3.68390573 _d -07
237     eosMDJWFden( 4) = 1.80809186 _d -10
238     eosMDJWFden( 5) = 2.14691708 _d -03
239     eosMDJWFden( 6) = -9.27062484 _d -06
240     eosMDJWFden( 7) = -1.78343643 _d -10
241     eosMDJWFden( 8) = 4.76534122 _d -06
242     eosMDJWFden( 9) = 1.63410736 _d -09
243     eosMDJWFden(10) = 5.30848875 _d -06
244     eosMDJWFden(11) = -3.03175128 _d -16
245     eosMDJWFden(12) = -1.27934137 _d -17
246 mlosch 1.4
247 mlosch 1.1 elseif( equationOfState .eq. 'IDEALG' ) then
248     C
249     else
250    
251     write(msgbuf,'(3a)') ' INI_EOS: equationOfState = "',
252     & equationOfState,'"'
253     call print_error( msgbuf, mythid )
254     stop 'ABNORMAL END: S/R INI_EOS'
255    
256     end if
257    
258 jmc 1.8 _BEGIN_MASTER( myThid )
259 jmc 1.9 C-- Check EOS initialisation:
260    
261 mlosch 1.1 call check_eos( myThid )
262 jmc 1.9
263 jmc 1.8 _END_MASTER( myThid )
264 mlosch 1.1
265 jmc 1.10 RETURN
266     END
267 mlosch 1.1
268     CBOP
269     C !ROUTINE: CHECK_EOS
270     C !INTERFACE:
271     subroutine check_eos( myThid )
272     C !DESCRIPTION: \bv
273     C *==========================================================*
274     C | SUBROUTINE CHECK_EOS
275     C | o check the equation of state.
276     C *==========================================================*
277     C \ev
278    
279     C !USES:
280    
281     implicit none
282     #include "SIZE.h"
283     #include "EEPARAMS.h"
284     #include "PARAMS.h"
285     #include "EOS.h"
286    
287     C !INPUT/OUTPUT PARAMETERS:
288     C == Routine arguments ==
289     C myThid - Number of this instance of CHECK_EOS
290     INTEGER myThid
291    
292 jmc 1.10 #ifndef EXCLUDE_EOS_CHECK
293 mlosch 1.1 C !LOCAL VARIABLES:
294     C == Local variables ==
295     C bi,bj - Loop counters
296     C I,J,K
297     INTEGER bi, bj
298     INTEGER imin, imax, jmin, jmax
299     INTEGER I, J, K
300     _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
301     _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
302 mlosch 1.4 _RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly)
303 mlosch 1.1 _RL bulkMod(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
304 mlosch 1.4 _RL psave
305 mlosch 1.1
306     INTEGER ncheck, kcheck
307 mlosch 1.4 PARAMETER ( ncheck = 13 )
308 mlosch 1.1 _RL tloc(ncheck), ptloc(ncheck), sloc(ncheck), ploc(ncheck)
309     _RL rloc(ncheck), bloc(ncheck)
310    
311     CHARACTER*(MAX_LEN_MBUF) msgBuf
312    
313     DATA tloc
314     & /3.25905152915860 _d 0, 20.38687090048638 _d 0,
315 mlosch 1.4 & 25.44820830309568 _d 0, 20.17368557065936 _d 0,
316     & 13.43397459640398 _d 0,
317 mlosch 1.1 & 5. _d 0, 25. _d 0,
318     & 5. _d 0, 25. _d 0,
319     & 5. _d 0, 25. _d 0,
320     & 5. _d 0, 25. _d 0/,
321     & ptloc
322     & /3. _d 0, 20. _d 0,
323 mlosch 1.4 & 25. _d 0, 20. _d 0,
324     & 12. _d 0,
325 mlosch 1.1 & 5. _d 0, 25. _d 0,
326     & 5. _d 0, 25. _d 0,
327     & 4.03692566635316 _d 0, 22.84661726775120 _d 0,
328     & 3.62720389416752 _d 0, 22.62420229124846 _d 0/
329     & sloc
330     & /35.5 _d 0, 35. _d 0,
331 mlosch 1.4 & 35.0 _d 0, 20. _d 0,
332     & 40.0 _d 0,
333 mlosch 1.1 & 0. _d 0, 0. _d 0,
334     & 35. _d 0, 35. _d 0,
335     & 0. _d 0, 0. _d 0,
336     & 35. _d 0, 35. _d 0/
337     & ploc
338     & /300. _d 5, 200. _d 5,
339 mlosch 1.4 & 200. _d 5, 100. _d 5,
340     & 800. _d 5,
341 mlosch 1.1 & 0. _d 0, 0. _d 0,
342     & 0. _d 0, 0. _d 0,
343     & 1000. _d 5, 1000. _d 5,
344     & 1000. _d 5, 1000. _d 5/
345     DATA rloc
346 mlosch 1.4 & /1041.83267 _d 0, 1033.213387 _d 0,
347     & 1031.654229 _d 0, 1017.726743 _d 0,
348     & 1062.928258 _d 0,
349     & 999.96675 _d 0, 997.04796 _d 0,
350     & 1027.67547 _d 0, 1023.34306 _d 0,
351     & 1044.12802 _d 0, 1037.90204 _d 0,
352     & 1069.48914 _d 0, 1062.53817 _d 0/
353 mlosch 1.1 & bloc
354     & / -1.00000 _d 0, -1.00000 _d 0,
355 mlosch 1.4 & -1.00000 _d 0, -1.00000 _d 0,
356     & -1.00000 _d 0,
357 mlosch 1.1 & 20337.80375 _d 0, 22100.72106 _d 0,
358     & 22185.93358 _d 0, 23726.34949 _d 0,
359     & 23643.52599 _d 0, 25405.09717 _d 0,
360     & 25577.49819 _d 0, 27108.94504 _d 0/
361    
362    
363     bi = 1
364     bj = 1
365     k = 1
366     imin = 1
367     imax = 1
368     jmin = 1
369     jmax = 1
370     i = 1
371     j = 1
372     if ( equationOfState.ne.'LINEAR'
373     & .and. equationOfState.ne.'POLY3' ) then
374     C check nonlinear EOS
375     write(msgBuf,'(a,a)')
376 mlosch 1.4 & 'check_eos: Check the equation of state: Type ',
377 mlosch 1.1 & equationOfState
378     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
379     & SQUEEZE_RIGHT , 1)
380     psave = pressure(i,j,k,bi,bj)
381     do kcheck = 1,ncheck
382     pressure(i,j,k,bi,bj) = ploc(kcheck)
383     if ( equationOfState.ne.'UNESCO' ) then
384     tFld(i,j,k,bi,bj) = ptloc(kcheck)
385     else
386     tFld(i,j,k,bi,bj) = tloc(kcheck)
387     endif
388     sFld(i,j,k,bi,bj) = sloc(kcheck)
389 mlosch 1.4 rholoc(i,j) = 0. _d 0
390 mlosch 1.1 bulkMod(i,j) = -1. _d 0
391    
392 mlosch 1.4 call find_rho(
393     & bi, bj, iMin, iMax, jMin, jMax, k, k,
394     & tFld, sFld, rholoc, myThid )
395    
396 mlosch 1.1 call find_bulkmod(
397 mlosch 1.4 & bi, bj, imin, imax, jmin, jmax, k, k,
398     & tFld, sFld, bulkMod, myThid )
399 mlosch 1.5
400 mlosch 1.1 write(msgBuf,
401     & '(a4,f4.1,a5,f4.1,a6,f5.0,a5,a3,f10.5,1x,f11.5)')
402     & 'rho(', sFld(i,j,k,bi,bj), ' PSU,',
403     & tFld(i,j,k,bi,bj), ' degC,',
404 jmc 1.10 c & pressure(i,j,k,bi,bj)*SItoBar, ' bar)',' = ',
405 mlosch 1.1 & rloc(kcheck), bloc(kcheck)
406     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
407     & SQUEEZE_RIGHT , 1)
408 mlosch 1.5 write(msgBuf,'(a14,a22,f10.5,1x,f11.5)')
409     & 'rho(find_rho) ',
410 mlosch 1.6 & ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j)
411 mlosch 1.5 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
412     & SQUEEZE_RIGHT , 1)
413    
414     call find_rho_scalar( tFld(i,j,k,bi,bj), sLoc(kcheck),
415     & pLoc(kcheck), rhoLoc(i,j), myThid )
416     bulkMod(i,j) = 0. _d 0
417     write(msgBuf,'(a21,a15,f10.5,1x,f11.5)')
418     & 'rho(find_rho_scalar) ',
419 mlosch 1.6 & ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j)
420 mlosch 1.1 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
421     & SQUEEZE_RIGHT , 1)
422    
423     enddo
424     C end check nonlinear EOS
425 jmc 1.10 c pressure(i,j,k,bi,bj) = psave
426 mlosch 1.1
427     write(msgBuf,'(A)') 'end check the equation of state'
428     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
429     & SQUEEZE_RIGHT , 1)
430    
431     endif
432 jmc 1.10 #endif /* EXCLUDE_EOS_CHECK */
433 mlosch 1.1
434 jmc 1.10 RETURN
435     END
436 mlosch 1.4
  ViewVC Help
Powered by ViewVC 1.1.22