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 |
|
|
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 |
|
|