19 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
20 |
USE histvert_m, ONLY : histvert |
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, & |