14 |
use dimphy, only: klon |
use dimphy, only: klon |
15 |
use disvert_m, only: presnivs |
use disvert_m, only: presnivs |
16 |
use dynetat0_m, only: day_ref, annee_ref |
use dynetat0_m, only: day_ref, annee_ref |
17 |
|
use gr_phy_write_m, only: gr_phy_write |
18 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
19 |
USE histdef_m, ONLY : histdef |
USE histdef_m, ONLY : histdef |
20 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
42 |
|
|
43 |
CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
44 |
|
|
45 |
CALL gr_fi_ecrit(1, klon, iim, (jjm + 1), rlon, zx_lon) |
zx_lon = gr_phy_write(rlon) |
46 |
DO i = 1, iim |
DO i = 1, iim |
47 |
zx_lon(i, 1) = rlon(i+1) |
zx_lon(i, 1) = rlon(i+1) |
48 |
zx_lon(i, (jjm + 1)) = rlon(i+1) |
zx_lon(i, (jjm + 1)) = rlon(i+1) |
49 |
ENDDO |
ENDDO |
50 |
CALL gr_fi_ecrit(1, klon, iim, (jjm + 1), rlat, zx_lat) |
zx_lat = gr_phy_write(rlat) |
51 |
CALL histbeg_totreg("histins", zx_lon(:, 1), zx_lat(1, :), 1, iim, 1, & |
CALL histbeg_totreg("histins", zx_lon(:, 1), zx_lat(1, :), 1, iim, 1, & |
52 |
jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins) |
jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins) |
53 |
write(*, *)'Inst ', itau_phy, zjulian |
write(*, *)'Inst ', itau_phy, zjulian |