diff --git a/drivers/access/cpl_interface.F90 b/drivers/access/cpl_interface.F90 index a625f4b2..278a7cf2 100644 --- a/drivers/access/cpl_interface.F90 +++ b/drivers/access/cpl_interface.F90 @@ -862,16 +862,16 @@ subroutine from_atm(isteps) call ice_HaloUpdate(um_snow, halo_info, field_loc_center,field_type_scalar) call ice_HaloUpdate(um_evap, halo_info, field_loc_center,field_type_scalar) call ice_HaloUpdate(um_lhflx, halo_info,field_loc_center,field_type_scalar) - call ice_HaloUpdate(um_tmlt, halo_info, field_loc_center,field_type_vector) - call ice_HaloUpdate(um_bmlt, halo_info, field_loc_center,field_type_vector) + call ice_HaloUpdate(um_tmlt, halo_info, field_loc_center,field_type_scalar) + call ice_HaloUpdate(um_bmlt, halo_info, field_loc_center,field_type_scalar) call ice_HaloUpdate(um_taux, halo_info, field_loc_center,field_type_vector) call ice_HaloUpdate(um_tauy, halo_info, field_loc_center,field_type_vector) - call ice_HaloUpdate(um_swflx, halo_info,field_loc_center,field_type_vector) - call ice_HaloUpdate(um_lwflx, halo_info,field_loc_center,field_type_vector) - call ice_HaloUpdate(um_shflx, halo_info,field_loc_center,field_type_vector) - call ice_HaloUpdate(um_press, halo_info,field_loc_center,field_type_vector) - call ice_HaloUpdate(um_co2, halo_info, field_loc_center, field_type_vector) - call ice_HaloUpdate(um_wnd, halo_info, field_loc_center, field_type_vector) + call ice_HaloUpdate(um_swflx, halo_info,field_loc_center,field_type_scalar) + call ice_HaloUpdate(um_lwflx, halo_info,field_loc_center,field_type_scalar) + call ice_HaloUpdate(um_shflx, halo_info,field_loc_center,field_type_scalar) + call ice_HaloUpdate(um_press, halo_info,field_loc_center,field_type_scalar) + call ice_HaloUpdate(um_co2, halo_info, field_loc_center, field_type_scalar) + call ice_HaloUpdate(um_wnd, halo_info, field_loc_center, field_type_scalar) IF (rotate_winds) THEN !rotate_winds=.t. means oasis does not do the vector rotation.