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

Diff of /trunk/dyn3d/unit_nml_m.f90

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

trunk/Sources/dyn3d/unit_nml_m.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/dyn3d/unit_nml_m.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 2  module unit_nml_m Line 2  module unit_nml_m
2    
3    implicit none    implicit none
4    
5    integer unit_nml ! logical unit number for file containing used namelists    integer, protected:: unit_nml
6      ! logical unit number for file containing used namelists
7    
8    contains
9    
10      subroutine set_unit_nml
11    
12        use jumble, only: new_unit
13    
14        !--------------------------------------------------------------
15    
16        call new_unit(unit_nml)
17        
18      end subroutine set_unit_nml
19      
20  end module unit_nml_m  end module unit_nml_m
Legend:
Removed from v.134  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21