surrtftr.F90

Go to the documentation of this file.

SUBROUTINE surrtftr

!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
!     by JJMorcrette, ECMWF
!     ------------------------------------------------------------------

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

USE yoerrtftr, ONLY : ngc      ,ngs      ,ngn      ,ngb       ,ngm     , wt

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('SURRTFTR',0,zhook_handle)
ngc( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)

ngs( :) = (/&
 & 8,  22,  38,  52,  68,  76,  88,  96, &
 & 108, 114, 122, 130, 134, 136, 138, 140/)  
ngm( :) = (/&
 & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 1
 & 1,2,3,4,5,6,7,8,9,10,11,12,13,13,14,14,      &! Band 2
 & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,      &! Band 3
 & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14,      &! Band 4
 & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,      &! Band 5
 & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 6
 & 1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12,        &! Band 7
 & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 8
 & 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12,       &! Band 9
 & 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6,             &! Band 10
 & 1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8,             &! Band 11
 & 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8,             &! Band 12
 & 1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4,             &! Band 13
 & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,             &! Band 14
 & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,             &! Band 15
 & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2/)             ! Band 16  

ngn( :) = (/&
 & 2,2,2,2,2,2,2,2,                             &! Band 1
 & 1,1,1,1,1,1,1,1,1,1,1,1,2,2,                 &! Band 2
 & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,             &! Band 3
 & 1,1,1,1,1,1,1,1,1,1,1,1,1,3,                 &! Band 4
 & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,             &! Band 5
 & 2,2,2,2,2,2,2,2,                             &! Band 6
 & 2,2,1,1,1,1,1,1,1,1,2,2,                     &! Band 7
 & 2,2,2,2,2,2,2,2,                             &! Band 8
 & 1,1,1,1,1,1,1,1,2,2,2,2,                     &! Band 9
 & 2,2,2,2,4,4,                                 &! Band 10
 & 1,1,2,2,2,2,3,3,                             &! Band 11
 & 1,1,1,1,2,2,4,4,                             &! Band 12
 & 3,3,4,6,                                     &! Band 13
 & 8,8,                                         &! Band 14
 & 8,8,                                         &! Band 15
 & 8,8/)                                         ! Band 16  

ngb( :) = (/&
 & 1,1,1,1,1,1,1,1,                            &! Band 1
 & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,                &! Band 2
 & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,            &! Band 3
 & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,                &! Band 4
 & 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,            &! Band 5
 & 6,6,6,6,6,6,6,6,                            &! Band 6
 & 7,7,7,7,7,7,7,7,7,7,7,7,                    &! Band 7
 & 8,8,8,8,8,8,8,8,                            &! Band 8
 & 9,9,9,9,9,9,9,9,9,9,9,9,                    &! Band 9
 & 10,10,10,10,10,10,                           &! Band 10
 & 11,11,11,11,11,11,11,11,                     &! Band 11
 & 12,12,12,12,12,12,12,12,                     &! Band 12
 & 13,13,13,13,                                 &! Band 13
 & 14,14,                                       &! Band 14
 & 15,15,                                       &! Band 15
 & 16,16/)                                     ! Band 16  

wt( :) = (/&
 & 0.1527534276_jprb,0.1491729617_jprb,0.1420961469_jprb,0.1316886544_jprb,&
 & 0.1181945205_jprb,0.1019300893_jprb,0.0832767040_jprb,0.0626720116_jprb,&
 & 0.0424925_jprb   ,0.0046269894_jprb,0.0038279891_jprb,0.0030260086_jprb,&
 & 0.0022199750_jprb,0.0014140010_jprb,0.000533_jprb    ,0.000075_jprb    /)  

!     -----------------------------------------------------------------
IF (lhook) CALL dr_hook('SURRTFTR',1,zhook_handle)
END SUBROUTINE surrtftr