463 |
|
|
464 |
!************************************************* |
!************************************************* |
465 |
|
|
466 |
subroutine ini_histrac(nid_tra, pdtphys, presnivs, nqmax, lessivage) |
subroutine ini_histrac(nid_tra, pdtphys, presnivs, nq_phys, lessivage) |
467 |
|
|
468 |
! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30 |
! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30 |
469 |
|
|
470 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
471 |
use ioipsl, only: ymds2ju, histbeg_totreg, histvert, histdef, histend |
use ioipsl, only: ymds2ju, histbeg_totreg, histvert, histdef, histend |
472 |
use temps, only: annee_ref, day_ref, itau_phy |
use temps, only: annee_ref, day_ref, itau_phy |
473 |
use advtrac_m, only: niadv, tnom, ttext |
use iniadvtrac_m, only: niadv, tnom, ttext |
474 |
use dimphy, only: klon |
use dimphy, only: klon |
475 |
use clesphys, only: ecrit_tra |
use clesphys, only: ecrit_tra |
476 |
use grid_change, only: gr_phy_write_2d |
use grid_change, only: gr_phy_write_2d |
480 |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |
481 |
REAL, intent(in):: presnivs(:) |
REAL, intent(in):: presnivs(:) |
482 |
|
|
483 |
integer, intent(in):: nqmax |
integer, intent(in):: nq_phys |
484 |
! (nombre de traceurs auxquels on applique la physique) |
! (nombre de traceurs auxquels on applique la physique) |
485 |
|
|
486 |
logical, intent(in):: lessivage |
logical, intent(in):: lessivage |
515 |
"kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "ave(X)", & |
"kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "ave(X)", & |
516 |
zsto, zout) |
zsto, zout) |
517 |
|
|
518 |
DO it = 1, nqmax |
DO it = 1, nq_phys |
519 |
! champ 2D |
! champ 2D |
520 |
iq=it+2 |
iq=it+2 |
521 |
iiq=niadv(iq) |
iiq=niadv(iq) |