|
Last change
on this file since 3026 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
|
| Rev | Line | |
|---|
| [1521] | 1 | ! $Id: $ |
|---|
| 2 | MODULE print_control_mod |
|---|
| 3 | |
|---|
| [1761] | 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" |
|---|
| [1521] | 7 | !$OMP THREADPRIVATE(lunout,prt_level,debug) |
|---|
| 8 | |
|---|
| [1682] | 9 | ! NB: Module variable Initializations done by set_print_control |
|---|
| 10 | ! routine from init_print_control_mod to avoid circular |
|---|
| 11 | ! module dependencies |
|---|
| 12 | |
|---|
| [1521] | 13 | CONTAINS |
|---|
| 14 | |
|---|
| [1682] | 15 | SUBROUTINE set_print_control(lunout_,prt_level_,debug_) |
|---|
| [1521] | 16 | IMPLICIT NONE |
|---|
| [1682] | 17 | INTEGER :: lunout_ |
|---|
| 18 | INTEGER :: prt_level_ |
|---|
| 19 | LOGICAL :: debug_ |
|---|
| 20 | |
|---|
| 21 | lunout = lunout_ |
|---|
| 22 | prt_level = prt_level_ |
|---|
| 23 | debug = debug_ |
|---|
| [1521] | 24 | |
|---|
| [1682] | 25 | END SUBROUTINE set_print_control |
|---|
| [1521] | 26 | |
|---|
| 27 | END MODULE print_control_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
