58 |
! sorties hf 3d |
! sorties hf 3d |
59 |
|
|
60 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
61 |
use dimphy, only: klon |
use dimphy, only: klon, nbtr |
62 |
use temps, only: itau_phy, day_ref, annee_ref |
use temps, only: itau_phy, day_ref, annee_ref |
63 |
use clesphys, only: ecrit_hf |
use clesphys, only: ecrit_hf |
64 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
113 |
iim, (jjm + 1), nhori, llm, 1, llm, nvert, 32, & |
iim, (jjm + 1), nhori, llm, 1, llm, nvert, 32, & |
114 |
"ave(X)", zstohf, zout) |
"ave(X)", zstohf, zout) |
115 |
|
|
116 |
CALL histdef(nid_hf3d, "O3", "Ozone mass fraction", "?", iim, & |
if (nbtr >= 3) then |
117 |
(jjm + 1), nhori, llm, 1, llm, nvert, 32, "ave(X)", zstohf, & |
CALL histdef(nid_hf3d, "O3", "Ozone mass fraction", "?", iim, & |
118 |
zout) |
(jjm + 1), nhori, llm, 1, llm, nvert, 32, "ave(X)", zstohf, & |
119 |
|
zout) |
120 |
|
end if |
121 |
|
|
122 |
CALL histend(nid_hf3d) |
CALL histend(nid_hf3d) |
123 |
|
|