source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phy_common/init_print_control_mod.F90 @ 3736

Last change on this file since 3736 was 3049, checked in by Laurent Fairhead, 7 years ago

Replacing iniprint

File size: 2.0 KB
Line 
1MODULE init_print_control_mod
2
3! init_print_control to initialize print_control_mod variables
4! not included there because of circular dependecy issues
5
6CONTAINS
7
8  SUBROUTINE init_print_control
9  USE print_control_mod, ONLY : set_print_control
10  USE ioipsl_getin_p_mod, ONLY : getin_p
11  USE mod_phys_lmdz_para, ONLY: is_omp_root, is_master
12  IMPLICIT NONE
13
14    INTEGER :: lunout ! default output file identifier (6==screen)
15    INTEGER :: prt_level ! Output level
16    LOGICAL :: debug ! flag to specify if in "debug mode"
17    LOGICAL :: opened
18    INTEGER :: number
19   
20    !Config  Key  = prt_level
21    !Config  Desc = niveau d'impressions de débogage
22    !Config  Def  = 0
23    !Config  Help = Niveau d'impression pour le débogage
24    !Config         (0 = minimum d'impression)
25    prt_level = 0
26    CALL getin_p('prt_level',prt_level)
27
28    !Config  Key  = lunout
29    !Config  Desc = unite de fichier pour les impressions
30    !Config  Def  = 6
31    !Config  Help = unite de fichier pour les impressions
32    !Config         (defaut sortie standard = 6)
33    lunout=6
34    CALL getin_p('lunout', lunout)
35
36    IF (is_omp_root) THEN
37      IF (lunout /= 5 .and. lunout /= 6) THEN
38         INQUIRE(FILE='lmdz.out_0000',OPENED=opened,NUMBER=number)
39         IF (opened) THEN
40           lunout=number
41         ELSE
42           OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write',  &
43                STATUS='unknown',FORM='formatted')
44         ENDIF
45      ENDIF
46    ENDIF
47
48    !Config  Key  = debug
49    !Config  Desc = mode debogage
50    !Config  Def  = false
51    !Config  Help = positionne le mode debogage
52
53    debug = .FALSE.
54    CALL getin_p('debug',debug)
55   
56    IF (is_master) THEN
57      WRITE(lunout,*)"init_print_control: prt_level=",prt_level
58      WRITE(lunout,*)"init_print_control: lunout=",lunout
59      WRITE(lunout,*)"init_print_control: debug=",debug     
60    ENDIF
61   
62    CALL set_print_control(lunout,prt_level,debug)
63
64  END SUBROUTINE init_print_control 
65
66END MODULE init_print_control_mod
67
Note: See TracBrowser for help on using the repository browser.