GCC Code Coverage Report

Directory:	./
File:	rad/surdi.f90
Date:	2022-01-11 19:19:34

	Exec	Total	Coverage
Lines:	8	8	100.0%
Branches:	2	4	50.0%

1

!

2

! $Id: surdi.F90 2626 2016-09-15 14:20:56Z musat $

3

!

4

1

SUBROUTINE SURDI

5

6

!**** *SURDI* - INITIALIZE COMMON YOERDI CONTROLLING RADINT

! PURPOSE.

! --------

! INITIALIZE YOERDI, THE COMMON THAT CONTROLS THE

11

! RADIATION INTERFACE

!** INTERFACE.

! ----------

! CALL *SURDI* FROM *SURAD*

16

! ----- -----

17

18

! EXPLICIT ARGUMENTS :

19

! --------------------

20

! NONE

21

22

! IMPLICIT ARGUMENTS :

23

! --------------------

! COMMON YOERDI

! METHOD.

! -------

! SEE DOCUMENTATION

! EXTERNALS.

! ----------

! NONE

! REFERENCE.

! ----------

! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS MODEL

! AUTHOR.

! -------

! Original JEAN-JACQUES MORCRETTE *ECMWF*

41

! Modified P. Viterbo 99-03-26 Tiling of the land surface

42

! Modified P. Viterbo 24-05-2004 surf library

! MODIFICATIONS.

! --------------

! ORIGINAL : 88-12-15

47

! M.Hamrud 01-Oct-2003 CY28 Cleaning

48

! JJMorcrette 2004-10-07 Gas concentrations

49

! ------------------------------------------------------------------

50

51

USE PARKIND1 ,ONLY : JPRB

52

USE YOMHOOK ,ONLY : LHOOK, DR_HOOK

53

54

USE YOERDI , ONLY : RRAE ,&

55

! & RCARDI ,RCH4 ,RN2O ,RO3 ,RCFC11 ,&

56

! & RCFC12, &

57

& REPCLC ,REPH2O ,RSUNDUR ,&

58

& RCCO2 ,RCCH4 ,RCN2O ,RCCFC11 ,RCCFC12

IMPLICIT NONE

!MPL/IM 20160915 on prend GES de phylmd

64

!#include "clesphys.h"

65

REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG

66

REAL(KIND=JPRB) :: ZHOOK_HANDLE

67

68

! ----------------------------------------------------------------

69

70

!* 1. SET DEFAULT VALUES.

71

! -------------------

72

73

1/2

✓ Branch 0 taken 1 times.

✗ Branch 1 not taken.

1

IF (LHOOK) CALL DR_HOOK('SURDI',0,ZHOOK_HANDLE)

74

1

RRAE = 0.1277E-02_JPRB

75

76

!* Threshold for computing sunshine duration (W/m2)

77

1

RSUNDUR=120._JPRB

78

79

!* For sea ice, monthly values are based on Ebert and Curry, 1993, Table 2.

80

! We take dry snow albedo as the representative value for non-summer

81

! months, and bare sea-ice as the representative value for summer

82

! months. The values for Antarctic are shifted six-months.

83

! All computations brought back to *SUSWN*

84

85

!* Concentration of the various trace gases (IPCC/SACC values for 1990)

86

! CO2 CH4 N2O CFC11 CFC12

87

! 353ppmv 1.72ppmv 310ppbv 280pptv 484pptv

88

89

ZAIRMWG = 28.970_JPRB

90

ZCO2MWG = 44.011_JPRB

91

ZCH4MWG = 16.043_JPRB

92

ZN2OMWG = 44.013_JPRB

93

ZO3MWG = 47.9982_JPRB

94

ZC11MWG = 137.3686_JPRB

95

ZC12MWG = 120.9140_JPRB

96

97

!RCARDI = 353.E-06_JPRB*ZCO2MWG/ZAIRMWG

98

!RCH4 = 1.72E-06_JPRB*ZCH4MWG/ZAIRMWG

99

!RN2O = 310.E-09_JPRB*ZN2OMWG/ZAIRMWG

100

!RO3 = 1.E-06_JPRB*ZO3MWG /ZAIRMWG

101

!RCFC11 = 280.E-12_JPRB*ZC11MWG/ZAIRMWG

102

!RCFC12 = 484.E-12_JPRB*ZC12MWG/ZAIRMWG

103

104

!RCARDI = RCCO2 * ZCO2MWG/ZAIRMWG

105

!RCH4 = RCCH4 * ZCH4MWG/ZAIRMWG

106

!RN2O = RCN2O * ZN2OMWG/ZAIRMWG

107

!RO3 = 1.E-06_JPRB*ZO3MWG /ZAIRMWG

108

!RCFC11 = RCCFC11 * ZC11MWG/ZAIRMWG

109

!RCFC12 = RCCFC12 * ZC12MWG/ZAIRMWG

110

111

112

1

REPCLC=1.E-12_JPRB

113

1

REPH2O=1.E-12_JPRB

114

115

116

! -----------------------------------------------------------------

117

118

1/2

✓ Branch 0 taken 1 times.

✗ Branch 1 not taken.

1

IF (LHOOK) CALL DR_HOOK('SURDI',1,ZHOOK_HANDLE)

119

1

END SUBROUTINE SURDI

120