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