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 |
|
|
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 |
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 |
36 |
|
|
37 |
print *, 'Call sequence information: ini_histins' |
print *, 'Call sequence information: ini_histins' |
38 |
|
|
39 |
IF (ok_instan) THEN |
test_ok_instan: IF (ok_instan) THEN |
40 |
zsto = dtime * ecrit_ins |
zsto = dtime * ecrit_ins |
41 |
zout = dtime * ecrit_ins |
zout = dtime * ecrit_ins |
42 |
CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
48 |
CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", & |
CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", & |
49 |
presnivs/100., nvert) |
presnivs/100., nvert) |
50 |
|
|
51 |
CALL histdef(nid_ins, "phis", "Surface geop. height", "-", & |
CALL histdef(nid_ins, "phis", "surface geopotential", "m2 s-2", & |
52 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
53 |
"once", zsto, zout) |
"once", zsto, zout) |
54 |
CALL histdef(nid_ins, "aire", "Grid area", "-", & |
CALL histdef(nid_ins, "aire", "Grid area", "-", & |
130 |
CALL histdef(nid_ins, "dtsvdfi", "Boundary-layer dTs(g)", "K/s", & |
CALL histdef(nid_ins, "dtsvdfi", "Boundary-layer dTs(g)", "K/s", & |
131 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
132 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
133 |
|
CALL histdef(nid_ins, "msnow", "surface snow amount", "kg/m2", & |
134 |
|
iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
135 |
|
|
136 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
137 |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
170 |
"rugosite "//clnsurf(nsrf), "-", & |
"rugosite "//clnsurf(nsrf), "-", & |
171 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
172 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
173 |
|
call histdef(nid_ins, "u10m_"//clnsurf(nsrf), & |
174 |
|
"zonal wind 10 m "//clnsurf(nsrf), "m s-1", & |
175 |
|
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
176 |
|
"inst(X)", zsto, zout) |
177 |
|
call histdef(nid_ins, "v10m_"//clnsurf(nsrf), & |
178 |
|
"meridional wind 10 m "//clnsurf(nsrf), "m s-1", & |
179 |
|
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
180 |
|
"inst(X)", zsto, zout) |
181 |
END DO |
END DO |
182 |
|
|
183 |
CALL histdef(nid_ins, "rugs", "rugosity", "-", & |
CALL histdef(nid_ins, "rugs", "rugosity", "-", & |
196 |
CALL histdef(nid_ins, "s_lcl", "Condensation level", "m", & |
CALL histdef(nid_ins, "s_lcl", "Condensation level", "m", & |
197 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
198 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
199 |
CALL histdef(nid_ins, "s_capCL", "Conv avlbl pot ener for ABL", "J/m2", & |
CALL histdef(nid_ins, "s_capCL", & |
200 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
"Convective available potential energy for atmospheric boundary " & |
201 |
|
// "layer", "J/m2", iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
202 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
203 |
CALL histdef(nid_ins, "s_oliqCL", "Liq Water in BL", "kg/m2", & |
CALL histdef(nid_ins, "s_oliqCL", "Liq Water in BL", "kg/m2", & |
204 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
209 |
CALL histdef(nid_ins, "s_therm", "Exces du thermique", "K", & |
CALL histdef(nid_ins, "s_therm", "Exces du thermique", "K", & |
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, "s_trmb1", "deep_cape(HBTM2)", "J/m2", & |
CALL histdef(nid_ins, "qsurf", "Surface Air humidity", "", & |
|
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", & |
|
213 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
214 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
215 |
|
|
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 |
294 |
ENDDO |
ENDDO |
295 |
|
|
296 |
CALL histend(nid_ins) |
CALL histend(nid_ins) |
297 |
ENDIF |
ENDIF test_ok_instan |
298 |
|
|
299 |
end subroutine ini_histins |
end subroutine ini_histins |
300 |
|
|