fix: ice concentration

FESOM · Dec 4, 2024 · aa32f57 · aa32f57
1 parent 5b1e4e7
commit aa32f57
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gen_forcing_couple.F90 b/src/gen_forcing_couple.F90
@@ -681,7 +681,7 @@ subroutine update_atm_forcing(istep, ice, tracers, dynamics, partit, mesh)
      elseif (i.eq.2) then
         exchange(:,1) = m_ice(1:myDim_nod2d)              ! ice thickness [m]
         exchange(:,2) = m_snow(1:myDim_nod2d)             ! snow thickness
-        exchange(:,3) = a_ice(1:myDim_nod2d)/100.              ! ice concentation [%]
+        exchange(:,3) = a_ice(1:myDim_nod2d)              ! ice concentation [%]
      endif
      call cpl_yac_send(i, exchange(:,1:cpl_send_collection_size(i)), action)
   enddo