From 2d5487a2a7cd7de5ffca16db4e6b1c133eef5eb3 Mon Sep 17 00:00:00 2001 From: "denise.worthen" Date: Mon, 13 Jun 2022 11:56:40 -0600 Subject: [PATCH] change F->S for ocean velocities and tilts --- cicecore/cicedynB/dynamics/ice_dyn_evp.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 index b1c219f2e..866775132 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 @@ -318,10 +318,10 @@ subroutine evp (dt) call grid_average_X2Y('F', tmass , 'T' , umass , 'U') call grid_average_X2Y('F', aice_init, 'T' , aiu , 'U') - call grid_average_X2Y('F', uocn , grid_ocn_dynu, uocnU , 'U') - call grid_average_X2Y('F', vocn , grid_ocn_dynv, vocnU , 'U') - call grid_average_X2Y('F', ss_tltx , grid_ocn_dynu, ss_tltxU, 'U') - call grid_average_X2Y('F', ss_tlty , grid_ocn_dynv, ss_tltyU, 'U') + call grid_average_X2Y('S', uocn , grid_ocn_dynu, uocnU , 'U') + call grid_average_X2Y('S', vocn , grid_ocn_dynv, vocnU , 'U') + call grid_average_X2Y('S', ss_tltx , grid_ocn_dynu, ss_tltxU, 'U') + call grid_average_X2Y('S', ss_tlty , grid_ocn_dynv, ss_tltyU, 'U') if (grid_ice == 'CD' .or. grid_ice == 'C') then call grid_average_X2Y('F', tmass , 'T' , emass , 'E')