/[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 32 by guez, Tue Apr 6 17:52:58 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
476        use dimphy, only: klon        use dimphy, only: klon
477        use grid_change, only: gr_phy_write_2d, gr_phy_write_3d        use grid_change, only: gr_phy_write_2d
478          use gr_phy_write_3d_m, only: gr_phy_write_3d
479    
480        logical, intent(in):: lessivage        logical, intent(in):: lessivage
481    
# Line 486  contains Line 488  contains
488        ! Variables local to the procedure:        ! Variables local to the procedure:
489        integer it        integer it
490        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)  
491        logical, parameter:: ok_sync = .true.        logical, parameter:: ok_sync = .true.
492    
493        !-----------------------------------------------------        !-----------------------------------------------------
# Line 513  contains Line 514  contains
514        ENDDO        ENDDO
515    
516        CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay))        CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay))
517        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))
518    
519        if (ok_sync) then        if (ok_sync) then
520           call histsync(nid_tra)           call histsync(nid_tra)
Legend:
Removed from v.20  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21