subroutine set_reference_clock(clock) type(ESMF_Clock), intent(in) :: clock reference_clock = clock end subroutine set_reference_clock