14 |
use clesphys, only: ecrit_ins |
use clesphys, only: ecrit_ins |
15 |
use indicesol, only: nbsrf, clnsurf |
use indicesol, only: nbsrf, clnsurf |
16 |
USE calendar, only: ymds2ju |
USE calendar, only: ymds2ju |
17 |
use histcom, only: histbeg_totreg, histvert, histend, histdef |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
18 |
|
USE histdef_m, ONLY : histdef |
19 |
|
USE histend_m, ONLY : histend |
20 |
|
USE histvert_m, ONLY : histvert |
21 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
22 |
use comvert, only: presnivs |
use disvert_m, only: presnivs |
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 |
49 |
jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins) |
jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins) |
50 |
write(*, *)'Inst ', itau_phy, zjulian |
write(*, *)'Inst ', itau_phy, zjulian |
51 |
CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", & |
CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", & |
52 |
llm, presnivs/100., nvert) |
presnivs/100., nvert) |
53 |
|
|
54 |
CALL histdef(nid_ins, "phis", "Surface geop. height", "-", & |
CALL histdef(nid_ins, "phis", "Surface geop. height", "-", & |
55 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |