Changeset 1761 for trunk

Timestamp:

Jul 28, 2017, 2:36:57 PM (7 years ago)

Author:

emillour

Message:

Slight improvement in the definition of print_control_mod module variables: the default value is set in the module (to avoid undefined behavior if these are used before the init_print_control routine is called).
EM

Location:

trunk/LMDZ.COMMON/libf/phy_common

Files:

• init_print_control_mod.F90 (modified) (3 diffs)
• print_control_mod.F90 (modified) (1 diff)

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

@@ -23 +23 @@
     !Config  Help = Niveau d'impression pour le débogage
     !Config         (0 = minimum d'impression)
-    prt_level = 0
+!    prt_level = 0 ! default set in  print_control_mod)
     CALL getin_p('prt_level',prt_level)
 
@@ -31 +31 @@
     !Config  Help = unite de fichier pour les impressions 
     !Config         (defaut sortie standard = 6)
-    lunout=6
+!    lunout=6 ! default set in  print_control_mod)
     CALL getin_p('lunout', lunout)
 
@@ -51 +51 @@
     !Config  Help = positionne le mode debogage
 
-    debug = .FALSE.
+!    debug = .FALSE. ! default set in  print_control_mod)
     CALL getin_p('debug',debug)
     

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

@@ -2 +2 @@
 MODULE print_control_mod
 
-  INTEGER,SAVE :: lunout ! default output file identifier (6==screen)
-  INTEGER,SAVE :: prt_level ! debug output level
-  LOGICAL,SAVE :: debug ! flag to specify if in "debug mode"
+  INTEGER,SAVE :: lunout=6 ! default output file identifier (6==screen)
+  INTEGER,SAVE :: prt_level=0 ! debug output level
+  LOGICAL,SAVE :: debug=.FALSE. ! flag to specify if in "debug mode"
 !$OMP THREADPRIVATE(lunout,prt_level,debug)