diff --git a/components/mpas-albany-landice/src/Registry.xml b/components/mpas-albany-landice/src/Registry.xml index 62c54dd006c9..1510b6a61c79 100644 --- a/components/mpas-albany-landice/src/Registry.xml +++ b/components/mpas-albany-landice/src/Registry.xml @@ -1227,6 +1227,7 @@ is the value of that variable from the *previous* time level! /> @@ -1312,7 +1313,6 @@ is the value of that variable from the *previous* time level! - /> @@ -1385,6 +1385,7 @@ is the value of that variable from the *previous* time level! /> diff --git a/components/mpas-albany-landice/src/analysis_members/mpas_li_global_stats.F b/components/mpas-albany-landice/src/analysis_members/mpas_li_global_stats.F index a096895adbbc..961ee195ff61 100644 --- a/components/mpas-albany-landice/src/analysis_members/mpas_li_global_stats.F +++ b/components/mpas-albany-landice/src/analysis_members/mpas_li_global_stats.F @@ -208,7 +208,6 @@ subroutine li_compute_global_stats(domain, memberName, timeLevel, err) real (kind=RKIND), pointer :: iceThicknessMax, iceThicknessMin, iceThicknessMean real (kind=RKIND), pointer :: totalSfcMassBal, totalBasalMassBal real (kind=RKIND), pointer :: totalGroundedSfcMassBal, totalFloatingSfcMassBal - real (kind=RKIND), pointer :: totalFaceMeltingFlux real (kind=RKIND), pointer :: totalGroundedBasalMassBal, totalFloatingBasalMassBal real (kind=RKIND), pointer :: totalGroundedCalvingFlux, totalFloatingCalvingFlux real (kind=RKIND), pointer :: totalFaceMeltingFlux, & diff --git a/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F b/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F index 268e55789631..8e4fa86c4a9e 100644 --- a/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F +++ b/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F @@ -3856,7 +3856,7 @@ subroutine mask_calving(domain, err) dCalvingThickness(:) = 0.0_RKIND ! update mask - call li_calculate_mask(meshPool, velocityPool, geometryPool, err_tmp) + call li_calculate_mask(meshPool, velocityPool, geometryPool, domain, err_tmp) err = ior(err, err_tmp) localMaskCellCount = 0 diff --git a/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe.F b/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe.F index ad42e3d7f7f4..3f19e86836e9 100644 --- a/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe.F +++ b/components/mpas-albany-landice/src/mode_forward/mpas_li_time_integration_fe.F @@ -281,7 +281,6 @@ subroutine prepare_advection(domain, err) real (kind=RKIND), dimension(:,:), pointer :: layerNormalVelocity real (kind=RKIND), pointer :: calvingCFLdt, faceMeltingCFLdt real (kind=RKIND), dimension(:), pointer :: groundedToFloatingThickness - real (kind=RKIND), pointer :: calvingCFLdt integer, pointer :: processLimitingTimestep integer, dimension(:), pointer :: edgeMask