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%

Line Branch Exec Source
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
7
8 ! PURPOSE.
9 ! --------
10 ! INITIALIZE YOERDI, THE COMMON THAT CONTROLS THE
11 ! RADIATION INTERFACE
12
13 !** INTERFACE.
14 ! ----------
15 ! CALL *SURDI* FROM *SURAD*
16 ! ----- -----
17
18 ! EXPLICIT ARGUMENTS :
19 ! --------------------
20 ! NONE
21
22 ! IMPLICIT ARGUMENTS :
23 ! --------------------
24 ! COMMON YOERDI
25
26 ! METHOD.
27 ! -------
28 ! SEE DOCUMENTATION
29
30 ! EXTERNALS.
31 ! ----------
32 ! NONE
33
34 ! REFERENCE.
35 ! ----------
36 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS MODEL
37
38 ! AUTHOR.
39 ! -------
40 ! 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
43
44 ! MODIFICATIONS.
45 ! --------------
46 ! 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
59
60
61 IMPLICIT NONE
62
63 !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