/[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

revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 36 by guez, Thu Dec 2 17:11:04 2010 UTC
# Line 27  contains Line 27  contains
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    
30      use numer_rec, only: assert      use nr_util, only: assert
31    
32      ! Variables local to the procedure:      ! Variables local to the procedure:
33    
# Line 91  contains Line 91  contains
91         endif         endif
92         tnom(iq)=str1         tnom(iq)=str1
93         tname(iq)=tnom(iq)         tname(iq)=tnom(iq)
94         str2=tnom(iq)         str2=tnom(iq)
95         ttext(iq) = trim(str2) // descrq(iadv(iq))         ttext(iq) = trim(str2) // descrq(iadv(iq))
96      end do      end do
97    
Legend:
Removed from v.23  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.21