19 forcet, forceq, cactiv, cactiv_m, conv_act, conv_act_m, &
26 logical,
intent(in) :: flag_init
27 logical,
intent(in) :: flag_restart
28 integer,
intent(in) :: kdt
29 real(kind_phys),
intent(in) :: fhour
30 real(kind_phys),
intent(in) :: dtp
31 real(kind_phys),
intent(in) :: t(:,:)
32 real(kind_phys),
intent(in) :: q(:,:)
33 real(kind_phys),
intent(in),
optional :: prevst(:,:)
34 real(kind_phys),
intent(in),
optional :: prevsq(:,:)
36 real(kind_phys),
intent(out),
optional :: forcet(:,:)
37 real(kind_phys),
intent(out),
optional :: forceq(:,:)
38 integer,
intent(out),
optional :: cactiv(:)
39 integer,
intent(out),
optional :: cactiv_m(:)
41 real(kind_phys),
intent(in),
optional :: conv_act(:)
42 real(kind_phys),
intent(in),
optional :: conv_act_m(:)
44 character(len=*),
intent(out) :: errmsg
45 integer,
intent(out) :: errflg
48 real(kind=kind_phys) :: dtdyn
57 if(flag_init .and. .not.flag_restart)
then
63 dtdyn=3600.0*(fhour)/kdt
66 forcet(:,:)=(t(:,:) - prevst(:,:))/dtp
67 forceq(:,:)=(q(:,:) - prevsq(:,:))/dtp
71 forcet(:,:)=(t(:,:) - prevst(:,:))/dtdyn
72 forceq(:,:)=(q(:,:) - prevsq(:,:))/dtdyn
78 cactiv(:)=nint(conv_act(:))
79 cactiv_m(:)=nint(conv_act_m(:))
subroutine, public cu_c3_driver_pre_run(flag_init, flag_restart, kdt, fhour, dtp, t, q, prevst, prevsq, forcet, forceq, cactiv, cactiv_m, conv_act, conv_act_m, errmsg, errflg)