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 clesphys, only: ecrit_tra |
13 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
14 |
USE calendar, only: ymds2ju |
use disvert_m, only: presnivs |
15 |
|
use dimphy, only: klon |
16 |
|
use grid_change, only: gr_phy_write_2d |
17 |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
18 |
USE histdef_m, ONLY : histdef |
USE histdef_m, ONLY : histdef |
19 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
20 |
USE histvert_m, ONLY : histvert |
USE histvert_m, ONLY : histvert |
|
use temps, only: annee_ref, day_ref, itau_phy |
|
21 |
use iniadvtrac_m, only: tnom, ttext |
use iniadvtrac_m, only: tnom, ttext |
|
use dimphy, only: klon |
|
|
use clesphys, only: ecrit_tra |
|
|
use grid_change, only: gr_phy_write_2d |
|
22 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
23 |
use disvert_m, only: presnivs |
use temps, only: annee_ref, day_ref, itau_phy |
24 |
|
USE ymds2ju_m, only: ymds2ju |
25 |
|
|
26 |
INTEGER, intent(out):: nid_tra |
INTEGER, intent(out):: nid_tra |
27 |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |