199 |
"rugosite "//clnsurf(nsrf), "-", & |
"rugosite "//clnsurf(nsrf), "-", & |
200 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
201 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
|
!XXX |
|
202 |
END DO |
END DO |
203 |
|
|
204 |
CALL histdef(nid_ins, "rugs", "rugosity", "-", & |
CALL histdef(nid_ins, "rugs", "rugosity", "-", & |
205 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
206 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
250 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
251 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
252 |
|
|
253 |
if (conv_emanuel) CALL histdef(nid_ins, "ptop", "cloud top pressure", & |
if (conv_emanuel) then |
254 |
"Pa", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
CALL histdef(nid_ins, "ptop", "cloud top pressure", & |
255 |
|
"Pa", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
256 |
|
CALL histdef(nid_ins, "dnwd0", "unsaturated downdraft", & |
257 |
|
"kg/m2/s", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
258 |
|
zsto, zout) |
259 |
|
end if |
260 |
|
|
261 |
! Champs 3D: |
! Champs 3D: |
262 |
|
|