31 |
! L. Fairhead, 03/99 |
! L. Fairhead, 03/99 |
32 |
|
|
33 |
use dynetat0_m, only: day_ref, annee_ref |
use dynetat0_m, only: day_ref, annee_ref |
34 |
use gr_fi_ecrit_m, only: gr_fi_ecrit |
use gr_phy_write_m, only: gr_phy_write |
35 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
36 |
USE histdef_m, ONLY : histdef |
USE histdef_m, ONLY : histdef |
37 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
76 |
CALL ymds2ju(annee_ref,1,day_ref,0.0,zjulian) |
CALL ymds2ju(annee_ref,1,day_ref,0.0,zjulian) |
77 |
tau0 = 0 |
tau0 = 0 |
78 |
|
|
79 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon) |
zx_lon = gr_phy_write(rlon) |
80 |
DO i = 1, iim |
DO i = 1, iim |
81 |
zx_lon(i,1) = rlon(i+1) |
zx_lon(i,1) = rlon(i+1) |
82 |
zx_lon(i,jjm+1) = rlon(i+1) |
zx_lon(i,jjm+1) = rlon(i+1) |
83 |
END DO |
END DO |
84 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlat,zx_lat) |
zx_lat = gr_phy_write(rlat) |
85 |
|
|
86 |
|
|
87 |
CALL histbeg_totreg(infile,zx_lon(:,1),zx_lat(1,:),1,iim,1,jjm+1,tau0, & |
CALL histbeg_totreg(infile,zx_lon(:,1),zx_lat(1,:),1,iim,1,jjm+1,tau0, & |