srtm_cmbgb26.F90

Go to the documentation of this file.

SUBROUTINE srtm_cmbgb26

!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
!-----------------------------------------------------------------------

USE parkind1  ,ONLY : jpim , jprb
USE yomhook   ,ONLY : lhook, dr_hook

USE yoesrtwn , ONLY : ngc, ngs, ngn, rwgt
USE yoesrta26, ONLY : sfluxref, rayl, &
                    & sfluxrefc, raylc

IMPLICIT NONE

! Local variables
INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM
REAL(KIND=JPRB)    :: ZSUMF1, ZSUMF2

REAL(KIND=JPRB) :: ZHOOK_HANDLE
!     ------------------------------------------------------------------
IF (lhook) CALL dr_hook('SRTM_CMBGB26',0,zhook_handle)

iprsm = 0
DO igc = 1,ngc(11)
  zsumf1 = 0.
  zsumf2 = 0.
  DO ipr = 1, ngn(ngs(10)+igc)
    iprsm = iprsm + 1
    zsumf1 = zsumf1 + rayl(iprsm)*rwgt(iprsm+160)
    zsumf2 = zsumf2 + sfluxref(iprsm)
  ENDDO
  raylc(igc) = zsumf1
  sfluxrefc(igc) = zsumf2
ENDDO

!     -----------------------------------------------------------------
IF (lhook) CALL dr_hook('SRTM_CMBGB26',1,zhook_handle)
END SUBROUTINE srtm_cmbgb26