Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	phylmd/printflag.F90	Lines:	50	69	72.5 %
Date:	2023-06-30 12:51:15	Branches:	29	70	41.4 %



! $Header$

SUBROUTINE printflag(tabcntr0, radpas, ok_journe, ok_instan, ok_region)



  ! Auteur :  P. Le Van

  IMPLICIT NONE

  REAL tabcntr0(100)
  LOGICAL cycle_diurn0, soil_model0, new_oliq0, ok_orodr0
  LOGICAL ok_orolf0, ok_limitvr0
  LOGICAL ok_journe, ok_instan, ok_region
  INTEGER radpas, radpas0

  include "clesphys.h"


  PRINT 100
  PRINT *, ' ******************************************************* &
    &                                                         &
    &  ************'
  PRINT *, ' ********   Choix  des principales  cles de la physique &
    &                                                         &
    &      *********'
  PRINT *, ' ******************************************************* &
    &                                                         &
    &  ************'
  PRINT 100
  PRINT 10, iflag_cycle_diurne.GE.1, soil_model
  PRINT 100

  IF (iflag_con==1) THEN
    PRINT *, ' *****           Shema  convection   LMD        &
      &                                                       &
      &                   ******'
  ELSE IF (iflag_con==2) THEN
    PRINT *, ' *****           Shema  convection  Tiedtke     &
      &                                                       &
      &                   ******'
  ELSE IF (iflag_con>=3) THEN
    PRINT *, ' *****           Shema  convection    Emanuel   &
      &                                                       &
      &                   ******'
  END IF
  PRINT 100

  PRINT 11, new_oliq, ok_orodr, ok_orolf
  PRINT 100

  PRINT 7, ok_limitvrai
  PRINT 100

  PRINT 12, nbapp_rad
  PRINT 100

  PRINT 8, radpas
  PRINT 100

  PRINT 4, ok_journe, ok_instan, ok_region
  PRINT 100
  PRINT 100


  cycle_diurn0 = .FALSE.
  soil_model0 = .FALSE.
  new_oliq0 = .FALSE.
  ok_orodr0 = .FALSE.
  ok_orolf0 = .FALSE.
  ok_limitvr0 = .FALSE.

  IF (tabcntr0(7)==1.) cycle_diurn0 = .TRUE.
  IF (tabcntr0(8)==1.) soil_model0 = .TRUE.
  IF (tabcntr0(9)==1.) new_oliq0 = .TRUE.
  IF (tabcntr0(10)==1.) ok_orodr0 = .TRUE.
  IF (tabcntr0(11)==1.) ok_orolf0 = .TRUE.
  IF (tabcntr0(12)==1.) ok_limitvr0 = .TRUE.

  PRINT *, ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ &
    &                                                         &
    & $$$$$$$$$$$$$'
  PRINT 100

  IF (int(tabcntr0(5))/=iflag_con) THEN
    PRINT 20, int(tabcntr0(5)), iflag_con
    PRINT 100
  END IF

  IF (int(tabcntr0(6))/=nbapp_rad) THEN
    PRINT 21, int(tabcntr0(6)), nbapp_rad
    ! radpas0  = NINT( 86400./tabcntr0(1)/INT( tabcntr0(6) ) )
    PRINT 100
    ! PRINT 22, radpas0, radpas
    PRINT 100
  END IF

  IF (cycle_diurn0 .AND. .NOT. (iflag_cycle_diurne.GE.1) .OR. .NOT. cycle_diurn0 .AND. &
      (iflag_cycle_diurne.GE.1) ) THEN
    PRINT 13, cycle_diurn0, iflag_cycle_diurne
    PRINT 100
  END IF

  IF (soil_model0 .AND. .NOT. soil_model .OR. .NOT. soil_model0 .AND. &
      soil_model) THEN
    PRINT 14, soil_model0, soil_model
    PRINT 100
  END IF

  IF (new_oliq0 .AND. .NOT. new_oliq .OR. .NOT. new_oliq0 .AND. new_oliq) &
      THEN
    PRINT 16, new_oliq0, new_oliq
    PRINT 100
  END IF

  IF (ok_orodr0 .AND. .NOT. ok_orodr .OR. .NOT. ok_orodr0 .AND. ok_orodr) &
      THEN
    PRINT 15, ok_orodr0, ok_orodr
    PRINT 100
  END IF

  IF (ok_orolf0 .AND. .NOT. ok_orolf .OR. .NOT. ok_orolf0 .AND. ok_orolf) &
      THEN
    PRINT 17, ok_orolf0, ok_orolf
    PRINT 100
  END IF

  IF (ok_limitvr0 .AND. .NOT. ok_limitvrai .OR. .NOT. ok_limitvr0 .AND. &
      ok_limitvrai) THEN
    PRINT 18, ok_limitvr0, ok_limitvrai
    PRINT 100
  END IF

  PRINT 100
  PRINT *, ' ******************************************************* &
    &                                                         &
    &  ************'
  PRINT 100

