fix access driver halo update bugs - closes #70

COSIMA · Apr 3, 2023 · c3997cf · c3997cf
1 parent edcfa6f
commit c3997cf
Showing 1 changed file with 8 additions and 8 deletions.
diff --git 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.