|
Last change
on this file since 2167 was
1896,
checked in by jvatant, 8 years ago
|
|
Merge EM modifs on phy_common and xios
from LMDZ.GENERIC to LMDZ.TITAN.
See logs from r1673, r1682 and r1760
--JVO
|
|
File size:
716 bytes
|
| Rev | Line | |
|---|
| [1673] | 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 | |
|---|
| [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 | |
|---|
| [1673] | 13 | CONTAINS |
|---|
| 14 | |
|---|
| [1682] | 15 | SUBROUTINE set_print_control(lunout_,prt_level_,debug_) |
|---|
| [1673] | 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_ |
|---|
| [1673] | 24 | |
|---|
| [1682] | 25 | END SUBROUTINE set_print_control |
|---|
| [1673] | 26 | |
|---|
| 27 | END MODULE print_control_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
