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

Diff of /trunk/dyn3d/iniadvtrac.f

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

trunk/libf/dyn3d/advtrac_m.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/libf/dyn3d/iniadvtrac.f90 revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC
# Line 1  Line 1 
1  module advtrac_m  module iniadvtrac_m
2    
3    ! From advtrac.h, v 1.1.1.1 2004/05/19 12:53:06    ! From advtrac.h, v 1.1.1.1 2004/05/19 12:53:06
4    
# Line 18  module advtrac_m Line 18  module advtrac_m
18    
19  contains  contains
20    
21    subroutine iniadvtrac(nq)    subroutine iniadvtrac
22    
23      ! From dyn3d/iniadvtrac.F, version 1.3 2005/04/13 08:58:34      ! From dyn3d/iniadvtrac.F, version 1.3 2005/04/13 08:58:34
24    
# 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      integer, intent(out):: nq      use numer_rec, only: assert
31    
32      ! Variables local to the procedure:      ! Variables local to the procedure:
33    
# Line 36  contains Line 36  contains
36      character(len=2) txtp(9)      character(len=2) txtp(9)
37      character(len=13) str1, str2      character(len=13) str1, str2
38    
39      integer iq, iiq, iiiq, ierr, ii      integer iq, iiq, iiiq, ierr, ii, nq_local
40    
41      data txtp/'x', 'y', 'z', 'xx', 'xy', 'xz', 'yy', 'yz', 'zz'/      data txtp/'x', 'y', 'z', 'xx', 'xy', 'xz', 'yy', 'yz', 'zz'/
42    
# Line 101  contains Line 101  contains
101           iostat=ierr)           iostat=ierr)
102      if (ierr == 0) then      if (ierr == 0) then
103         print *, 'Ouverture de "traceur.def" ok'         print *, 'Ouverture de "traceur.def" ok'
104         read(unit=90, fmt=*) nq         read(unit=90, fmt=*) nq_local
105         print *, 'nombre de traceurs ', nq         print *, 'nombre de traceurs ', nq_local
106         if (nq > nqmx) then         call assert(nq_local == nqmx, "iniadvtrac nq_local")
           print *, 'nombre de traceurs trop important'  
           print *, 'verifier traceur.def'  
           stop  
        endif  
107    
108         do iq=1, nq         do iq=1, nqmx
109            read(90, 999) hadv(iq), vadv(iq), tnom(iq)            read(90, 999) hadv(iq), vadv(iq), tnom(iq)
110         end do         end do
111         close(90)           close(90)  
112         PRINT *, 'lecture de traceur.def :'           PRINT *, 'lecture de traceur.def :'  
113         do iq=1, nq         do iq=1, nqmx
114            write(*, *) hadv(iq), vadv(iq), tnom(iq)            write(*, *) hadv(iq), vadv(iq), tnom(iq)
115         end do         end do
116      else      else
117         print *, 'problème ouverture traceur.def'         print *, 'Problème à l''ouverture de "traceur.def"'
118         print *, 'ATTENTION on prend des valeurs par défaut'         print *, 'Attention : on prend des valeurs par défaut.'
119         nq = 4         call assert(nqmx == 4, "iniadvtrac nqmx")
120         hadv(1) = 14         hadv(1) = 14
121         vadv(1) = 14         vadv(1) = 14
122         tnom(1) = 'H2Ov'         tnom(1) = 'H2Ov'
# Line 135  contains Line 131  contains
131         tnom(4) = 'PB'         tnom(4) = 'PB'
132      ENDIF      ENDIF
133      PRINT *, 'Valeur de traceur.def :'      PRINT *, 'Valeur de traceur.def :'
134      do iq=1, nq      do iq=1, nqmx
135         write(*, *) hadv(iq), vadv(iq), tnom(iq)         write(*, *) hadv(iq), vadv(iq), tnom(iq)
136      end do      end do
137    
# Line 143  contains Line 139  contains
139      ! détemine le nom long :      ! détemine le nom long :
140      iiq=0      iiq=0
141      ii=0      ii=0
142      do iq=1, nq      do iq=1, nqmx
143         iiq=iiq+1         iiq=iiq+1
144         if (hadv(iq) /= vadv(iq)) then         if (hadv(iq) /= vadv(iq)) then
145            if (hadv(iq) == 10.and.vadv(iq) == 16) then            if (hadv(iq) == 10.and.vadv(iq) == 16) then
# Line 214  contains Line 210  contains
210    
211    END subroutine iniadvtrac    END subroutine iniadvtrac
212    
213  end module advtrac_m  end module iniadvtrac_m
Legend:
Removed from v.3  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21