15 |
use comconst, only: dtphys |
use comconst, only: dtphys |
16 |
use dimensions, only: iim, jjm, llm, nqmx |
use dimensions, only: iim, jjm, llm, nqmx |
17 |
use disvert_m, only: presnivs |
use disvert_m, only: presnivs |
18 |
use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv |
use dynetat0_m, only: rlatu, rlonv |
19 |
|
use dynetat0_chosen_m, only: day_ref, annee_ref |
20 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
21 |
USE histdef_m, ONLY : histdef |
USE histdef_m, ONLY : histdef |
22 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
142 |
jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
143 |
|
|
144 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
|
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
|
|
"% "//clnsurf(nsrf), "%", & |
|
|
iim, jjm + 1, nhori, 1, 1, 1, -99, & |
|
|
"inst(X)", zsto, zout) |
|
145 |
call histdef(nid_ins, "fract_"//clnsurf(nsrf), & |
call histdef(nid_ins, "fract_"//clnsurf(nsrf), & |
146 |
"Fraction "//clnsurf(nsrf), "1", & |
"Fraction "//clnsurf(nsrf), "1", & |
147 |
iim, jjm + 1, nhori, 1, 1, 1, -99, & |
iim, jjm + 1, nhori, 1, 1, 1, -99, & |