From dbf32e9f11139b9cac257e5105d75164c351922a Mon Sep 17 00:00:00 2001 From: kilavvy <140459108+kilavvy@users.noreply.github.com> Date: Thu, 12 Jun 2025 17:05:46 +0200 Subject: [PATCH 1/2] Update IceFlexIEC.f90 --- modules/icefloe/src/icefloe/IceFlexIEC.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/icefloe/src/icefloe/IceFlexIEC.f90 b/modules/icefloe/src/icefloe/IceFlexIEC.f90 index 6245d38b57..8e49a28ada 100644 --- a/modules/icefloe/src/icefloe/IceFlexIEC.f90 +++ b/modules/icefloe/src/icefloe/IceFlexIEC.f90 @@ -46,7 +46,7 @@ subroutine initFlexIEC (iceInput, myIceParams, iceLog) real(ReKi) :: freq ! frequency of sinusoidal load integer(IntKi) :: nL !err, -! initialize the common parmeters for flexural ice failure +! initialize the common parameters for flexural ice failure call initIceFlex(iceInput, inParams, myIceParams, iceLog) call logMessage(iceLog, newLine//' Setting up flexural failure by Ralston method ') From b3d67c9b3ae79c338696bf0e58e61b3775041bc6 Mon Sep 17 00:00:00 2001 From: kilavvy <140459108+kilavvy@users.noreply.github.com> Date: Thu, 12 Jun 2025 17:07:13 +0200 Subject: [PATCH 2/2] Update lockInISO.F90 --- modules/icefloe/src/icefloe/lockInISO.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/icefloe/src/icefloe/lockInISO.F90 b/modules/icefloe/src/icefloe/lockInISO.F90 index ebb1e04ec3..9ba0f61b7c 100644 --- a/modules/icefloe/src/icefloe/lockInISO.F90 +++ b/modules/icefloe/src/icefloe/lockInISO.F90 @@ -41,10 +41,10 @@ subroutine initLockInCrushingISO (iceInput, myIceParams, iceLog) real(ReKi) :: fallTime, maxLoad integer(IntKi) :: nL ! err, -! initialize the common parmeters +! initialize the common parameters call initIceCrushISO(iceInput, inParams, myIceParams, iceLog) - call logMessage(iceLog, newLine//' Setting ice crushing loads with frequency lock-in parameteres per ISO') + call logMessage(iceLog, newLine//' Setting ice crushing loads with frequency lock-in parameters per ISO') call getIceInput(iceInput, 'towerFrequency', inParams%twr%freq, iceLog, 0.01_ReKi, 10.0_ReKi) call logMessage(iceLog, ' Tower fundamental frequency = '//TRIM(Num2LStr(inParams%twr%freq))//' Hz')