Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/phy_common/print_control_mod.F90

    r1761 r3829  
    22MODULE print_control_mod
    33
    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"
    79!$OMP THREADPRIVATE(lunout,prt_level,debug)
    810
     
    1517  SUBROUTINE set_print_control(lunout_,prt_level_,debug_)
    1618  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_
    2022     
    2123    lunout = lunout_
Note: See TracChangeset for help on using the changeset viewer.