4 FORMAT (2X, 5('*'), '  ok_journe= ', L3, 3X, ',ok_instan = ', L3, 3X, &
    ',ok_region = ', L3, 3X, 5('*'))

7 FORMAT (2X, 5('*'), 15X, '      ok_limitvrai   = ', L3, 16X, 5('*'))

8 FORMAT (2X, '*****             radpas    =                      ', I4, 6X, &
    ' *****')

10 FORMAT (2X, 5('*'), '    Cycle_diurne = ', L3, 4X, ', Soil_model = ', L3, &
    12X, 6('*'))


11 FORMAT (2X, 5('*'), '  new_oliq = ', L3, 3X, ', Ok_orodr = ', L3, 3X, &
    ', Ok_orolf = ', L3, 3X, 5('*'))


12 FORMAT (2X, '*****  Nb d appels /jour des routines de rayonn. = ', I4, 6X, &
    ' *****')

13 FORMAT (2X, '$$$$$$$$   Attention !!  cycle_diurne  different  sur', /1X, &
    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)

14 FORMAT (2X, '$$$$$$$$   Attention !!    soil_model  different  sur', /1X, &
    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)

15 FORMAT (2X, '$$$$$$$$   Attention !!      ok_orodr  different  sur', /1X, &
    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)

16 FORMAT (2X, '$$$$$$$$   Attention !!      new_oliq  different  sur', /1X, &
    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)

17 FORMAT (2X, '$$$$$$$$   Attention !!      ok_orolf  different  sur', /1X, &
    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)

18 FORMAT (2X, '$$$$$$$$   Attention !!  ok_limitvrai  different  sur', /1X, &
    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)

20 FORMAT (/2X, '$$$$$$$$   Attention !!    iflag_con  different  sur', /1X, &
    10X, ' startphy = ', I3, 2X, ' et  run.def = ', I3)

21 FORMAT (2X, '$$$$$$$$   Attention !!     nbapp_rad  different  sur', /1X, &
    10X, ' startphy = ', I3, 2X, ' et  run.def = ', I3)

22 FORMAT (2X, '$$$$$$$$   Attention !!        radpas  different  sur', /1X, &
    10X, ' startphy = ', I3, 2X, ' et  run.def = ', I3)

100 FORMAT (/)

  RETURN
