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

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

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

revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC
# Line 513  contains Line 513  contains
513        ENDDO        ENDDO
514    
515        CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay))        CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay))
516        CALL histwrite(nid_tra, "t", itau_w, gr_phy_write_3d(t_seri))        CALL histwrite(nid_tra, "T", itau_w, gr_phy_write_3d(t_seri))
517    
518        if (ok_sync) then        if (ok_sync) then
519           call histsync(nid_tra)           call histsync(nid_tra)
Legend:
Removed from v.20  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.21