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 |
23 |
USE histvert_m, ONLY : histvert |
USE histvert_m, ONLY : histvert |
24 |
use indicesol, only: nbsrf, clnsurf |
use indicesol, only: nbsrf, clnsurf |
25 |
use iniadvtrac_m, only: tname, ttext |
use infotrac_init_m, only: tname, ttext |
26 |
use nr_util, only: pi |
use nr_util, only: pi |
27 |
use phyetat0_m, only: itau_phy |
use phyetat0_m, only: itau_phy |
28 |
USE ymds2ju_m, only: ymds2ju |
USE ymds2ju_m, only: ymds2ju |
105 |
CALL histdef(nid_ins, "sols", "Solar rad. at surf.", "W/m2", & |
CALL histdef(nid_ins, "sols", "Solar rad. at surf.", "W/m2", & |
106 |
iim, jjm + 1, nhori, 1, 1, 1, -99, & |
iim, jjm + 1, nhori, 1, 1, 1, -99, & |
107 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
108 |
CALL histdef(nid_ins, "soll", "IR rad. at surface", "W/m2", & |
CALL histdef(nid_ins, "rls", "surface net downward longwave flux", & |
109 |
iim, jjm + 1, nhori, 1, 1, 1, -99, & |
"W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
|
"inst(X)", zsto, zout) |
|
110 |
CALL histdef(nid_ins, "solldown", "Down. IR rad. at surface", & |
CALL histdef(nid_ins, "solldown", "Down. IR rad. at surface", & |
111 |
"W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99, & |
"W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99, & |
112 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
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, & |
265 |
CALL histdef(nid_ins, "dtlw0", "CS LW radiation dT", & |
CALL histdef(nid_ins, "dtlw0", "CS LW radiation dT", & |
266 |
"K/s", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
"K/s", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
267 |
zsto, zout) |
zsto, zout) |
268 |
|
CALL histdef(nid_ins, "pmflxr", "convective precipitation liquid", "", & |
269 |
|
iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", zsto, zout) |
270 |
|
|
271 |
if (ok_newmicro) then |
if (ok_newmicro) then |
272 |
CALL histdef(nid_ins, "re", "cloud droplet effective radius", & |
CALL histdef(nid_ins, "re", "cloud droplet effective radius", & |