/[lmdze]/trunk/Sources/phylmd/FCTTRE.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/FCTTRE.f

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

revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC
# Line 100  contains Line 100  contains
100    
101      !-----------------------      !-----------------------
102    
103      dqsatl = RLVTT / RCPD * qs * LOG(10.) &      dqsatl = RLVTT / RCPD * qs * LOG(10.) * (2948.964 / t**2 - 5.028 &
104           * (2948.964/t**2-5.028/LOG(10.)/t &           / LOG(10.) / t + 25.21935 * 2999.924 / t**2 * EXP(- 2999.924 / t) &
105           +25.21935*2999.924/t**2*EXP(-2999.924/t) &           + 29810.16 * 0.0699382 * EXP(- 0.0699382 * t))
          +29810.16*0.0699382*EXP(-0.0699382*t))  
106    
107    end function dqsatl    end function dqsatl
108    
Legend:
Removed from v.103  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21