New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13931 – NEMO

Changeset 13931


Ignore:
Timestamp:
2020-11-30T22:38:29+01:00 (3 years ago)
Author:
vancop
Message:

possible repro issue

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/SI3_martin_ponds/src/ICE/icethd_pnd.F90

    r13912 r13931  
    269269         CALL tab_2d_1d( npti, nptidx(1:npti), wfx_sum_1d (1:npti)   , wfx_sum          ) 
    270270         CALL tab_2d_1d( npti, nptidx(1:npti), wfx_pnd_1d (1:npti)   , wfx_pnd          ) 
     271 
     272         CALL tab_2d_1d( npti, nptidx(1:npti), at_i_1d (1:npti)      , at_i             ) 
    271273          
    272274         CALL tab_2d_1d( npti, nptidx(1:npti), diag_dvpn_mlt_1d (1:npti), diag_dvpn_mlt ) 
     
    455457            CALL tab_1d_2d( npti, nptidx(1:npti), v_ip_1d     (1:npti), v_ip     (:,:,jl) ) 
    456458            CALL tab_1d_2d( npti, nptidx(1:npti), v_il_1d     (1:npti), v_il     (:,:,jl) ) 
    457             DO jk = 1, nlay_i 
    458                CALL tab_1d_2d( npti, nptidx(1:npti), sz_i_1d(1:npti,jk), sz_i(:,:,jk,jl)  ) 
    459             END DO 
    460459    
    461460         END DO ! ji 
Note: See TracChangeset for help on using the changeset viewer.