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

Diff of /trunk/phylmd/FCTTRE.f

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

revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 3  module FCTTRE Line 3  module FCTTRE
3    ! From phylmd/FCTTRE.inc, version 1.2 2004/06/22 11:45:32    ! From phylmd/FCTTRE.inc, version 1.2 2004/06/22 11:45:32
4    
5    ! This COMDECK includes the thermodynamical functions for the cycle    ! This COMDECK includes the thermodynamical functions for the cycle
6    ! 39 ECMWF Physics package. Consistent with YOMCST basic physics    ! 39 ECMWF Physics package. Consistent with SUPHEC_M basic physics
7    ! constants, assuming the partial pressure of water vapour is given    ! constants, assuming the partial pressure of water vapour is given
8    ! by a first order Taylor expansion of Qs(T) with respect to    ! by a first order Taylor expansion of Qs(T) with respect to
9    ! temperature, using constants in yoethf.    ! temperature, using constants in yoethf_m.
10      ! Probably from Buck, 1981, Journal of Applied Meteorology, 20, 1527.
11    
12    implicit none    implicit none
13    
# Line 16  contains Line 17  contains
17    
18    REAL function FOEEW(T, DEL)    REAL function FOEEW(T, DEL)
19    
20      use yoethf, only: R3LES, R3IES, R4LES, R4IES      use yoethf_m, only: R3LES, R3IES, R4LES, R4IES
21      use YOMCST, only: rtt      use SUPHEC_M, only: rtt
22    
23      REAL, intent(in):: T, DEL      REAL, intent(in):: T, DEL
24    
# Line 32  contains Line 33  contains
33    
34    REAL function FOEDE(T, DEL, P5ARG, QS, PCOARG)    REAL function FOEDE(T, DEL, P5ARG, QS, PCOARG)
35    
36      use yoethf, only: R4LES, R4IES      use yoethf_m, only: R4LES, R4IES
37    
38      REAL, intent(in):: T, DEL      REAL, intent(in):: T, DEL
39      real, intent(in):: P5ARG, QS, PCOARG      real, intent(in):: P5ARG, QS, PCOARG
# Line 74  contains Line 75  contains
75    
76    REAL function dqsats(t, qs)    REAL function dqsats(t, qs)
77    
78      use YOMCST, only: RLVTT, rcpd      use SUPHEC_M, only: RLVTT, rcpd
79    
80      REAL, intent(in):: T, qs      REAL, intent(in):: T, qs
81    
# Line 89  contains Line 90  contains
90    
91    REAL function dqsatl(t, qs)    REAL function dqsatl(t, qs)
92    
93      use YOMCST, only: RLVTT, rcpd      use SUPHEC_M, only: RLVTT, rcpd
94    
95      REAL, intent(in):: T, qs      REAL, intent(in):: T, qs
96    
Legend:
Removed from v.37  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21