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
6
module
mp_thompson_pre
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
44
end module
mp_thompson_pre
mp_thompson_pre
Definition
mp_thompson_pre.F90:6
MP
Thompson
mp_thompson_pre.F90
Generated by
1.11.0