42 |
CALL histbeg_totreg("histhf", zx_lon(:, 1), zx_lat(1, :), 1, iim, 1, & |
CALL histbeg_totreg("histhf", zx_lon(:, 1), zx_lat(1, :), 1, iim, 1, & |
43 |
(jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf) |
(jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf) |
44 |
|
|
45 |
CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", & |
CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", presnivs/100., & |
46 |
llm, presnivs/100., nvert) |
nvert) |
47 |
|
|
48 |
call ini_histhf3d(dtime, nid_hf3d) |
call ini_histhf3d(dtime, nid_hf3d) |
49 |
CALL histend(nid_hf) |
CALL histend(nid_hf) |