10 |
SUBROUTINE phytrac(itap, lmt_pas, julien, gmtime, firstcal, lafin, pdtphys, & |
SUBROUTINE phytrac(itap, lmt_pas, julien, gmtime, firstcal, lafin, pdtphys, & |
11 |
t_seri, paprs, pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, & |
t_seri, paprs, pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, & |
12 |
entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, & |
entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, & |
13 |
mp, upwd, dnwd, tr_seri, zmasse, ncid_startphy, nid_ins) |
mp, upwd, dnwd, tr_seri, zmasse, ncid_startphy, nid_ins, itau_phy) |
14 |
|
|
15 |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN revision 679) |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN revision 679) |
16 |
|
|
102 |
real, intent(in):: zmasse(:, :) ! (klon, llm) |
real, intent(in):: zmasse(:, :) ! (klon, llm) |
103 |
! (column-density of mass of air in a cell, in kg m-2) |
! (column-density of mass of air in a cell, in kg m-2) |
104 |
|
|
105 |
integer, intent(in):: ncid_startphy, nid_ins |
integer, intent(in):: ncid_startphy, nid_ins, itau_phy |
106 |
|
|
107 |
! Local: |
! Local: |
108 |
|
|
413 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
414 |
use histsync_m, only: histsync |
use histsync_m, only: histsync |
415 |
use histwrite_m, only: histwrite |
use histwrite_m, only: histwrite |
|
use temps, only: itau_phy |
|
416 |
use iniadvtrac_m, only: tname |
use iniadvtrac_m, only: tname |
417 |
use dimphy, only: klon |
use dimphy, only: klon |
418 |
use grid_change, only: gr_phy_write_2d |
use grid_change, only: gr_phy_write_2d |