234 |
! Tiedke |
! Tiedke |
235 |
CALL nflxtr(pdtphys, pmfu, pmfd, pde_u, pen_d, paprs, & |
CALL nflxtr(pdtphys, pmfu, pmfd, pde_u, pen_d, paprs, & |
236 |
tr_seri(:, :, it), d_tr_cv(:, :, it)) |
tr_seri(:, :, it), d_tr_cv(:, :, it)) |
237 |
else if (iflag_con == 3) then |
else |
238 |
|
! iflag_con >= 3 |
239 |
! Emanuel |
! Emanuel |
240 |
call cvltr(pdtphys, da, phi, mp, paprs, tr_seri(:, :, it), upwd, & |
call cvltr(pdtphys, da, phi, mp, paprs, tr_seri(:, :, it), upwd, & |
241 |
dnwd, d_tr_cv(:, :, it)) |
dnwd, d_tr_cv(:, :, it)) |
411 |
|
|
412 |
! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30 |
! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30 |
413 |
|
|
|
use dimens_m, only: iim, jjm, llm |
|
|
use histsync_m, only: histsync |
|
414 |
use histwrite_m, only: histwrite |
use histwrite_m, only: histwrite |
415 |
use iniadvtrac_m, only: tname |
use iniadvtrac_m, only: tname |
|
use dimphy, only: klon |
|
|
use grid_change, only: gr_phy_write_2d |
|
416 |
use gr_phy_write_3d_m, only: gr_phy_write_3d |
use gr_phy_write_3d_m, only: gr_phy_write_3d |
417 |
|
|
418 |
logical, intent(in):: lessivage |
logical, intent(in):: lessivage |