source: LMDZ6/branches/Ocean_skin/libf/phy_common/print_control_mod.F90 @ 3810

Last change on this file since 3810 was 3605, checked in by lguez, 5 years ago

Merge revisions 3427:3600 of trunk into branch Ocean_skin

File size: 716 bytes
Line 
1! $Id: $
2MODULE print_control_mod
3
4  INTEGER,SAVE :: lunout ! default output file identifier (6==screen)
5  INTEGER,SAVE :: prt_level ! debug output level
6  LOGICAL,SAVE :: debug ! flag to specify if in "debug mode"
7!$OMP THREADPRIVATE(lunout,prt_level,debug)
8
9  ! NB: Module variable Initializations done by set_print_control
10  !     routine from init_print_control_mod to avoid circular
11  !     module dependencies
12
13CONTAINS
14
15  SUBROUTINE set_print_control(lunout_,prt_level_,debug_)
16  IMPLICIT NONE
17    INTEGER :: lunout_
18    INTEGER :: prt_level_
19    LOGICAL :: debug_
20     
21    lunout = lunout_
22    prt_level = prt_level_
23    debug = debug_
24   
25  END SUBROUTINE set_print_control
26
27END MODULE print_control_mod
Note: See TracBrowser for help on using the repository browser.