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

Diff of /trunk/dyn3d/iniadvtrac.f

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

revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 26  contains Line 26  contains
26      ! Modification spéciale traceur F. Forget 05/94      ! Modification spéciale traceur F. Forget 05/94
27      ! Modification M.-A. Filiberti 02/02 lecture de "traceur.def"      ! Modification M.-A. Filiberti 02/02 lecture de "traceur.def"
28      ! Modification de l'intégration de "q" (26/04/94)      ! Modification de l'intégration de "q" (26/04/94)
29        ! Pour Van-Leer plus vapeur d'eau saturée : iadv(1)=4
30        ! Pour Van-Leer : iadv=10
31    
32      use numer_rec, only: assert      use nr_util, only: assert
33    
34      ! Variables local to the procedure:      ! Variables local to the procedure:
35    
# Line 91  contains Line 93  contains
93         endif         endif
94         tnom(iq)=str1         tnom(iq)=str1
95         tname(iq)=tnom(iq)         tname(iq)=tnom(iq)
96         str2=tnom(iq)         str2=tnom(iq)
97         ttext(iq) = trim(str2) // descrq(iadv(iq))         ttext(iq) = trim(str2) // descrq(iadv(iq))
98      end do      end do
99    
Legend:
Removed from v.23  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21