From df4e891bbca8070b1783f551a0dec6066e3ed5a7 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Fri, 8 Sep 2023 23:24:09 -0500 Subject: [PATCH] declare update_ocn_f as logical --- configuration/driver/icedrv_init.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 0181187f4..bc0cb5b96 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -98,10 +98,10 @@ subroutine input_data natmiter, kitd, kcatbound character (len=char_len) :: shortwave, albedo_type, conduct, fbot_xfer_type, & - cpl_frazil, update_ocn_f, tfrz_option, saltflux_option, & + cpl_frazil, tfrz_option, saltflux_option, & frzpnd, atmbndy, wave_spec_type, snwredist, snw_aging_table - logical (kind=log_kind) :: sw_redist, use_smliq_pnd, snwgrain + logical (kind=log_kind) :: sw_redist, use_smliq_pnd, snwgrain, update_ocn_f real (kind=dbl_kind) :: sw_frac, sw_dtemp ! Flux convergence tolerance