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

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

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

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