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

Diff of /trunk/phylmd/FCTTRE.f

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

trunk/libf/phylmd/FCTTRE.f90 revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC trunk/phylmd/FCTTRE.f90 revision 78 by guez, Wed Feb 5 17:51:07 2014 UTC
# Line 1  Line 1 
1  module FCTTRE  module FCTTRE
2    
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 module 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
7    ! constants, assuming the partial pressure of water vapour is given    ! physical constants, assuming the partial pressure of water vapour
8    ! by a first order Taylor expansion of Qs(T) with respect to    ! is given by a first order Taylor expansion of "Qs(T)" with respect
9    ! temperature, using constants in yoethf.    ! to temperature, using constants in "yoethf_m".
10    
11      ! Probably from Buck, 1981, Journal of Applied Meteorology, volume
12      ! 20, number 12, page 1527.
13    
14    implicit none    implicit none
15    
# Line 16  contains Line 19  contains
19    
20    REAL function FOEEW(T, DEL)    REAL function FOEEW(T, DEL)
21    
22      use yoethf, only: R3LES, R3IES, R4LES, R4IES      use yoethf_m, only: R3LES, R3IES, R4LES, R4IES
23      use YOMCST, only: rtt      use SUPHEC_M, only: rtt
24    
25      REAL, intent(in):: T, DEL      REAL, intent(in):: T
26        REAL, intent(in):: DEL ! 1 for ice, 0 for liquid
27    
28      !-----------------------      !-----------------------
29    
# Line 32  contains Line 36  contains
36    
37    REAL function FOEDE(T, DEL, P5ARG, QS, PCOARG)    REAL function FOEDE(T, DEL, P5ARG, QS, PCOARG)
38    
39      use yoethf, only: R4LES, R4IES      use yoethf_m, only: R4LES, R4IES
40    
41      REAL, intent(in):: T, DEL      REAL, intent(in):: T, DEL
42      real, intent(in):: P5ARG, QS, PCOARG      real, intent(in):: P5ARG, QS, PCOARG
# Line 74  contains Line 78  contains
78    
79    REAL function dqsats(t, qs)    REAL function dqsats(t, qs)
80    
81      use YOMCST, only: RLVTT, rcpd      use SUPHEC_M, only: RLVTT, rcpd
82    
83      REAL, intent(in):: T, qs      REAL, intent(in):: T, qs
84    
# Line 89  contains Line 93  contains
93    
94    REAL function dqsatl(t, qs)    REAL function dqsatl(t, qs)
95    
96      use YOMCST, only: RLVTT, rcpd      use SUPHEC_M, only: RLVTT, rcpd
97    
98      REAL, intent(in):: T, qs      REAL, intent(in):: T, qs
99    
Legend:
Removed from v.37  
changed lines
  Added in v.78
  ViewVC Help
Powered by ViewVC 1.1.21