/[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 5 by guez, Mon Mar 3 16:32:04 2008 UTC trunk/libf/dyn3d/iniadvtrac.f90 revision 18 by guez, Thu Aug 7 12:29:13 2008 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 106  contains Line 106  contains
106         if (nq_local > nqmx) then         if (nq_local > nqmx) then
107            print *, 'nombre de traceurs trop important'            print *, 'nombre de traceurs trop important'
108            print *, 'verifier traceur.def'            print *, 'verifier traceur.def'
109            stop            stop 1
110         endif         endif
111    
112         do iq=1, nq_local         do iq=1, nq_local
# Line 215  contains Line 215  contains
215    
216    END subroutine iniadvtrac    END subroutine iniadvtrac
217    
218  end module advtrac_m  end module iniadvtrac_m
Legend:
Removed from v.5  
changed lines
  Added in v.18
  ViewVC Help
Powered by ViewVC 1.1.21