From ffa4c36335c0257120428ff1510bf0fa246dc47b Mon Sep 17 00:00:00 2001 From: Philippe Blain Date: Fri, 19 Nov 2021 16:43:31 -0500 Subject: [PATCH] cicedynB: fix typos in abort messages --- cicecore/cicedynB/dynamics/ice_dyn_evp.F90 | 2 +- cicecore/cicedynB/infrastructure/ice_grid.F90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 index fc6d8eed0..111005d08 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 @@ -1621,7 +1621,7 @@ subroutine div_stress (nx_block, ny_block, & + (c1/dyE_N(i,j)) * ( (dyT_U(i,j)**2) * stress12(i,j) & -(dyT_U(i-1,j)**2)*stress12(i-1,j) ) ) case default - call abort_ice(subname // ' unkwown grid_location: ' // grid_location) + call abort_ice(subname // ' unknown grid_location: ' // grid_location) end select diff --git a/cicecore/cicedynB/infrastructure/ice_grid.F90 b/cicecore/cicedynB/infrastructure/ice_grid.F90 index 688b7155e..300a7c923 100644 --- a/cicecore/cicedynB/infrastructure/ice_grid.F90 +++ b/cicecore/cicedynB/infrastructure/ice_grid.F90 @@ -2859,7 +2859,7 @@ real(kind=dbl_kind) function grid_neighbor_min(field, i, j, grid_location) resul case('N') mini = min(field(i,j), field(i,j+1)) case default - call abort_ice(subname // ' unkwown grid_location: ' // grid_location) + call abort_ice(subname // ' unknown grid_location: ' // grid_location) end select end function grid_neighbor_min @@ -2891,7 +2891,7 @@ real(kind=dbl_kind) function grid_neighbor_max(field, i, j, grid_location) resul case('N') maxi = max(field(i,j), field(i,j+1)) case default - call abort_ice(subname // ' unkwown grid_location: ' // grid_location) + call abort_ice(subname // ' unknown grid_location: ' // grid_location) end select end function grid_neighbor_max