4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
|
|
8 |
subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage) |
subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage) |
9 |
|
|
10 |
! 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 |
11 |
|
|
12 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
13 |
USE calendar, only: ymds2ju |
USE calendar, only: ymds2ju |
14 |
use histcom, only: histbeg_totreg, histvert, histend, histdef |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
15 |
|
USE histdef_m, ONLY : histdef |
16 |
|
USE histend_m, ONLY : histend |
17 |
|
USE histvert_m, ONLY : histvert |
18 |
use temps, only: annee_ref, day_ref, itau_phy |
use temps, only: annee_ref, day_ref, itau_phy |
19 |
use iniadvtrac_m, only: niadv, tnom, ttext |
use iniadvtrac_m, only: niadv, tnom, ttext |
20 |
use dimphy, only: klon |
use dimphy, only: klon |