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

Diff of /trunk/dyn3d/unit_nml_m.f

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 276 by guez, Thu Jul 12 14:49:20 2018 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.254  
changed lines
  Added in v.276
  ViewVC Help
Powered by ViewVC 1.1.21