CICE_RunMod: get 'Lsub' from Icepack

phil-blain · Oct 14, 2020 · dee4436 · dee4436
1 parent e662c79
commit dee4436
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cicecore/drivers/standalone/cice/CICE_RunMod.F90 b/cicecore/drivers/standalone/cice/CICE_RunMod.F90
@@ -627,11 +627,12 @@ subroutine sfcflux_to_ocn(nx_block,   ny_block,     &
 
       real (kind=dbl_kind)    :: &
           puny, &          !
+          Lsub, &          !
           rLsub            ! 1/Lsub
 
       character(len=*), parameter :: subname = '(sfcflux_to_ocn)'
 
-      call icepack_query_parameters(puny_out=puny)
+      call icepack_query_parameters(puny_out=puny, Lsub_out=Lsub)
       call icepack_warnings_flush(nu_diag)
       if (icepack_warnings_aborted()) call abort_ice(error_message=subname, &
          file=__FILE__, line=__LINE__)