source: LMDZ6/branches/contrails/libf/phylmd/ecrad/ifsrrtm/srtm_cmbgb26.F90 @ 5431

Last change on this file since 5431 was 4773, checked in by idelkadi, 13 months ago
  • Update of Ecrad in LMDZ The same organization of the Ecrad offline version is retained in order to facilitate the updating of Ecrad in LMDZ and the comparison between online and offline results. version 1.6.1 of Ecrad (https://github.com/lguez/ecrad.git)
  • Implementation of the double call of Ecrad in LMDZ


File size: 1.1 KB
Line 
1SUBROUTINE SRTM_CMBGB26
2
3!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
4!-----------------------------------------------------------------------
5
6USE PARKIND1  ,ONLY : JPIM , JPRB
7USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK, JPHOOK
8
9USE YOESRTM  , ONLY : NGN
10USE YOESRTWN , ONLY : NGC, NGS, RWGT
11!USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
12USE YOESRTA26, ONLY : SFLUXREF, RAYL, &
13                    & SFLUXREFC, RAYLC
14
15IMPLICIT NONE
16
17! Local variables
18INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM
19REAL(KIND=JPRB)    :: ZSUMF1, ZSUMF2
20
21REAL(KIND=JPHOOK) :: ZHOOK_HANDLE
22!     ------------------------------------------------------------------
23IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB26',0,ZHOOK_HANDLE)
24
25IPRSM = 0
26DO IGC = 1,NGC(11)
27  ZSUMF1 = 0.
28  ZSUMF2 = 0.
29  DO IPR = 1, NGN(NGS(10)+IGC)
30    IPRSM = IPRSM + 1
31    ZSUMF1 = ZSUMF1 + RAYL(IPRSM)*RWGT(IPRSM+160)
32    ZSUMF2 = ZSUMF2 + SFLUXREF(IPRSM)
33  ENDDO
34  RAYLC(IGC) = ZSUMF1
35  SFLUXREFC(IGC) = ZSUMF2
36ENDDO
37
38!     -----------------------------------------------------------------
39IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB26',1,ZHOOK_HANDLE)
40END SUBROUTINE SRTM_CMBGB26
41
Note: See TracBrowser for help on using the repository browser.