80 |
real, intent(in):: paprs(klon, llm+1) |
real, intent(in):: paprs(klon, llm+1) |
81 |
! (pression pour chaque inter-couche, en Pa) |
! (pression pour chaque inter-couche, en Pa) |
82 |
|
|
83 |
real pplay(klon, llm) ! pression pour le mileu de chaque couche (en Pa) |
real, intent(in):: pplay(klon, llm) |
84 |
|
! (pression pour le mileu de chaque couche, en Pa) |
85 |
|
|
86 |
real pphi(klon, llm) ! geopotentiel |
real pphi(klon, llm) ! geopotentiel |
87 |
real pphis(klon) |
real pphis(klon) |
88 |
REAL, intent(in):: presnivs(llm) |
REAL, intent(in):: presnivs(llm) |
281 |
if (iflag_con.eq.2) then |
if (iflag_con.eq.2) then |
282 |
! tiedke |
! tiedke |
283 |
CALL nflxtr(pdtphys, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, & |
CALL nflxtr(pdtphys, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, & |
284 |
pplay, paprs, tr_seri(1, 1, it), d_tr_cv(1, 1, it)) |
paprs, tr_seri(1, 1, it), d_tr_cv(1, 1, it)) |
285 |
else if (iflag_con.eq.3) then |
else if (iflag_con.eq.3) then |
286 |
! KE |
! KE |
287 |
call cvltr(pdtphys, da, phi, mp, paprs, pplay, & |
call cvltr(pdtphys, da, phi, mp, paprs, & |
288 |
tr_seri(1, 1, it), upwd, dnwd, d_tr_cv(1, 1, it)) |
tr_seri(1, 1, it), upwd, dnwd, d_tr_cv(1, 1, it)) |
289 |
endif |
endif |
290 |
|
|