/[lmdze]/trunk/libf/phylmd/ini_hist.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/ini_hist.f90

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

revision 17 by guez, Tue Aug 5 13:31:32 2008 UTC revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC
# Line 463  contains Line 463  contains
463    
464    !*************************************************    !*************************************************
465    
466    subroutine ini_histrac(nid_tra, pdtphys, presnivs, nqmax, lessivage)    subroutine ini_histrac(nid_tra, pdtphys, presnivs, nq_phys, lessivage)
467    
468      ! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30      ! From phylmd/ini_histrac.h, version 1.10 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: ymds2ju, histbeg_totreg, histvert, histdef, histend      use ioipsl, only: ymds2ju, histbeg_totreg, histvert, histdef, histend
472      use temps, only: annee_ref, day_ref, itau_phy      use temps, only: annee_ref, day_ref, itau_phy
473      use advtrac_m, only: niadv, tnom, ttext      use iniadvtrac_m, only: niadv, tnom, ttext
474      use dimphy, only: klon      use dimphy, only: klon
475      use clesphys, only: ecrit_tra      use clesphys, only: ecrit_tra
476      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
# Line 480  contains Line 480  contains
480      real, intent(in):: pdtphys  ! pas d'integration pour la physique (s)      real, intent(in):: pdtphys  ! pas d'integration pour la physique (s)
481      REAL, intent(in):: presnivs(:)      REAL, intent(in):: presnivs(:)
482    
483      integer, intent(in):: nqmax      integer, intent(in):: nq_phys
484      ! (nombre de traceurs auxquels on applique la physique)      ! (nombre de traceurs auxquels on applique la physique)
485    
486      logical, intent(in):: lessivage      logical, intent(in):: lessivage
# Line 515  contains Line 515  contains
515           "kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "ave(X)", &           "kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "ave(X)", &
516           zsto, zout)           zsto, zout)
517    
518      DO it = 1, nqmax      DO it = 1, nq_phys
519         ! champ 2D         ! champ 2D
520         iq=it+2         iq=it+2
521         iiq=niadv(iq)         iiq=niadv(iq)
Legend:
Removed from v.17  
changed lines
  Added in v.18
  ViewVC Help
Powered by ViewVC 1.1.21