From 664436df72cb4dcc758fe02d21bbbe33309641c7 Mon Sep 17 00:00:00 2001 From: David Bailey Date: Wed, 21 Aug 2024 14:09:44 -0600 Subject: [PATCH] clean up driver code --- configuration/driver/icedrv_InitMod.F90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/configuration/driver/icedrv_InitMod.F90 b/configuration/driver/icedrv_InitMod.F90 index 5ada9b40..c077a920 100644 --- a/configuration/driver/icedrv_InitMod.F90 +++ b/configuration/driver/icedrv_InitMod.F90 @@ -59,8 +59,6 @@ subroutine icedrv_initialize tr_zaero, & ! from icepack tr_fsd, wave_spec - integer (kind=int_kind) :: i - character(len=*), parameter :: subname='(icedrv_initialize)' call icepack_configure() ! initialize icepack @@ -99,14 +97,12 @@ subroutine icedrv_initialize endif if (tr_fsd) then - call icepack_init_fsd_bounds( & floe_rad_l=floe_rad_l, & ! fsd size lower bound in m (radius) floe_rad_c=floe_rad_c, & ! fsd size bin centre in m (radius) floe_binwidth=floe_binwidth, & ! fsd size bin width in m (radius) c_fsd_range=c_fsd_range , & ! string for history output write_diags=.true.) - call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted(subname)) then call icedrv_system_abort(file=__FILE__,line=__LINE__)