8 |
|
|
9 |
! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09 |
! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09 |
10 |
|
|
11 |
|
use clesphys, only: ecrit_ins |
12 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
13 |
use dimphy, only: klon |
use dimphy, only: klon |
14 |
use temps, only: itau_phy, day_ref, annee_ref |
use disvert_m, only: presnivs |
|
use clesphys, only: ecrit_ins |
|
|
use indicesol, only: nbsrf, clnsurf |
|
|
USE calendar, only: ymds2ju |
|
15 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
16 |
USE histdef_m, ONLY : histdef |
USE histdef_m, ONLY : histdef |
17 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
18 |
USE histvert_m, ONLY : histvert |
USE histvert_m, ONLY : histvert |
19 |
|
use indicesol, only: nbsrf, clnsurf |
20 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
21 |
use disvert_m, only: presnivs |
use temps, only: itau_phy, day_ref, annee_ref |
22 |
|
USE ymds2ju_m, only: ymds2ju |
23 |
|
|
24 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
25 |
logical, intent(in):: ok_instan |
logical, intent(in):: ok_instan |