GCC Code Coverage Report


Directory: ./
File: rad/surdi15.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 29 0.0%
Branches: 0 4 0.0%

Line Branch Exec Source
1 !OPTIONS XOPT(NOEVAL)
2 SUBROUTINE SURDI15
3
4 !**** *SURDI15* - INITIALIZE COMMON YOMRDI15 CONTROLLING RADINT
5 !**** FROZEN VERSION (CYCLE 15) OF SURDI
6
7 ! PURPOSE.
8 ! --------
9 ! INITIALIZE YOMRDI15, THE COMMON THAT CONTROLS THE
10 ! RADIATION INTERFACE
11
12 !** INTERFACE.
13 ! ----------
14 ! CALL *SURDI15* FROM *SUECRAD*
15 ! ------- -------
16
17 ! EXPLICIT ARGUMENTS :
18 ! --------------------
19 ! NONE
20
21 ! IMPLICIT ARGUMENTS :
22 ! --------------------
23 ! COMMON YOMRDI15
24
25 ! METHOD.
26 ! -------
27 ! SEE DOCUMENTATION
28
29 ! EXTERNALS.
30 ! ----------
31 ! NONE
32
33 ! REFERENCE.
34 ! ----------
35 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
36 ! "IN CORE MODEL"
37
38 ! AUTHOR.
39 ! -------
40 ! 96-11: Ph. Dandin. Meteo-France
41 ! ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE *ECMWF*
42
43 ! MODIFICATIONS.
44 ! --------------
45 ! M.Hamrud 01-Oct-2003 CY28 Cleaning
46 ! A.Alias 05-12-2005 greenhouse gases variables (M.Deque)
47 ! A.Alias 13-06-2006 RI0 value can be changed via namscen.h
48
49 ! ------------------------------------------------------------------
50
51 USE PARKIND1 ,ONLY : JPIM ,JPRB
52 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
53 ! Ce qui concerne NULNAM commente par MPL le 15.04.09
54 !USE YOMLUN , ONLY : NULNAM
55 USE YOMLUN_IFSAUX , ONLY : NULOUT
56
57 USE YOMCST , ONLY : RI0
58 USE YOMRDI15 , ONLY : RSDTSN15 ,RRAE15 ,RMU0015 ,RALBICE15,&
59 & RALBSEA15,RALBSNM15,RALBSNO15,RCARDI15 ,REMISS15 ,&
60 & RSNOWAL15,RVLBDC15 ,RCH415 ,RN2O15 ,RCFC1115 ,&
61 & RCFC1215 ,REPALB15 ,REPCLC15 ,REPH2O15
62 USE YOMRDU15 , ONLY : REPSEC15
63
64 IMPLICIT NONE
65
66 REAL(KIND=JPRB) :: XCARDI, XCFC11, XCFC12, XCH4, XN2O
67 REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZSUPSAT
68 REAL(KIND=JPRB) :: ZHOOK_HANDLE
69
70 ! ------------------------------------------------------------------
71 NAMELIST/NAMSCEN/ XCARDI, XCH4, XN2O, XCFC11, XCFC12, RI0
72 ! ------------------------------------------------------------------
73 INTERFACE
74 SUBROUTINE POSNAM(KULNAM,CDNAML)
75 USE PARKIND1 ,ONLY : JPIM ,JPRB
76 INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM
77 CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML
78 END SUBROUTINE POSNAM
79 END INTERFACE
80 ! ----------------------------------------------------------------
81
82 !* 1. SET DEFAULT VALUES.
83 ! -------------------
84
85 IF (LHOOK) CALL DR_HOOK('SURDI15',0,ZHOOK_HANDLE)
86 RSDTSN15 = 5.0_JPRB
87
88 RRAE15 = 0.1277E-02_JPRB
89 RMU0015 = RRAE15/SQRT(RRAE15*(RRAE15+2.0_JPRB))
90
91 RALBICE15 = 0.55_JPRB
92 RALBSEA15 = 0.07_JPRB
93 RALBSNO15 = 0.80_JPRB
94 RALBSNM15 = 0.40_JPRB
95 RSNOWAL15 = 0.01_JPRB
96 !* Concentration of the various trace gases (IPCC/SACC values for 1990)
97 ! CO2 CH4 N2O CFC11 CFC12
98 ! 353ppmv 1.72ppmv 310ppbv 280pptv 484pptv
99
100 XCARDI = 353.E-06_JPRB
101 XCH4 = 1.72E-06_JPRB
102 XN2O = 310.E-09_JPRB
103 XCFC11 = 280.E-12_JPRB
104 XCFC12 = 484.E-12_JPRB
105
106 ZAIRMWG = 28.970_JPRB
107 ZCO2MWG = 44.011_JPRB
108 ZCH4MWG = 16.043_JPRB
109 ZN2OMWG = 44.013_JPRB
110 ZC11MWG = 137.3686_JPRB
111 ZC12MWG = 120.9140_JPRB
112
113 ! Ce qui concerne NAMSCEN commente par MPL le 15.04.09
114 !CALL POSNAM(NULNAM,'NAMSCEN')
115 !READ (NULNAM, NAMSCEN)
116
117 WRITE(NULOUT,'( &
118 & '' CO2 = '',E14.7,'' CH4 = '',E14.7 &
119 & ,'' N2O = '',E14.7,'' CFC11 = '',E14.7 &
120 & ,'' CFC12 = '',E14.7,'' RI0 = '',E14.7 &
121 & )') XCARDI,XCH4,XN2O,XCFC11,XCFC12,RI0
122
123 RCARDI15 = XCARDI*ZCO2MWG/ZAIRMWG
124 RCH415 = XCH4*ZCH4MWG/ZAIRMWG
125 RN2O15 = XN2O*ZN2OMWG/ZAIRMWG
126 RCFC1115 = XCFC11*ZC11MWG/ZAIRMWG
127 RCFC1215 = XCFC12*ZC12MWG/ZAIRMWG
128 REMISS15 = 0.996_JPRB
129 !ZSUPSAT = 0.01_JPRB
130 RVLBDC15 = 0.5_JPRB
131
132 REPSEC15=1.E-12_JPRB
133 REPCLC15=1.E-12_JPRB
134 REPH2O15=1.E-12_JPRB
135 REPALB15=1.E-12_JPRB
136
137 ! -----------------------------------------------------------------
138
139 IF (LHOOK) CALL DR_HOOK('SURDI15',1,ZHOOK_HANDLE)
140 END SUBROUTINE SURDI15
141