CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
sgscloud_radpost.F90
1
5
6 contains
7
13 subroutine sgscloud_radpost_run( &
14 im,levs, &
15 flag_init,flag_restart, &
16 qc,qi,qs, &
17 qc_save,qi_save,qs_save, &
18 errmsg,errflg )
19
20! should be moved to inside the mynn:
21 use machine , only : kind_phys
22
23!-------------------------------------------------------------------
24 implicit none
25!-------------------------------------------------------------------
26
27 integer, intent(in) :: im, levs
28 logical, intent(in) :: flag_init, flag_restart
29 real(kind=kind_phys), dimension(:,:), intent(inout) :: qc, qi, qs
30 real(kind=kind_phys), dimension(:,:), intent(in) :: qc_save, qi_save, qs_save
31 character(len=*), intent(out) :: errmsg
32 integer, intent(out) :: errflg
33 ! Local variable
34 integer :: i, k
35
36 ! Initialize CCPP error handling variables
37 errmsg = ''
38 errflg = 0
39
40 !write(0,*)"=============================================="
41 !write(0,*)"in sgscloud rad post"
42
43 if (flag_init .and. (.not. flag_restart)) then
44 !write (0,*) 'Skip MYNNrad_post flag_init = ', flag_init
45 return
46 endif
47
48 ! Add subgrid cloud information:
49 do k = 1, levs
50 do i = 1, im
51 qc(i,k) = qc_save(i,k)
52 qi(i,k) = qi_save(i,k)
53 qs(i,k) = qs_save(i,k)
54 enddo
55 enddo
56
57 ! print*,"===Finished restoring the resolved-scale clouds"
58 ! print*,"qc_save:",qc_save(1,1)," qc:",qc(1,1)
59
60 end subroutine sgscloud_radpost_run
61 end module sgscloud_radpost