Changeset 13466 for NEMO/branches/2020/temporary_r4_trunk/src/ICE/icethd_ent.F90

Timestamp:

2020-09-15T09:27:47+02:00 (4 years ago)

Author:

smasson

Message:

r4_trunk: merge r4 13280:13310, see #2523

File:

• NEMO/branches/2020/temporary_r4_trunk/src/ICE/icethd_ent.F90 (modified) (1 diff)

NEMO/branches/2020/temporary_r4_trunk/src/ICE/icethd_ent.F90

@@ -128 +128 @@
       ! comment: if input h_i_old and eh_i_old are already multiplied by a_i (as in icethd_do), 
       ! then we should not (* a_i) again but not important since this is just to check that remap error is ~0
-      DO ji = 1, npti
-         hfx_err_rem_1d(ji) = hfx_err_rem_1d(ji) + a_i_1d(ji) * r1_rdtice *  &
-            &               ( SUM( qnew(ji,1:nlay_i) ) * zhnew(ji) - SUM( eh_i_old(ji,0:nlay_i+1) ) ) 
-      END DO
+      !DO ji = 1, npti
+      !   hfx_err_rem_1d(ji) = hfx_err_rem_1d(ji) + a_i_1d(ji) * r1_rdtice *  &
+      !      &               ( SUM( qnew(ji,1:nlay_i) ) * zhnew(ji) - SUM( eh_i_old(ji,0:nlay_i+1) ) ) 
+      !END DO
       
    END SUBROUTINE ice_thd_ent