subroutine, public ccpp_suite_simulator::ccpp_suite_simulator_run |
( |
logical, intent(in) | do_ccpp_suite_sim, |
|
|
integer, intent(in) | kdt, |
|
|
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
real(kind_phys), intent(in) | dtp, |
|
|
integer, dimension(8), intent(in) | jdat, |
|
|
integer, intent(in) | iactive_t, |
|
|
integer, intent(in) | iactive_u, |
|
|
integer, intent(in) | iactive_v, |
|
|
integer, intent(in) | iactive_q, |
|
|
integer, intent(inout) | proc_start, |
|
|
integer, intent(inout) | proc_end, |
|
|
type(base_physics_process), dimension(:), intent(inout) | physics_process, |
|
|
logical, intent(inout) | in_pre_active, |
|
|
logical, intent(inout) | in_post_active, |
|
|
real(kind_phys), dimension(:,:), intent(in) | tgrs, |
|
|
real(kind_phys), dimension(:,:), intent(in) | ugrs, |
|
|
real(kind_phys), dimension(:,:), intent(in) | vgrs, |
|
|
real(kind_phys), dimension(:,:,:), intent(in) | qgrs, |
|
|
real(kind_phys), dimension(:,:,:), intent(in) | active_phys_tend, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | gt0, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | gu0, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | gv0, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | gq0, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |