Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=kind_phys), | intent(out) | :: | dtime_phys | |||
type(runtime_options), | intent(in) | :: | cam_runtime_opts | |||
type(physics_state), | intent(in) | :: | phys_state | |||
type(physics_tend), | intent(in) | :: | phys_tend | |||
type(dyn_import_t), | intent(in) | :: | dyn_in | |||
type(dyn_export_t), | intent(in) | :: | dyn_out |
subroutine stepon_timestep_init(dtime_phys, cam_runtime_opts, phys_state, phys_tend, dyn_in, dyn_out) ! Module(s) from CAM-SIMA. use dyn_comp, only: dyn_export_t, dyn_import_t use dyn_coupling, only: dynamics_to_physics_coupling use physics_types, only: physics_state, physics_tend use runtime_obj, only: runtime_options use time_manager, only: get_step_size ! Module(s) from CCPP. use ccpp_kinds, only: kind_phys real(kind_phys), intent(out) :: dtime_phys type(runtime_options), intent(in) :: cam_runtime_opts type(physics_state), intent(in) :: phys_state type(physics_tend), intent(in) :: phys_tend type(dyn_import_t), intent(in) :: dyn_in type(dyn_export_t), intent(in) :: dyn_out ! Set timestep for physics. dtime_phys = real(get_step_size(), kind_phys) call dynamics_to_physics_coupling() end subroutine stepon_timestep_init