Changeset 9883


Ignore:
Timestamp:
2018-07-05T17:57:31+02:00 (2 years ago)
Author:
clem
Message:

solve issue raised in ticket #2107 and maybe in ticket #2106

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-3.6/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r6476 r9883  
    269269         ! Recover the properties from their contents 
    270270         !------------------------------------------- 
    271          ato_i(:,:) = z0opw(:,:,1) * r1_e12t(:,:) 
    272          DO jl = 1, jpl 
    273             v_i  (:,:,jl)   = z0ice(:,:,jl) * r1_e12t(:,:) 
    274             v_s  (:,:,jl)   = z0snw(:,:,jl) * r1_e12t(:,:) 
    275             smv_i(:,:,jl)   = z0smi(:,:,jl) * r1_e12t(:,:) 
    276             oa_i (:,:,jl)   = z0oi (:,:,jl) * r1_e12t(:,:) 
    277             a_i  (:,:,jl)   = z0ai (:,:,jl) * r1_e12t(:,:) 
    278             e_s  (:,:,1,jl) = z0es (:,:,jl) * r1_e12t(:,:) 
     271         ato_i(:,:) = z0opw(:,:,1) * r1_e12t(:,:) * tmask(:,:,1) 
     272         DO jl = 1, jpl 
     273            v_i  (:,:,jl)   = z0ice(:,:,jl) * r1_e12t(:,:) * tmask(:,:,1) 
     274            v_s  (:,:,jl)   = z0snw(:,:,jl) * r1_e12t(:,:) * tmask(:,:,1) 
     275            smv_i(:,:,jl)   = z0smi(:,:,jl) * r1_e12t(:,:) * tmask(:,:,1) 
     276            oa_i (:,:,jl)   = z0oi (:,:,jl) * r1_e12t(:,:) * tmask(:,:,1) 
     277            a_i  (:,:,jl)   = z0ai (:,:,jl) * r1_e12t(:,:) * tmask(:,:,1) 
     278            e_s  (:,:,1,jl) = z0es (:,:,jl) * r1_e12t(:,:) * tmask(:,:,1) 
    279279            DO jk = 1, nlay_i 
    280                e_i(:,:,jk,jl) = z0ei(:,:,jk,jl) * r1_e12t(:,:) 
     280               e_i(:,:,jk,jl) = z0ei(:,:,jk,jl) * r1_e12t(:,:) * tmask(:,:,1) 
    281281            END DO 
    282282         END DO 
Note: See TracChangeset for help on using the changeset viewer.