/[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 23 by guez, Mon Dec 14 15:25:16 2009 UTC
# Line 486  contains Line 486  contains
486        ! Variables local to the procedure:        ! Variables local to the procedure:
487        integer it        integer it
488        integer itau_w   ! pas de temps ecriture        integer itau_w   ! pas de temps ecriture
       REAL zx_tmp_2d(iim, jjm+1), zx_tmp_3d(iim, jjm+1, llm)  
489        logical, parameter:: ok_sync = .true.        logical, parameter:: ok_sync = .true.
490    
491        !-----------------------------------------------------        !-----------------------------------------------------
# Line 513  contains Line 512  contains
512        ENDDO        ENDDO
513    
514        CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay))        CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay))
515        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))
516    
517        if (ok_sync) then        if (ok_sync) then
518           call histsync(nid_tra)           call histsync(nid_tra)
Legend:
Removed from v.20  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21