Changeset 14671 for NEMO/branches/UKMO/NEMO_4.0.4_fix_topo_minor/src/ICE/icestp.F90

Timestamp:

2021-04-01T13:34:55+02:00 (3 years ago)

Author:

dancopsey

Message:

Merged in up to revision 14474 of the GO8_package branch

File:

• NEMO/branches/UKMO/NEMO_4.0.4_fix_topo_minor/src/ICE/icestp.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_fix_topo_minor/src/ICE/icestp.F90

@@ -211 +211 @@
       ! --- Ocean time step --- !
       !-------------------------!
-      IF( ln_icedyn )                   CALL ice_update_tau( kt, ub(:,:,1), vb(:,:,1) )   ! -- update surface ocean stresses
+      CALL ice_update_tau( kt, ub(:,:,1), vb(:,:,1) )   ! -- update surface ocean stresses
 !!gm   remark, the ocean-ice stress is not saved in ice diag call above .....  find a solution!!!
       !
@@ -414 +414 @@
             wfx_pnd(ji,jj) = 0._wp
 
+            dh_i_sum_2d(:,:,:) = 0._wp
+            dh_s_mlt_2d(:,:,:) = 0._wp
+
             hfx_thd(ji,jj) = 0._wp   ;
             hfx_snw(ji,jj) = 0._wp   ;   hfx_opw(ji,jj) = 0._wp