12 |
! Cette routine calcule les flux en h et q à l'interface et une |
! Cette routine calcule les flux en h et q à l'interface et une |
13 |
! température de surface. |
! température de surface. |
14 |
|
|
15 |
! L. Fairhead April 2000 |
! L. Fairhead, April 2000 |
16 |
|
|
17 |
USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats |
USE fcttre, ONLY: foede, foeew |
18 |
use nr_util, only: assert_eq |
use nr_util, only: assert_eq |
19 |
USE suphec_m, ONLY: rcpd, rd, retv, rlstt, rlvtt, rtt |
USE suphec_m, ONLY: rcpd, rd, retv, rlstt, rlvtt, rtt |
20 |
USE yoethf_m, ONLY: r2es, r5ies, r5les, rvtmp2 |
USE yoethf_m, ONLY: r2es, r5ies, r5les, rvtmp2 |