CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
mp_thompson_pre.F90
1
3
4! CCPP license goes here, as well as further documentation
7
8 use machine, only : kind_phys
9
10 implicit none
11
12 public :: mp_thompson_pre_run
13
14 private
15
16 contains
17
21 subroutine mp_thompson_pre_run(ncol, nlev, tgrs, tgrs_save, errmsg, errflg)
22
23 implicit none
24
25 ! Interface variables
26 integer, intent(in ) :: ncol
27 integer, intent(in ) :: nlev
28 real(kind_phys), intent(in ) :: tgrs(:,:)
29 real(kind_phys), intent( out) :: tgrs_save(:,:)
30
31 ! CCPP error handling
32 character(len=*), intent( out) :: errmsg
33 integer, intent( out) :: errflg
34
35 ! Initialize the CCPP error handling variables
36 errmsg = ''
37 errflg = 0
38
39 ! Save current air temperature for tendency limiters in mp_thompson_post
40 tgrs_save = tgrs
41
42 end subroutine mp_thompson_pre_run
43
44end module mp_thompson_pre