/[lmdze]/trunk/phylmd/suphec.f
ViewVC logotype

Diff of /trunk/phylmd/suphec.f

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

revision 87 by guez, Wed Mar 5 14:57:53 2014 UTC revision 88 by guez, Tue Mar 11 15:09:02 2014 UTC
# Line 53  module suphec_m Line 53  module suphec_m
53    real, parameter:: RTT = 273.16    real, parameter:: RTT = 273.16
54    real, parameter:: RLVTT = 2.5008E+6    real, parameter:: RLVTT = 2.5008E+6
55    real, parameter:: RLSTT = 2.8345E+6    real, parameter:: RLSTT = 2.8345E+6
56    real, parameter:: RATM = 100000.    real, parameter:: RATM = 1e5
57    
58    ! A1.8 Curve of saturation    ! A1.8 Curve of saturation
59    REAL RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS    REAL RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS
# Line 140  contains Line 140  contains
140      ! 8. DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE.      ! 8. DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE.
141    
142      RLMLT = RLSTT-RLVTT      RLMLT = RLSTT-RLVTT
143      print *, 'Thermodynamic, trans. '      print *, 'Thermodynamic, transition of phase:'
144      print '('' Fusion point = '', E13.7)', RTT      print '('' Fusion point = '', E13.7)', RTT
145      print '('' RLvTt = '', E13.7)', RLVTT      print '('' RLvTt = '', E13.7)', RLVTT
146      print '('' RLsTt = '', E13.7)', RLSTT      print '('' RLsTt = '', E13.7)', RLSTT
147      print '('' RLMlt = '', E13.7)', RLMLT      print '('' RLMlt = '', E13.7)', RLMLT
148      print '('' Normal press. = '', E13.7)', RATM      print '('' Normal pressure = '', E13.7)', RATM
149    
150      ! 9. SATURATED VAPOUR PRESSURE.      ! 9. SATURATED VAPOUR PRESSURE.
151    
Legend:
Removed from v.87  
changed lines
  Added in v.88
  ViewVC Help
Powered by ViewVC 1.1.21