Changeset 3829 for trunk/LMDZ.COMMON/libf/phy_common/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/print_control_mod.F90 (modified) (2 diffs)

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

@@ -2 +2 @@
 MODULE print_control_mod
 
-  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"
+  IMPLICIT NONE
+
+  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"
 !$OMP THREADPRIVATE(lunout,prt_level,debug)
 
@@ -15 +17 @@
   SUBROUTINE set_print_control(lunout_,prt_level_,debug_)
   IMPLICIT NONE
-    INTEGER :: lunout_
-    INTEGER :: prt_level_
-    LOGICAL :: debug_
+    INTEGER,INTENT(IN) :: lunout_
+    INTEGER,INTENT(IN) :: prt_level_
+    LOGICAL,INTENT(IN) :: debug_
       
     lunout = lunout_