/[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 43 by guez, Fri Apr 8 12:43:31 2011 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# Line 8  module FCTTRE Line 8  module FCTTRE
8    ! is given by a first order Taylor expansion of "Qs(T)" with respect    ! is given by a first order Taylor expansion of "Qs(T)" with respect
9    ! to temperature, using constants in "yoethf_m".    ! to temperature, using constants in "yoethf_m".
10    
11    ! Probably from Buck, 1981, Journal of Applied Meteorology, 20(12),    ! Probably from Buck, 1981, Journal of Applied Meteorology, volume
12    ! 1527.    ! 20, number 12, page 1527.
13    
14    implicit none    implicit none
15    
# Line 22  contains Line 22  contains
22      use yoethf_m, only: R3LES, R3IES, R4LES, R4IES      use yoethf_m, only: R3LES, R3IES, R4LES, R4IES
23      use SUPHEC_M, 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    
Legend:
Removed from v.43  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21