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
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
40end module cu_ntiedtke_post