END SUBROUTINE printflag


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1
2			! $Header$
3
4		11	SUBROUTINE printflag(tabcntr0, radpas, ok_journe, ok_instan, ok_region)
5
6
7
8			! Auteur : P. Le Van
9
10			IMPLICIT NONE
11
12			REAL tabcntr0(100)
13			LOGICAL cycle_diurn0, soil_model0, new_oliq0, ok_orodr0
14			LOGICAL ok_orolf0, ok_limitvr0
15			LOGICAL ok_journe, ok_instan, ok_region
16			INTEGER radpas, radpas0
17
18			include "clesphys.h"
19
20
21		1	PRINT 100
22			PRINT , ' ****************************************************** &
23			& &
24		1	& ************'
25			PRINT , ' ******* Choix des principales cles de la physique &
26			& &
27		1	& *********'
28			PRINT , ' ****************************************************** &
29			& &
30		1	& ************'
31		1	PRINT 100
32		1	PRINT 10, iflag_cycle_diurne.GE.1, soil_model
33		1	PRINT 100
34
35	✗✓	1	IF (iflag_con==1) THEN
36			PRINT , ' **** Shema convection LMD &
37			& &
38			& ******'
39	✗✓	1	ELSE IF (iflag_con==2) THEN
40			PRINT , ' **** Shema convection Tiedtke &
41			& &
42			& ******'
43	✓✗	1	ELSE IF (iflag_con>=3) THEN
44			PRINT , ' **** Shema convection Emanuel &
45			& &
46		1	& ******'
47			END IF
48		1	PRINT 100
49
50		1	PRINT 11, new_oliq, ok_orodr, ok_orolf
51		1	PRINT 100
52
53		1	PRINT 7, ok_limitvrai
54		1	PRINT 100
55
56		1	PRINT 12, nbapp_rad
57		1	PRINT 100
58
59		1	PRINT 8, radpas
60		1	PRINT 100
61
62		1	PRINT 4, ok_journe, ok_instan, ok_region
63		1	PRINT 100
64		1	PRINT 100
65
66
67		1	cycle_diurn0 = .FALSE.
68		1	soil_model0 = .FALSE.
69		1	new_oliq0 = .FALSE.
70		1	ok_orodr0 = .FALSE.
71		1	ok_orolf0 = .FALSE.
72		1	ok_limitvr0 = .FALSE.
73
74	✓✗	1	IF (tabcntr0(7)==1.) cycle_diurn0 = .TRUE.
75	✓✗	1	IF (tabcntr0(8)==1.) soil_model0 = .TRUE.
76	✓✗	1	IF (tabcntr0(9)==1.) new_oliq0 = .TRUE.
77	✓✗	1	IF (tabcntr0(10)==1.) ok_orodr0 = .TRUE.
78	✓✗	1	IF (tabcntr0(11)==1.) ok_orolf0 = .TRUE.
79	✗✓	1	IF (tabcntr0(12)==1.) ok_limitvr0 = .TRUE.
80
81			PRINT *, ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ &
82			& &
83		1	& $$$$$$$$$$$$$'
84		1	PRINT 100
85
86	✗✓	1	IF (int(tabcntr0(5))/=iflag_con) THEN
87			PRINT 20, int(tabcntr0(5)), iflag_con
88			PRINT 100
89			END IF
90
91	✗✓	1	IF (int(tabcntr0(6))/=nbapp_rad) THEN
92			PRINT 21, int(tabcntr0(6)), nbapp_rad
93			! radpas0 = NINT( 86400./tabcntr0(1)/INT( tabcntr0(6) ) )
94			PRINT 100
95			! PRINT 22, radpas0, radpas
96			PRINT 100
97			END IF
98
99	✓✗✓✗ ✗✓✗✗	1	IF (cycle_diurn0 .AND. .NOT. (iflag_cycle_diurne.GE.1) .OR. .NOT. cycle_diurn0 .AND. &
100			(iflag_cycle_diurne.GE.1) ) THEN
101			PRINT 13, cycle_diurn0, iflag_cycle_diurne
102			PRINT 100
103			END IF
104
105	✓✗✓✗ ✗✓✗✗	1	IF (soil_model0 .AND. .NOT. soil_model .OR. .NOT. soil_model0 .AND. &
106			soil_model) THEN
107			PRINT 14, soil_model0, soil_model
108			PRINT 100
109			END IF
110
111	✓✗✓✗ ✗✓✗✗	1	IF (new_oliq0 .AND. .NOT. new_oliq .OR. .NOT. new_oliq0 .AND. new_oliq) &
112			THEN
113			PRINT 16, new_oliq0, new_oliq
114			PRINT 100
115			END IF
116
117	✓✗✓✗ ✗✓✗✗	1	IF (ok_orodr0 .AND. .NOT. ok_orodr .OR. .NOT. ok_orodr0 .AND. ok_orodr) &
118			THEN
119			PRINT 15, ok_orodr0, ok_orodr
120			PRINT 100
121			END IF
122
123	✓✗✓✗ ✗✓✗✗	1	IF (ok_orolf0 .AND. .NOT. ok_orolf .OR. .NOT. ok_orolf0 .AND. ok_orolf) &
124			THEN
125			PRINT 17, ok_orolf0, ok_orolf
126			PRINT 100
127			END IF
128
129	✗✓✗✗ ✓✗✗✓	1	IF (ok_limitvr0 .AND. .NOT. ok_limitvrai .OR. .NOT. ok_limitvr0 .AND. &
130			ok_limitvrai) THEN
131			PRINT 18, ok_limitvr0, ok_limitvrai
132			PRINT 100
133			END IF
134
135		1	PRINT 100
136			PRINT , ' ****************************************************** &
137			& &
138		1	& ************'
139		1	PRINT 100
140
141			4 FORMAT (2X, 5('*'), ' ok_journe= ', L3, 3X, ',ok_instan = ', L3, 3X, &
142			',ok_region = ', L3, 3X, 5('*'))
143
144			7 FORMAT (2X, 5(''), 15X, ' ok_limitvrai = ', L3, 16X, 5(''))
145
146			8 FORMAT (2X, '***** radpas = ', I4, 6X, &
147			' *****')
148
149			10 FORMAT (2X, 5('*'), ' Cycle_diurne = ', L3, 4X, ', Soil_model = ', L3, &
150			12X, 6('*'))
151
152
153			11 FORMAT (2X, 5('*'), ' new_oliq = ', L3, 3X, ', Ok_orodr = ', L3, 3X, &
154			', Ok_orolf = ', L3, 3X, 5('*'))
155
156
157			12 FORMAT (2X, '***** Nb d appels /jour des routines de rayonn. = ', I4, 6X, &
158			' *****')
159
160			13 FORMAT (2X, '$$$$$$$$ Attention !! cycle_diurne different sur', /1X, &
161			10X, ' startphy = ', L3, 2X, ' et run.def = ', L3)
162
163			14 FORMAT (2X, '$$$$$$$$ Attention !! soil_model different sur', /1X, &
164			10X, ' startphy = ', L3, 2X, ' et run.def = ', L3)
165
166			15 FORMAT (2X, '$$$$$$$$ Attention !! ok_orodr different sur', /1X, &
167			10X, ' startphy = ', L3, 2X, ' et run.def = ', L3)
168
169			16 FORMAT (2X, '$$$$$$$$ Attention !! new_oliq different sur', /1X, &
170			10X, ' startphy = ', L3, 2X, ' et run.def = ', L3)
171
172			17 FORMAT (2X, '$$$$$$$$ Attention !! ok_orolf different sur', /1X, &
173			10X, ' startphy = ', L3, 2X, ' et run.def = ', L3)
174
175			18 FORMAT (2X, '$$$$$$$$ Attention !! ok_limitvrai different sur', /1X, &
176			10X, ' startphy = ', L3, 2X, ' et run.def = ', L3)
177
178			20 FORMAT (/2X, '$$$$$$$$ Attention !! iflag_con different sur', /1X, &
179			10X, ' startphy = ', I3, 2X, ' et run.def = ', I3)
180
181			21 FORMAT (2X, '$$$$$$$$ Attention !! nbapp_rad different sur', /1X, &
182			10X, ' startphy = ', I3, 2X, ' et run.def = ', I3)
183
184			22 FORMAT (2X, '$$$$$$$$ Attention !! radpas different sur', /1X, &
185			10X, ' startphy = ', I3, 2X, ' et run.def = ', I3)
186
187			100 FORMAT (/)
188
189		1	RETURN
190			END SUBROUTINE printflag