2752 |
CALL histwrite(nid_hf3d, "vitv", itau_w, zx_tmp_3d, & |
CALL histwrite(nid_hf3d, "vitv", itau_w, zx_tmp_3d, & |
2753 |
iim*(jjm + 1)*llm, ndex3d) |
iim*(jjm + 1)*llm, ndex3d) |
2754 |
|
|
2755 |
CALL gr_fi_ecrit(llm, klon, iim, (jjm + 1), tr_seri(1, 1, 3), & |
if (nbtr >= 3) then |
2756 |
zx_tmp_3d) |
CALL gr_fi_ecrit(llm, klon, iim, (jjm + 1), tr_seri(1, 1, 3), & |
2757 |
CALL histwrite(nid_hf3d, "O3", itau_w, zx_tmp_3d, iim*(jjm + 1)*llm, ndex3d) |
zx_tmp_3d) |
2758 |
|
CALL histwrite(nid_hf3d, "O3", itau_w, zx_tmp_3d, iim*(jjm + 1)*llm, & |
2759 |
|
ndex3d) |
2760 |
|
end if |
2761 |
|
|
2762 |
if (ok_sync) then |
if (ok_sync) then |
2763 |
call histsync(nid_hf3d) |
call histsync(nid_hf3d) |