/[lmdze]/trunk/dyn3d/infotrac_init.f90
ViewVC logotype

Diff of /trunk/dyn3d/infotrac_init.f90

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

trunk/dyn3d/iniadvtrac.f revision 320 by guez, Tue Dec 11 16:49:32 2018 UTC trunk/dyn3d/infotrac_init.f revision 321 by guez, Tue Dec 11 22:48:09 2018 UTC
# Line 1  Line 1 
1  module iniadvtrac_m  module infotrac_init_m
2    
3    ! From advtrac.h, version 1.1.1.1 2004/05/19 12:53:06    ! From advtrac.h, version 1.1.1.1 2004/05/19 12:53:06
4    
# Line 23  module iniadvtrac_m Line 23  module iniadvtrac_m
23    
24  contains  contains
25    
26    subroutine iniadvtrac    subroutine infotrac_init
27    
28      ! 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
29    
# Line 49  contains Line 49  contains
49    
50      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
51    
52      print *, "Call sequence information: iniadvtrac"      print *, "Call sequence information: infotrac_init"
53    
54      ! Initializations:      ! Initializations:
55      descrq(0) = ''      descrq(0) = ''
# Line 66  contains Line 66  contains
66         print *, 'Ouverture de "traceur.def" ok'         print *, 'Ouverture de "traceur.def" ok'
67         read(unit, fmt = *) nq_local         read(unit, fmt = *) nq_local
68         print *, 'nombre de traceurs ', nq_local         print *, 'nombre de traceurs ', nq_local
69         call assert(nq_local == nqmx, "iniadvtrac nq_local")         call assert(nq_local == nqmx, "infotrac_init nq_local")
70    
71         do iq = 1, nqmx         do iq = 1, nqmx
72            read(unit, fmt = *) iadv(iq), tname(iq)            read(unit, fmt = *) iadv(iq), tname(iq)
# Line 79  contains Line 79  contains
79      else      else
80         print *, 'Could not open "traceur.def".'         print *, 'Could not open "traceur.def".'
81         print *, 'Using default values.'         print *, 'Using default values.'
82         call assert(nqmx == 4, "iniadvtrac nqmx")         call assert(nqmx == 4, "infotrac_init nqmx")
83         iadv(:4) = (/14, 10, 10, 10/)         iadv(:4) = (/14, 10, 10, 10/)
84         tname(1) = 'H2Ov'         tname(1) = 'H2Ov'
85         tname(2) = 'H2Ol'         tname(2) = 'H2Ol'
# Line 96  contains Line 96  contains
96         ttext(iq) = trim(tname(iq)) // descrq(iadv(iq))         ttext(iq) = trim(tname(iq)) // descrq(iadv(iq))
97      end do      end do
98    
99    END subroutine iniadvtrac    END subroutine infotrac_init
100    
101  end module iniadvtrac_m  end module infotrac_init_m
Legend:
Removed from v.320  
changed lines
  Added in v.321
  ViewVC Help
Powered by ViewVC 1.1.21