Changeset 13931 for NEMO/branches/2020/SI3_martin_ponds/src/ICE/icethd_pnd.F90

Timestamp:

2020-11-30T22:38:29+01:00 (4 years ago)

Author:

vancop

Message:

possible repro issue

File:

• NEMO/branches/2020/SI3_martin_ponds/src/ICE/icethd_pnd.F90 (modified) (2 diffs)

NEMO/branches/2020/SI3_martin_ponds/src/ICE/icethd_pnd.F90

@@ -269 +269 @@
          CALL tab_2d_1d( npti, nptidx(1:npti), wfx_sum_1d (1:npti)   , wfx_sum          )
          CALL tab_2d_1d( npti, nptidx(1:npti), wfx_pnd_1d (1:npti)   , wfx_pnd          )
+
+         CALL tab_2d_1d( npti, nptidx(1:npti), at_i_1d (1:npti)      , at_i             )
          
          CALL tab_2d_1d( npti, nptidx(1:npti), diag_dvpn_mlt_1d (1:npti), diag_dvpn_mlt )
@@ -455 +457 @@
             CALL tab_1d_2d( npti, nptidx(1:npti), v_ip_1d     (1:npti), v_ip     (:,:,jl) )
             CALL tab_1d_2d( npti, nptidx(1:npti), v_il_1d     (1:npti), v_il     (:,:,jl) )
-            DO jk = 1, nlay_i
-               CALL tab_1d_2d( npti, nptidx(1:npti), sz_i_1d(1:npti,jk), sz_i(:,:,jk,jl)  )
-            END DO
    
          END DO ! ji