Last change
on this file since 3553 was
1761,
checked in by emillour, 7 years ago
|
Slight improvement in the definition of print_control_mod module variables: the default value is set in the module (to avoid undefined behavior if these are used before the init_print_control routine is called).
EM
|
File size:
728 bytes
|
Line | |
---|
1 | ! $Id: $ |
---|
2 | MODULE print_control_mod |
---|
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" |
---|
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 | |
---|
13 | CONTAINS |
---|
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 | |
---|
27 | END MODULE print_control_mod |
---|
Note: See
TracBrowser
for help on using the repository browser.