mp_thompson_pre.F90

 
 
 
module mp_thompson_pre
 
      use machine, only : kind_phys
 
      implicit none
 
      public :: mp_thompson_pre_run
 
      private
 
   contains
 
      subroutine mp_thompson_pre_run(ncol, nlev, tgrs, tgrs_save, errmsg, errflg)
 
         implicit none
 
         ! Interface variables
         integer,                   intent(in   ) :: ncol
         integer,                   intent(in   ) :: nlev
         real(kind_phys),           intent(in   ) :: tgrs(:,:)
         real(kind_phys),           intent(  out) :: tgrs_save(:,:)
 
         ! CCPP error handling
         character(len=*),          intent(  out) :: errmsg
         integer,                   intent(  out) :: errflg
 
         ! Initialize the CCPP error handling variables
         errmsg = ''
         errflg = 0
 
         ! Save current air temperature for tendency limiters in mp_thompson_post
         tgrs_save = tgrs
 
      end subroutine mp_thompson_pre_run
 
end module mp_thompson_pre