Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phy_common/print_control_mod.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phy_common/print_control_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phy_common/print_control_mod.F90

@@ -5 +5 @@
   INTEGER,SAVE :: prt_level ! debug output level
   LOGICAL,SAVE :: debug ! flag to specify if in "debug mode"
-  LOGICAL,SAVE :: alert_first_call = .TRUE. ! for printing alerts on first call to routine only           
-  LOGICAL,SAVE :: call_alert ! (combination of is_master and alert_first_call for easier use     
+  LOGICAL,SAVE :: alert_first_CALL = .TRUE. ! for printing alerts on first CALL to routine only
+  LOGICAL,SAVE :: call_alert ! (combination of is_master and alert_first_CALL for easier use
 !$OMP THREADPRIVATE(lunout,prt_level,debug, alert_first_call, call_alert)