#include <misc.h>#include <params.h>module comslt!----------------------------------------------------------------------- ! ! Purpose: ! Initialization of Semi-Lagrangian transport variables.! ! Author: ! !-----------------------------------------------------------------------  use precision  use pmgrid,       only: plon, plond, plev, plat, beglat, endlat  use constituents, only: pcnst  use infnan  implicit none  real(r8) hw1(pcnst)   ! Pre-SLT global integral of constituent  real(r8) hw2(pcnst)   ! Post-SLT global integral of const.  real(r8) hw3(pcnst)   ! Global integral for denom. of expr. for alpha  real(r8) alpha(pcnst) ! alpha(m) = ( hw1(m) - hw2(m) )/hw3(m)  real(r8) hw1lat(pcnst,plat) ! lat contribution to const. mass integral  real(r8), allocatable :: lammp(:,:,:)  real(r8), allocatable :: phimp(:,:,:)  real(r8), allocatable :: sigmp(:,:,:)  real(r8), allocatable :: qfcst(:,:,:,:)contains  subroutine initialize_comslt    allocate (lammp(plon,plev,beglat:endlat))    allocate (phimp(plon,plev,beglat:endlat))    allocate (sigmp(plon,plev,beglat:endlat))    allocate (qfcst(plond,plev,pcnst,beglat:endlat))    lammp (:,:,:)   = inf    phimp (:,:,:)   = inf    sigmp (:,:,:)   = inf    qfcst (:,:,:,:) = inf    return  end subroutine initialize_comsltend module comslt