--- trunk/Sources/phylmd/ini_histins.f 2017/03/30 14:25:18 217 +++ trunk/phylmd/ini_histins.f 2018/02/05 10:39:38 254 @@ -48,7 +48,7 @@ CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", & presnivs/100., nvert) - CALL histdef(nid_ins, "phis", "Surface geop. height", "-", & + CALL histdef(nid_ins, "phis", "surface geopotential", "m2 s-2", & iim, (jjm + 1), nhori, 1, 1, 1, -99, & "once", zsto, zout) CALL histdef(nid_ins, "aire", "Grid area", "-", & @@ -170,6 +170,14 @@ "rugosite "//clnsurf(nsrf), "-", & iim, (jjm + 1), nhori, 1, 1, 1, -99, & "inst(X)", zsto, zout) + call histdef(nid_ins, "u10m_"//clnsurf(nsrf), & + "zonal wind 10 m "//clnsurf(nsrf), "m s-1", & + iim, (jjm + 1), nhori, 1, 1, 1, -99, & + "inst(X)", zsto, zout) + call histdef(nid_ins, "v10m_"//clnsurf(nsrf), & + "meridional wind 10 m "//clnsurf(nsrf), "m s-1", & + iim, (jjm + 1), nhori, 1, 1, 1, -99, & + "inst(X)", zsto, zout) END DO CALL histdef(nid_ins, "rugs", "rugosity", "-", & @@ -200,13 +208,7 @@ CALL histdef(nid_ins, "s_therm", "Exces du thermique", "K", & iim, (jjm + 1), nhori, 1, 1, 1, -99, & "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", & + CALL histdef(nid_ins, "qsurf", "Surface Air humidity", "", & iim, (jjm + 1), nhori, 1, 1, 1, -99, & "inst(X)", zsto, zout) @@ -258,6 +260,7 @@ CALL histdef(nid_ins, "dtlw0", "CS LW radiation dT", & "K/s", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & zsto, zout) + if (ok_newmicro) then CALL histdef(nid_ins, "re", "cloud droplet effective radius", & "micrometer", iim, jjm + 1, nhori, llm, 1, llm, nvert, &