declare update_ocn_f as logical

CICE-Consortium · Sep 9, 2023 · df4e891 · df4e891
1 parent 49b3a29
commit df4e891
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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