/[lmdze]/trunk/Sources/dyn3d/iniadvtrac.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/iniadvtrac.f

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

trunk/dyn3d/iniadvtrac.f90 revision 78 by guez, Wed Feb 5 17:51:07 2014 UTC trunk/dyn3d/iniadvtrac.f revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC
# Line 30  module iniadvtrac_m Line 30  module iniadvtrac_m
30    
31    INTEGER hadv(nqmx) ! indice schéma transport horizontal    INTEGER hadv(nqmx) ! indice schéma transport horizontal
32    INTEGER vadv(nqmx) ! indice schéma transport vertical    INTEGER vadv(nqmx) ! indice schéma transport vertical
   INTEGER niadv(nqmx) ! équivalent dynamique / physique  
33    character(len=8) tnom(nqmx) ! nom court du traceur    character(len=8) tnom(nqmx) ! nom court du traceur
34    character(len=10) tname(nqmx) ! nom du traceur pour restart    character(len=10) tname(nqmx) ! nom du traceur pour restart
35    character(len=13) ttext(nqmx) ! nom long du traceur pour sorties    character(len=13) ttext(nqmx) ! nom long du traceur pour sorties
# Line 44  contains Line 43  contains
43      ! Authors: P. Le Van, L. Fairhead, F. Hourdin, F. Codron,      ! Authors: P. Le Van, L. Fairhead, F. Hourdin, F. Codron,
44      ! F. Forget, M.-A. Filiberti      ! F. Forget, M.-A. Filiberti
45    
46        ! Initialisation des traceurs
47        ! Choix du schéma pour l'advection dans le fichier "traceur.def"
48    
49      use nr_util, only: assert      use nr_util, only: assert
50      use jumble, only: new_unit      use jumble, only: new_unit
51    
# Line 123  contains Line 125  contains
125         endif         endif
126      end do      end do
127    
     forall (iq = 1: nqmx) niadv(iq)=iq  
   
128    END subroutine iniadvtrac    END subroutine iniadvtrac
129    
130  end module iniadvtrac_m  end module iniadvtrac_m
Legend:
Removed from v.78  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21