16 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
17 |
USE histvert_m, ONLY : histvert |
USE histvert_m, ONLY : histvert |
18 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
19 |
use comvert, only: presnivs |
use disvert_m, only: presnivs |
20 |
use ini_histhf3d_m, only: ini_histhf3d |
use ini_histhf3d_m, only: ini_histhf3d |
21 |
|
|
22 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
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) |