--- trunk/Sources/dyn3d/unit_nml_m.f	2015/04/29 15:47:56	134
+++ trunk/dyn3d/unit_nml_m.f	2018/07/12 14:49:20	276
@@ -2,6 +2,19 @@
 
   implicit none
 
-  integer unit_nml ! logical unit number for file containing used namelists
+  integer, protected:: unit_nml
+  ! logical unit number for file containing used namelists
 
+contains
+
+  subroutine set_unit_nml
+
+    use jumble, only: new_unit
+
+    !--------------------------------------------------------------
+
+    call new_unit(unit_nml)
+    
+  end subroutine set_unit_nml
+  
 end module unit_nml_m