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 15386 – NEMO

Changeset 15386


Ignore:
Timestamp:
2021-10-15T15:55:25+02:00 (10 months ago)
Author:
jchanut
Message:

#2734: correct issue with ln_bt_fw=F introduced at r15061

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/stpmlf.F90

    r15061 r15386  
    507507         ! so that asselin contribution is removed at the same time 
    508508         DO jk = 1, jpkm1 
    509             DO_2D( 0, 0, 0, 0 ) 
    510                puu(ji,jj,jk,Kmm) = ( puu(ji,jj,jk,Kmm) - un_adv(ji,jj)*r1_hu(ji,jj,Kmm) + uu_b(ji,jj,Kmm) )*umask(ji,jj,jk) 
    511                pvv(ji,jj,jk,Kmm) = ( pvv(ji,jj,jk,Kmm) - vn_adv(ji,jj)*r1_hv(ji,jj,Kmm) + vv_b(ji,jj,Kmm) )*vmask(ji,jj,jk) 
    512             END_2D 
     509            puu(:,:,jk,Kmm) = ( puu(:,:,jk,Kmm) - un_adv(:,:)*r1_hu(:,:,Kmm) + uu_b(:,:,Kmm) )*umask(:,:,jk) 
     510            pvv(:,:,jk,Kmm) = ( pvv(:,:,jk,Kmm) - vn_adv(:,:)*r1_hv(:,:,Kmm) + vv_b(:,:,Kmm) )*vmask(:,:,jk) 
    513511         END DO 
    514512      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.