13 subroutine sgscloud_radpost_run( &
15 flag_init,flag_restart, &
17 qc_save,qi_save,qs_save, &
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
43 if (flag_init .and. (.not. flag_restart))
then
51 qc(i,k) = qc_save(i,k)
52 qi(i,k) = qi_save(i,k)
53 qs(i,k) = qs_save(i,k)