Changeset 14583

Timestamp:

2021-03-04T13:01:46+01:00 (3 years ago)

Author:

dancopsey

Message:

Undo last changes to iceupdate.F90. I will make these changes using a different branch called remade_heat_balance.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src/ICE/iceupdate.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src/ICE/iceupdate.F90

@@ -127 +127 @@
             qt_oce_ai(ji,jj) = qt_atm_oi(ji,jj) - hfx_sum(ji,jj) - hfx_bom(ji,jj) - hfx_bog(ji,jj) &
                &                                - hfx_dif(ji,jj) - hfx_opw(ji,jj) - hfx_snw(ji,jj) &
-               &                                + hfx_thd(ji,jj) + hfx_dyn(ji,jj) + hfx_res(ji,jj)                 
+               &                                + hfx_thd(ji,jj) + hfx_dyn(ji,jj) + hfx_res(ji,jj) &
+               &                                + hfx_sub(ji,jj) - SUM( qevap_ice(ji,jj,:) * a_i_b(ji,jj,:) ) + hfx_spr(ji,jj)                 
             
             ! New qsr and qns used to compute the oceanic heat flux at the next time step