6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
subroutine ini_histins(dtime) |
subroutine ini_histins(dtime, ok_newmicro) |
10 |
|
|
11 |
! From phylmd/ini_histins.h, version 1.2, 2005/05/25 13:10:09 |
! From phylmd/ini_histins.h, version 1.2, 2005/05/25 13:10:09 |
12 |
|
|
26 |
USE ymds2ju_m, only: ymds2ju |
USE ymds2ju_m, only: ymds2ju |
27 |
|
|
28 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
29 |
|
logical, intent(in):: ok_newmicro |
30 |
|
|
31 |
! Local: |
! Local: |
32 |
real zjulian, zsto, zout |
real zjulian, zsto, zout |
33 |
integer nhori, nvert, nsrf, iq, it |
integer nhori, nvert, nsrf, iq, it |
209 |
CALL histdef(nid_ins, "s_trmb3", "Point Omega (HBTM2)", "m", & |
CALL histdef(nid_ins, "s_trmb3", "Point Omega (HBTM2)", "m", & |
210 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
211 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
212 |
|
CALL histdef(nid_ins, "qsurf", "Surface Air humidity", "", & |
213 |
|
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
214 |
|
"inst(X)", zsto, zout) |
215 |
|
|
216 |
if (conv_emanuel) then |
if (conv_emanuel) then |
217 |
CALL histdef(nid_ins, "ptop", "cloud top pressure", & |
CALL histdef(nid_ins, "ptop", "cloud top pressure", & |
262 |
"K/s", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
"K/s", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
263 |
zsto, zout) |
zsto, zout) |
264 |
|
|
265 |
|
if (ok_newmicro) then |
266 |
|
CALL histdef(nid_ins, "re", "cloud droplet effective radius", & |
267 |
|
"micrometer", iim, jjm + 1, nhori, llm, 1, llm, nvert, & |
268 |
|
"inst(X)", zsto, zout) |
269 |
|
CALL histdef(nid_ins, "fl", & |
270 |
|
"denominator of Cloud droplet effective radius", "", iim, & |
271 |
|
jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", zsto, zout) |
272 |
|
end if |
273 |
|
|
274 |
DO it = 1, nqmx - 2 |
DO it = 1, nqmx - 2 |
275 |
! champ 2D |
! champ 2D |
276 |
iq=it+2 |
iq=it+2 |