LOOKUP.f

Go to the documentation of this file.

 
  module  lookup_mod
!
  implicit none
!
  integer,parameter :: itb=076,   &  !< Table horizontal size (i index)
  jtb=134,   &    
  itbq=152,  &    
  jtbq=440       
  
  
  real :: pl   &  !< Lower bound of pressure range
  ,thl  &      !< Lower bound of potential temperature range
  ,rdq &       !< Scaling factor for specific humidity
  ,rdth  &     !< Scaling factor for potential temperature
  ,rdp &       !< Scaling factor for pressure
  ,rdthe &     !< Scaling factor for equivalent potential temperature
  ,plq   &     !< Lower bound of pressure range for specific humidity _____?
  ,rdpq &      !< Scaling factor for pressure and specific humidity _____?
  ,rdtheq
 
  real,dimension(JTB)  :: qs0, &    !< Base for specific humidity
  sqs
  real,dimension(ITB)  :: the0, &   !< Base for equivalent potential temperature
  sthe
  real,dimension(ITBQ) :: the0q, &  !< _____?
  stheq
  real,dimension(ITB,JTB) :: ptbl
  real,dimension(JTB,ITB) :: ttbl
  real,dimension(JTBQ,ITBQ) :: ttblq
!
  end module lookup_mod