Changeset 3829 for trunk/LMDZ.COMMON/libf/phy_common/print_control_mod.F90
- Timestamp:
- Jul 4, 2025, 10:42:17 AM (4 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/phy_common/print_control_mod.F90
r1761 r3829 2 2 MODULE print_control_mod 3 3 4 INTEGER,SAVE :: lunout=6 ! default output file identifier (6==screen) 5 INTEGER,SAVE :: prt_level=0 ! debug output level 6 LOGICAL,SAVE :: debug=.FALSE. ! flag to specify if in "debug mode" 4 IMPLICIT NONE 5 6 INTEGER,SAVE :: lunout ! default output file identifier (6==screen) 7 INTEGER,SAVE :: prt_level ! debug output level 8 LOGICAL,SAVE :: debug ! flag to specify if in "debug mode" 7 9 !$OMP THREADPRIVATE(lunout,prt_level,debug) 8 10 … … 15 17 SUBROUTINE set_print_control(lunout_,prt_level_,debug_) 16 18 IMPLICIT NONE 17 INTEGER :: lunout_18 INTEGER :: prt_level_19 LOGICAL :: debug_19 INTEGER,INTENT(IN) :: lunout_ 20 INTEGER,INTENT(IN) :: prt_level_ 21 LOGICAL,INTENT(IN) :: debug_ 20 22 21 23 lunout = lunout_
Note: See TracChangeset
for help on using the changeset viewer.