CCPP SciDoc v7.0.0
v7.0.0
Common Community Physics Package Developed at DTC
Loading...
Searching...
No Matches
cu_ntiedtke_post.F90
1
3
4
module
cu_ntiedtke_post
5
6
implicit none
7
8
private
9
10
public
:: cu_ntiedtke_post_run
11
12
contains
13
17
subroutine
cu_ntiedtke_post_run (t, q, prevst, prevsq, errmsg, errflg)
18
19
use
machine
,
only
: kind_phys
20
21
implicit none
22
23
! Interface variables
24
real
(kind_phys),
intent(in)
:: t(:,:)
25
real
(kind_phys),
intent(in)
:: q(:,:)
26
real
(kind_phys),
intent(out)
,
optional
:: prevst(:,:)
27
real
(kind_phys),
intent(out)
,
optional
:: prevsq(:,:)
28
character(len=*)
,
intent(out)
:: errmsg
29
integer
,
intent(out)
:: errflg
30
31
! Initialize CCPP error handling variables
32
errmsg =
''
33
errflg = 0
34
35
prevst(:,:) = t(:,:)
36
prevsq(:,:) = q(:,:)
37
38
end subroutine
cu_ntiedtke_post_run
39
40
end module
cu_ntiedtke_post
cu_ntiedtke_post
Definition
cu_ntiedtke_post.F90:4
machine
Definition
machine.F:3
CONV
nTiedtke
cu_ntiedtke_post.F90
Generated by
1.11.0