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 9109 for branches/2017/dev_merge_2017/NEMOGCM – NEMO

Ignore:
Timestamp:
2017-12-15T19:26:36+01:00 (6 years ago)
Author:
jchanut
Message:

Correct advective velocities for wetting and drying

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r9075 r9109  
    12431243      IF ( ln_wd_dl .and. ln_wd_dl_bc) THEN  
    12441244         DO jk = 1, jpkm1 
    1245             un(:,:,jk) = ( un_adv(:,:) + zuwdav2(:,:)*(un(:,:,jk) - un_adv(:,:)) ) * umask(:,:,jk)  
    1246             vn(:,:,jk) = ( vn_adv(:,:) + zvwdav2(:,:)*(vn(:,:,jk) - vn_adv(:,:)) ) * vmask(:,:,jk)   
     1245            un(:,:,jk) = ( un_adv(:,:)*r1_hu_n(:,:) & 
     1246                       & + zuwdav2(:,:)*(un(:,:,jk) - un_adv(:,:)*r1_hu_n(:,:)) ) * umask(:,:,jk)  
     1247            vn(:,:,jk) = ( vn_adv(:,:)*r1_hv_n(:,:) &  
     1248                       & + zvwdav2(:,:)*(vn(:,:,jk) - vn_adv(:,:)*r1_hv_n(:,:)) ) * vmask(:,:,jk)   
    12471249         END DO 
    12481250      END IF  
Note: See TracChangeset for help on using the changeset viewer.