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 9866 for NEMO/trunk/src/ICE/icedyn_adv_umx.F90 – NEMO

Ignore:
Timestamp:
2018-07-02T18:19:04+02:00 (6 years ago)
Author:
clem
Message:

solve problem described in ticket #2107

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/ICE/icedyn_adv_umx.F90

    r9604 r9866  
    231231            ztra       = ztrd(ji,jj)  - (  zfu_ho(ji,jj) - zfu_ho(ji-1,jj  )   & 
    232232               &                         + zfv_ho(ji,jj) - zfv_ho(ji  ,jj-1) ) * r1_e1e2t(ji,jj)   
    233             ptc(ji,jj) = ptc(ji,jj) + pdt * ztra 
     233            ptc(ji,jj) = ( ptc(ji,jj) + pdt * ztra ) * tmask(ji,jj,1) 
    234234         END DO 
    235235      END DO 
Note: See TracChangeset for help on using the changeset viewer.