From cc0f89ce2508a0ff100aaff8535f89969458aa55 Mon Sep 17 00:00:00 2001 From: "denise.worthen" Date: Wed, 22 Jun 2022 14:13:25 -0600 Subject: [PATCH] remove inserted whitespace for uvelE,N and vvelE,N --- cicecore/cicedynB/dynamics/ice_dyn_shared.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_shared.F90 b/cicecore/cicedynB/dynamics/ice_dyn_shared.F90 index 2ecc6e5f6..a30cc1b1c 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_shared.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_shared.F90 @@ -244,10 +244,10 @@ subroutine init_dyn (dt) uvel(i,j,iblk) = c0 ! m/s vvel(i,j,iblk) = c0 ! m/s if (grid_ice == 'CD' .or. grid_ice == 'C') then ! extra velocity variables - uvelE (i,j,iblk) = c0 - vvelE (i,j,iblk) = c0 - uvelN (i,j,iblk) = c0 - vvelN (i,j,iblk) = c0 + uvelE(i,j,iblk) = c0 + vvelE(i,j,iblk) = c0 + uvelN(i,j,iblk) = c0 + vvelN(i,j,iblk) = c0 endif ! strain rates