srtm_kgb26.F90

Go to the documentation of this file.

!OCL SCALAR
#ifdef RS6K
@process nooptimize
#endif 
SUBROUTINE srtm_kgb26

!     Originally by J.Delamere, Atmospheric & Environmental Research.
!     Revision: 2.4
!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
!     Reformatted for F90 by JJMorcrette, ECMWF

!     ------------------------------------------------------------------

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

USE yoesrta26, ONLY : sfluxref, rayl 

!     ------------------------------------------------------------------

IMPLICIT NONE

! KURUCZ
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('SRTM_KGB26',0,zhook_handle)
sfluxref = (/ &
 !  &     129.462_JPRB, 15*_ZERO_ /)
 & 29.0079_jprb,  28.4088_jprb,     20.3099_jprb,  13.0283_jprb &
 & ,  11.8619_jprb,  9.95840_jprb,     6.68696_jprb,  5.38987_jprb &
 & ,  3.49829_jprb, 0.407693_jprb,    0.299027_jprb, 0.236827_jprb &
 & , 0.188502_jprb, 0.163489_jprb, 4.64335e-02_jprb, 2.72662e-03_jprb /)  

!     Rayleigh extinction coefficient at all v 
rayl = (/ &
 & 1.21263e-06_jprb,1.43428e-06_jprb,1.67677e-06_jprb,1.93255e-06_jprb &
 & , 2.19177e-06_jprb,2.44195e-06_jprb,2.66926e-06_jprb,2.85990e-06_jprb &
 & , 3.00380e-06_jprb,3.06996e-06_jprb,3.08184e-06_jprb,3.09172e-06_jprb &
 & , 3.09938e-06_jprb,3.10456e-06_jprb,3.10727e-06_jprb,3.10818e-06_jprb /)  

!     ------------------------------------------------------------------
IF (lhook) CALL dr_hook('SRTM_KGB26',1,zhook_handle)
END SUBROUTINE srtm_kgb26