12 |
use ctherm |
use ctherm |
13 |
implicit none |
implicit none |
14 |
|
|
15 |
REAL dtime |
REAL, intent(in):: dtime |
16 |
|
|
17 |
REAL u_seri(klon,klev),v_seri(klon,klev) |
REAL u_seri(klon,klev),v_seri(klon,klev) |
18 |
REAL t_seri(klon,klev),q_seri(klon,klev) |
REAL t_seri(klon,klev),q_seri(klon,klev) |
19 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
20 |
REAL, intent(in):: pplay(klon,klev) |
REAL, intent(in):: pplay(klon,klev) |
21 |
REAL pphi(klon,klev) |
REAL, intent(in):: pphi(klon,klev) |
22 |
|
|
23 |
CFH Update Thermiques |
CFH Update Thermiques |
24 |
REAL d_t_ajs(klon,klev), d_q_ajs(klon,klev) |
REAL d_t_ajs(klon,klev), d_q_ajs(klon,klev) |