14 |
|
|
15 |
! L. Fairhead April 2000 |
! L. Fairhead April 2000 |
16 |
|
|
|
USE abort_gcm_m, ONLY: abort_gcm |
|
17 |
USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats, thermcep |
USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats, thermcep |
|
USE indicesol, ONLY: is_ter |
|
18 |
use nr_util, only: assert_eq |
use nr_util, only: assert_eq |
19 |
USE suphec_m, ONLY: rcpd, rd, retv, rkappa, 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 |
21 |
|
|
22 |
real, intent(IN):: dtime |
real, intent(IN):: dtime |