/[lmdze]/trunk/Sources/phylmd/initphysto.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/initphysto.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 188 by guez, Mon Mar 21 15:36:26 2016 UTC revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC
# Line 31  contains Line 31  contains
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
# Line 76  contains Line 76  contains
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, &
Legend:
Removed from v.188  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21