- Timestamp:
- 2018-08-02T08:19:03+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DYN/dynnxt.F90
r10009 r10023 255 255 zsshv(ji,jj) = 0.5_wp * ( ssh(ji,jj,Nbb) + ssh(ji ,jj+1,Nbb) ) * ssvmask(ji,jj) 256 256 END DO ; END DO 257 CALL lbc_lnk_multi( zsshu(:,:),'U', 1._wp , zssh u(:,:),'V', 1._wp )257 CALL lbc_lnk_multi( zsshu(:,:),'U', 1._wp , zsshv(:,:),'V', 1._wp ) 258 258 ! 259 259 ! … … 291 291 zsshv(ji,jj) = 0.5_wp * ( ssh(ji,jj,Nbb) + ssh(ji ,jj+1,Nbb) ) * ssvmask(ji,jj) 292 292 END DO ; END DO 293 CALL lbc_lnk_multi( zsshu(:,:),'U', 1._wp , zssh u(:,:),'V', 1._wp )293 CALL lbc_lnk_multi( zsshu(:,:),'U', 1._wp , zsshv(:,:),'V', 1._wp ) 294 294 ! 295 295 ! … … 301 301 z_ssh_h0(:,:) = zsshv(:,:) * r1_hv_0(:,:) ! v-point 302 302 DO jk = 1, jpkm1 303 ze3 u_f(:,:,jk) = e3v_0 (:,:,jk) * ( 1._wp + z_ssh_h0(:,:) * vmask(:,:,jk) )303 ze3v_f(:,:,jk) = e3v_0 (:,:,jk) * ( 1._wp + z_ssh_h0(:,:) * vmask(:,:,jk) ) 304 304 END DO 305 305 !
Note: See TracChangeset
for help on using the changeset viewer.