diff --git a/drivers/auscom/cpl_interface.F90 b/drivers/auscom/cpl_interface.F90 index 8d42679a..79f0d372 100644 --- a/drivers/auscom/cpl_interface.F90 +++ b/drivers/auscom/cpl_interface.F90 @@ -707,7 +707,7 @@ subroutine update_halos_from_atm(time) call ice_HaloUpdate(qair0, halo_info, field_loc_center, field_type_scalar) call ice_HaloUpdate(uwnd0, halo_info, field_loc_center, field_type_vector) call ice_HaloUpdate(vwnd0, halo_info, field_loc_center, field_type_vector) - call ice_HaloUpdate(calv0, halo_info, field_loc_center, field_type_vector) + call ice_HaloUpdate(calv0, halo_info, field_loc_center, field_type_scalar) call ice_timer_stop(timer_from_atm_halos) end subroutine update_halos_from_atm