7 |
|
|
8 |
contains |
contains |
9 |
|
|
10 |
SUBROUTINE phytrac(lmt_pas, julien, gmtime, firstcal, lafin, pdtphys, & |
SUBROUTINE phytrac(julien, gmtime, firstcal, lafin, pdtphys, t_seri, paprs, & |
11 |
t_seri, paprs, pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, & |
pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, entr_therm, yu1, & |
12 |
entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, & |
yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, dnwd, & |
13 |
mp, upwd, dnwd, tr_seri, zmasse, ncid_startphy) |
tr_seri, zmasse, ncid_startphy) |
14 |
|
|
15 |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN |
16 |
! revision 679) and phylmd/write_histrac.h, version 1.9 2006/02/21 |
! revision 679) and phylmd/write_histrac.h, version 1.9 2006/02/21 |
29 |
! - stockage des moyennes des champs n\'ecessaires en mode traceur off-line |
! - stockage des moyennes des champs n\'ecessaires en mode traceur off-line |
30 |
|
|
31 |
use abort_gcm_m, only: abort_gcm |
use abort_gcm_m, only: abort_gcm |
|
use clesphys, only: ecrit_tra |
|
32 |
use clesphys2, only: conv_emanuel |
use clesphys2, only: conv_emanuel |
33 |
use cltrac_m, only: cltrac |
use cltrac_m, only: cltrac |
34 |
use cltracrn_m, only: cltracrn |
use cltracrn_m, only: cltracrn |
35 |
|
USE conf_gcm_m, ONLY: lmt_pas |
36 |
use ctherm, only: iflag_thermals |
use ctherm, only: iflag_thermals |
37 |
use cvltr_m, only: cvltr |
use cvltr_m, only: cvltr |
38 |
use dimens_m, only: llm, nqmx |
use dimens_m, only: llm, nqmx |
55 |
use SUPHEC_M, only: rg |
use SUPHEC_M, only: rg |
56 |
use time_phylmdz, only: itap |
use time_phylmdz, only: itap |
57 |
|
|
|
integer, intent(in):: lmt_pas ! number of time steps of "physics" per day |
|
58 |
integer, intent(in):: julien !jour julien, 1 <= julien <= 360 |
integer, intent(in):: julien !jour julien, 1 <= julien <= 360 |
59 |
real, intent(in):: gmtime ! heure de la journ\'ee en fraction de jour |
real, intent(in):: gmtime ! heure de la journ\'ee en fraction de jour |
60 |
logical, intent(in):: firstcal ! first call to "calfis" |
logical, intent(in):: firstcal ! first call to "calfis" |
189 |
|
|
190 |
if (firstcal) then |
if (firstcal) then |
191 |
print *, 'phytrac: pdtphys = ', pdtphys |
print *, 'phytrac: pdtphys = ', pdtphys |
|
PRINT *, 'Frequency of tracer output: ecrit_tra = ', ecrit_tra |
|
192 |
inirnpb = .true. |
inirnpb = .true. |
193 |
|
|
194 |
! Initialisation de certaines variables pour le radon et le plomb |
! Initialisation de certaines variables pour le radon et le plomb |