Changeset 3829 for trunk/LMDZ.COMMON/libf/phy_common/init_print_control_mod.F90

Timestamp:

Jul 4, 2025, 10:42:17 AM (4 days ago)

Author:

emillour

Message:

Common physics routines:
Some minor reorganization of the print_control module, in line
with what is done in the Earth GCM and likely healthier with
respect to OpenMP.
EM

File:

• trunk/LMDZ.COMMON/libf/phy_common/init_print_control_mod.F90 (modified) (2 diffs)

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

@@ -4 +4 @@
 ! not included there because of circular dependecy issues
 
+IMPLICIT NONE
+  
 CONTAINS
 
   SUBROUTINE init_print_control
-  USE print_control_mod, ONLY : set_print_control, &
-                                prt_level, lunout, debug 
+  USE print_control_mod, ONLY : set_print_control 
   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 (0: none)
+    LOGICAL :: debug ! flag to specify if in "debug mode" (i.e. extra outputs)
     LOGICAL :: opened
     INTEGER :: number
     
-    !Config  Key  = prt_level
-    !Config  Desc = niveau d'impressions de débogage
-    !Config  Def  = 0
-    !Config  Help = Niveau d'impression pour le débogage
-    !Config         (0 = minimum d'impression)
-!    prt_level = 0 ! default set in  print_control_mod)
+    prt_level = 0 ! default (0: minimum verbosity)
     CALL getin_p('prt_level',prt_level)
 
-    !Config  Key  = lunout
-    !Config  Desc = unite de fichier pour les impressions
-    !Config  Def  = 6
-    !Config  Help = unite de fichier pour les impressions 
-    !Config         (defaut sortie standard = 6)
-!    lunout=6 ! default set in  print_control_mod)
+    lunout=6 ! default (i.e. standard output = 6)
     CALL getin_p('lunout', lunout)
 
@@ -47 +38 @@
     ENDIF
 
-    !Config  Key  = debug
-    !Config  Desc = mode debogage
-    !Config  Def  = false
-    !Config  Help = positionne le mode debogage
-
-!    debug = .FALSE. ! default set in  print_control_mod)
+    debug = .FALSE. ! default 
     CALL getin_p('debug',debug)