GCC Code Coverage Report


Directory: ./
File: rad/srtm_cmbgb19.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 37 0.0%
Branches: 0 40 0.0%

Line Branch Exec Source
1 SUBROUTINE SRTM_CMBGB19
2
3 ! BAND 19: 4650-5150 cm-1 (low - H2O,CO2; high - CO2)
4 !-----------------------------------------------------------------------
5
6 USE PARKIND1 ,ONLY : JPIM , JPRB
7 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
8
9 USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
10 USE YOESRTA19, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
11 & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
12
13 IMPLICIT NONE
14
15 ! Local variables
16 INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
17 REAL(KIND=JPRB) :: ZSUMK, ZSUMF
18
19 REAL(KIND=JPRB) :: ZHOOK_HANDLE
20 ! ------------------------------------------------------------------
21 IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB19',0,ZHOOK_HANDLE)
22
23 DO JN = 1,9
24 DO JT = 1,5
25 DO JP = 1,13
26 IPRSM = 0
27 DO IGC = 1,NGC(4)
28 ZSUMK = 0.
29 DO IPR = 1, NGN(NGS(3)+IGC)
30 IPRSM = IPRSM + 1
31 ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
32 ENDDO
33 KAC(JN,JT,JP,IGC) = ZSUMK
34 ENDDO
35 ENDDO
36 ENDDO
37 ENDDO
38
39 DO JT = 1,5
40 DO JP = 13,59
41 IPRSM = 0
42 DO IGC = 1,NGC(4)
43 ZSUMK = 0.
44 DO IPR = 1, NGN(NGS(3)+IGC)
45 IPRSM = IPRSM + 1
46 ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+48)
47 ENDDO
48 KBC(JT,JP,IGC) = ZSUMK
49 ENDDO
50 ENDDO
51 ENDDO
52
53 DO JT = 1,10
54 IPRSM = 0
55 DO IGC = 1,NGC(4)
56 ZSUMK = 0.
57 DO IPR = 1, NGN(NGS(3)+IGC)
58 IPRSM = IPRSM + 1
59 ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+48)
60 ENDDO
61 SELFREFC(JT,IGC) = ZSUMK
62 ENDDO
63 ENDDO
64
65 DO JT = 1,3
66 IPRSM = 0
67 DO IGC = 1,NGC(4)
68 ZSUMK = 0.
69 DO IPR = 1, NGN(NGS(3)+IGC)
70 IPRSM = IPRSM + 1
71 ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+48)
72 ENDDO
73 FORREFC(JT,IGC) = ZSUMK
74 ENDDO
75 ENDDO
76
77 DO JP = 1,9
78 IPRSM = 0
79 DO IGC = 1,NGC(4)
80 ZSUMF = 0.
81 DO IPR = 1, NGN(NGS(3)+IGC)
82 IPRSM = IPRSM + 1
83 ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
84 ENDDO
85 SFLUXREFC(IGC,JP) = ZSUMF
86 ENDDO
87 ENDDO
88
89 ! -----------------------------------------------------------------
90 IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB19',1,ZHOOK_HANDLE)
91 END SUBROUTINE SRTM_CMBGB19
92
93