Changeset 1791

Timestamp:

Sep 29, 2017, 3:33:01 PM (7 years ago)

Author:

emillour

Message:

Common dynamics:
Bug fix: variables from print_control_mod should be directly accessed (to retain default value).
EM

File:

• trunk/LMDZ.COMMON/libf/phy_common/init_print_control_mod.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/phy_common/init_print_control_mod.F90

@@ -7 +7 @@
 
   SUBROUTINE init_print_control
-  USE print_control_mod, ONLY : set_print_control
+  USE print_control_mod, ONLY : set_print_control, &
+                                prt_level, lunout, debug 
   USE ioipsl_getin_p_mod, ONLY : getin_p
   USE mod_phys_lmdz_para, ONLY: is_omp_root, is_master
   IMPLICIT NONE
 
-    INTEGER :: lunout ! default output file identifier (6==screen)
-    INTEGER :: prt_level ! Output level
-    LOGICAL :: debug ! flag to specify if in "debug mode"
+!    INTEGER :: lunout ! default output file identifier (6==screen)
+!    INTEGER :: prt_level ! Output level
+!    LOGICAL :: debug ! flag to specify if in "debug mode"
     LOGICAL :: opened
     INTEGER :: number