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", "-", & |
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", "-", & |