GCC Code Coverage Report


Directory: ./
File: phy_common/init_print_control_mod.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 15 19 78.9%
Branches: 3 8 37.5%

Line Branch Exec Source
1 MODULE 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
6 CONTAINS
7
8 1 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 1 prt_level = 0
26 1 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 1 lunout=6
34 1 CALL getin_p('lunout', lunout)
35
36
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (is_omp_root) THEN
37
1/2
✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
1 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 1 debug = .FALSE.
54 1 CALL getin_p('debug',debug)
55
56
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (is_master) THEN
57 1 WRITE(lunout,*)"init_print_control: prt_level=",prt_level
58 1 WRITE(lunout,*)"init_print_control: lunout=",lunout
59 1 WRITE(lunout,*)"init_print_control: debug=",debug
60 ENDIF
61
62 1 CALL set_print_control(lunout,prt_level,debug)
63
64 1 END SUBROUTINE init_print_control
65
66 END MODULE init_print_control_mod
67
68