Changeset 14886

Timestamp:

2021-05-19T11:10:37+02:00 (3 years ago)

Author:

clem

Message:

trunk ICE: the diagnostic of heat flux for ice surface melt was not outputed because of initialization problem

Location:

NEMO/trunk/src/ICE

Files:

• icestp.F90 (modified) (1 diff)
• icethd.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icestp.F90

@@ -460 +460 @@
             qcn_ice    (ji,jj,jl) = 0._wp   ! conductive flux (ln_cndflx=T & ln_cndemule=T)
             qtr_ice_bot(ji,jj,jl) = 0._wp   ! part of solar radiation transmitted through the ice needed at least for outputs
+            qml_ice    (ji,jj,jl) = 0._wp   ! surface melt heat flux
             ! Melt pond surface melt diagnostics (mv - more efficient: grouped into one water volume flux)
             dh_i_sum_2d(ji,jj,jl) = 0._wp

NEMO/trunk/src/ICE/icethd.F90

@@ -536 +536 @@
          CALL tab_1d_2d( npti, nptidx(1:npti), qcn_ice_bot_1d(1:npti), qcn_ice_bot(:,:,kl) )
          CALL tab_1d_2d( npti, nptidx(1:npti), qcn_ice_top_1d(1:npti), qcn_ice_top(:,:,kl) )
+         CALL tab_1d_2d( npti, nptidx(1:npti), qml_ice_1d    (1:npti), qml_ice    (:,:,kl) )
          ! extensive variables
          CALL tab_1d_2d( npti, nptidx(1:npti), v_i_1d (1:npti), v_i (:,:,kl) )