From 8604210c1569201c1db5949762b9f8e8f8c4e1e5 Mon Sep 17 00:00:00 2001 From: Trevor Hillebrand Date: Mon, 6 Nov 2023 10:51:05 -0800 Subject: [PATCH] Revert "Calculate layerThickness after calving in RK loop" This reverts commit 5e23b98c14fdf9cb2f1277f4da0b0e6de8bdb9cb. --- .../src/mode_forward/mpas_li_time_integration_fe_rk.F | 2 -- 1 file changed, 2 deletions(-) diff --git a/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe_rk.F b/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe_rk.F index f6a1a4930815..2a8c3acb43d1 100644 --- a/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe_rk.F +++ b/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe_rk.F @@ -403,8 +403,6 @@ subroutine li_time_integrator_forwardeuler_rungekutta(domain, err) call mpas_pool_get_array(thermalPool, 'temperature', temperature) call mpas_pool_get_array(thermalPool, 'waterFrac', waterFrac) - ! get layerThickness after calving - call li_calculate_layerThickness(meshPool, thickness, layerThickness) layerThicknessTmp(:,:) = layerThickness(:,:) layerThickness(:,:) = rkSSPweights(rkStage) * layerThicknessPrev(:,:) + & (1.0_RKIND - rkSSPweights(rkStage)) * layerThickness(:,:)