Parent Directory | Revision Log | 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.f 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |