Changeset 9109 for branches/2017/dev_merge_2017/NEMOGCM
- Timestamp:
- 2017-12-15T19:26:36+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r9075 r9109 1243 1243 IF ( ln_wd_dl .and. ln_wd_dl_bc) THEN 1244 1244 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) 1247 1249 END DO 1248 1250 END IF
Note: See TracChangeset
for help on using the changeset viewer.