From c3997cfe75bb70fbe7842ef1d1b1ea95d5833512 Mon Sep 17 00:00:00 2001 From: Andrew Kiss <31054815+aekiss@users.noreply.github.com> Date: Mon, 3 Apr 2023 11:17:31 +1000 Subject: [PATCH] fix access driver halo update bugs - closes https://github.com/COSIMA/cice5/issues/70 --- drivers/access/cpl_interface.F90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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.