12 |
|
|
13 |
use clesphys, only: ecrit_ins, ok_instan |
use clesphys, only: ecrit_ins, ok_instan |
14 |
use clesphys2, only: conv_emanuel |
use clesphys2, only: conv_emanuel |
15 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimensions, only: iim, jjm, llm, nqmx |
16 |
use disvert_m, only: presnivs |
use disvert_m, only: presnivs |
17 |
use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv |
use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv |
18 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
132 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
133 |
CALL histdef(nid_ins, "msnow", "surface snow amount", "kg/m2", & |
CALL histdef(nid_ins, "msnow", "surface snow amount", "kg/m2", & |
134 |
iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
135 |
|
CALL histdef(nid_ins, "zxfqcalving", "ice calving", "kg m-2 s-1", & |
136 |
|
iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
137 |
|
|
138 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
139 |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
198 |
CALL histdef(nid_ins, "s_lcl", "Condensation level", "m", & |
CALL histdef(nid_ins, "s_lcl", "Condensation level", "m", & |
199 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
200 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
201 |
CALL histdef(nid_ins, "s_capCL", "Conv avlbl pot ener for ABL", "J/m2", & |
CALL histdef(nid_ins, "s_capCL", & |
202 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
"Convective available potential energy for atmospheric boundary " & |
203 |
|
// "layer", "J/m2", iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
204 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
205 |
CALL histdef(nid_ins, "s_oliqCL", "Liq Water in BL", "kg/m2", & |
CALL histdef(nid_ins, "s_oliqCL", "Liq Water in BL", "kg/m2", & |
206 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
211 |
CALL histdef(nid_ins, "s_therm", "Exces du thermique", "K", & |
CALL histdef(nid_ins, "s_therm", "Exces du thermique", "K", & |
212 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
213 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
|
CALL histdef(nid_ins, "s_trmb1", "deep_cape(HBTM2)", "J/m2", & |
|
|
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
|
|
"inst(X)", zsto, zout) |
|
|
CALL histdef(nid_ins, "s_trmb2", "inhibition (HBTM2)", "J/m2", & |
|
|
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
|
|
"inst(X)", zsto, zout) |
|
|
CALL histdef(nid_ins, "s_trmb3", "Point Omega (HBTM2)", "m", & |
|
|
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
|
|
"inst(X)", zsto, zout) |
|
214 |
CALL histdef(nid_ins, "qsurf", "Surface Air humidity", "", & |
CALL histdef(nid_ins, "qsurf", "Surface Air humidity", "", & |
215 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
216 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |