/[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 30 by guez, Thu Apr 1 09:07:28 2010 UTC
# Line 468  contains Line 468  contains
468        ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30        ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30
469    
470        use dimens_m, only: iim, jjm, llm        use dimens_m, only: iim, jjm, llm
471        use ioipsl, only: histwrite, histsync        use histcom, only: histsync
472          use histwrite_m, only: histwrite
473        use temps, only: itau_phy        use temps, only: itau_phy
474        use iniadvtrac_m, only: tnom        use iniadvtrac_m, only: tnom
475        use comgeomphy, only: airephy        use comgeomphy, only: airephy
# Line 486  contains Line 487  contains
487        ! Variables local to the procedure:        ! Variables local to the procedure:
488        integer it        integer it
489        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)  
490        logical, parameter:: ok_sync = .true.        logical, parameter:: ok_sync = .true.
491    
492        !-----------------------------------------------------        !-----------------------------------------------------
# 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.30
  ViewVC Help
Powered by ViewVC 1.1.21