radlw_param.f

Go to the documentation of this file.

!!!!!  ==============================================================  !!!!!
!!!!!             lw-rrtm3 radiation package description               !!!!!
!!!!!  ==============================================================  !!!!!
!                                                                          !
!   this package includes ncep's modifications of the rrtm-lw radiation    !
!   code from aer inc.                                                     !
!                                                                          !
!    the rrtm3 package includes these parts:                               !
!                                                                          !
!       'radlw_rrtm3_param.f'                                              !
!       'radlw_rrtm3_datatb.f'                                             !
!       'radlw_rrtm3_main.f'                                               !
!                                                                          !
!    the 'radlw_rrtm3_param.f' contains:                                   !
!                                                                          !
!       'module_radlw_parameters'  -- band parameters set up               !
!                                                                          !
!    the 'radlw_rrtm3_datatb.f' contains:                                  !
!                                                                          !
!       'module_radlw_avplank'     -- plank flux data                      !
!       'module_radlw_ref'         -- reference temperature and pressure   !
!       'module_radlw_cldprlw'     -- cloud property coefficients          !
!       'module_radlw_kgbnn'       -- absorption coeffients for 16         !
!                                     bands, where nn = 01-16              !
!                                                                          !
!    the 'radlw_rrtm3_main.f' contains:                                    !
!                                                                          !
!       'module_radlw_main'        -- main lw radiation transfer           !
!                                                                          !
!    in the main module 'module_radlw_main' there are only two             !
!    externally callable subroutines:                                      !
!                                                                          !
!       'lwrad'     -- main rrtm3 lw radiation routine                     !
!       'rlwinit'   -- to initialize rrtm3 lw radiation                    !
!                                                                          !
!    all the lw radiation subprograms become contained subprograms         !
!    in module 'module_radlw_rrtm' and many of them are not directly       !
!    accessable from places outside the module.                            !
!                                                                          !
!    compilation sequence is:                                              !
!                                                                          !
!       'radlw_rrtm3_param.f'                                              !
!       'radlw_rrtm3_datatb.f'                                             !
!       'radlw_rrtm3_main.f'                                               !
!                                                                          !
!    and all should be put in front of routines that use lw modules        !
!                                                                          !
!    ncep modifications history log:                                       !
!                                                                          !
!       see list in program "radlw_rrtm3_main.f"                           !
!                                                                          !
!!!!!  ==============================================================  !!!!!
!!!!!                         end descriptions                         !!!!!
!!!!!  ==============================================================  !!!!!

!========================================!
      module module_radlw_parameters     !
!........................................!

      use physparam,               only : kind_phys

      implicit none
!
      public
!
!
      type :: topflw_type
        real (kind=kind_phys) :: upfxc     
        real (kind=kind_phys) :: upfx0    
      end type
!
!
      type :: sfcflw_type
        real (kind=kind_phys) :: upfxc      
        real (kind=kind_phys) :: upfx0     
        real (kind=kind_phys) :: dnfxc   
        real (kind=kind_phys) :: dnfx0  
      end type
!
!
      type :: proflw_type
        real (kind=kind_phys) :: upfxc    
        real (kind=kind_phys) :: dnfxc   
        real (kind=kind_phys) :: upfx0  
        real (kind=kind_phys) :: dnfx0 
      end type
!

      integer, parameter :: nbands = 16         
      integer, parameter :: ngptlw = 140       
      integer, parameter :: ntbl   = 10000   
      integer, parameter :: maxgas = 7      
      integer, parameter :: maxxsec= 4     
      integer, parameter :: nrates = 6    
      integer, parameter :: nplnk  = 181 

      integer, parameter :: nbdlw  = nbands

      integer  :: ng01, ng02, ng03, ng04, ng05, ng06, ng07, ng08,   
     &            ng09, ng10, ng11, ng12, ng13, ng14, ng15, ng16
      parameter(ng01=10, ng02=12, ng03=16, ng04=14, ng05=16, ng06=08,
     &           ng07=12, ng08=08, ng09=12, ng10=06, ng11=08, ng12=08,
     &           ng13=04, ng14=02, ng15=02, ng16=02)

      integer  :: ns01, ns02, ns03, ns04, ns05, ns06, ns07, ns08,      
     &            ns09, ns10, ns11, ns12, ns13, ns14, ns15, ns16
      parameter(ns01=00, ns02=10, ns03=22, ns04=38, ns05=52, ns06=68, 
     &           ns07=76, ns08=88, ns09=96, ns10=108, ns11=114,        
     &           ns12=122, ns13=130, ns14=134, ns15=136, ns16=138)

      integer, dimension(NGPTLW) :: ngb
      data ngb(:) / 10*1, 12*2, 16*3, 14*4, 16*5,  8*6, 12*7,  8*8,     & ! band  1- 8
     &              12*9, 6*10, 8*11, 8*12, 4*13, 2*14, 2*15, 2*16 /      ! band  9-16

      real (kind=kind_phys) :: wvnlw1(nbands), wvnlw2(nbands)
      data wvnlw1  /                                                    &
     &         10.,  351.,  501.,  631.,  701.,  821.,  981., 1081.,    &
     &       1181., 1391., 1481., 1801., 2081., 2251., 2381., 2601. /
      data wvnlw2  /                                                    &
     &        350.,  500.,  630.,  700.,  820.,  980., 1080., 1180.,    &
     &       1390., 1480., 1800., 2080., 2250., 2380., 2600., 3250. /

      real (kind=kind_phys) :: delwave(nbands)
      data delwave / 340., 150., 130.,  70., 120., 160., 100., 100.,    &
     &               210.,  90., 320., 280., 170., 130., 220., 650. /

!........................................!
      end module module_radlw_parameters !
!========================================!
!! @}