Changeset 14312 for NEMO/trunk/src/OCE/LDF
- Timestamp:
- 2021-01-19T12:51:45+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldfslp.F90
r13497 r14312 245 245 & + 4.* zww(ji,jj ,jk) ) 246 246 END_2D 247 DO jj = 3, jpj-2 ! other rows248 DO ji = 2, jpim1 ! vector opt.249 uslp(ji,jj,jk) = z1_16 * ( zwz(ji-1,jj-1,jk) + zwz(ji+1,jj-1,jk) &250 & + zwz(ji-1,jj+1,jk) + zwz(ji+1,jj+1,jk) &251 & + 2.*( zwz(ji ,jj-1,jk) + zwz(ji-1,jj ,jk) &252 & + zwz(ji+1,jj ,jk) + zwz(ji ,jj+1,jk) ) &253 & + 4.* zwz(ji ,jj ,jk) )254 vslp(ji,jj,jk) = z1_16 * ( zww(ji-1,jj-1,jk) + zww(ji+1,jj-1,jk) &255 & + zww(ji-1,jj+1,jk) + zww(ji+1,jj+1,jk) &256 & + 2.*( zww(ji ,jj-1,jk) + zww(ji-1,jj ,jk) &257 & + zww(ji+1,jj ,jk) + zww(ji ,jj+1,jk) ) &258 & + 4.* zww(ji,jj ,jk) )259 END DO260 END DO261 247 ! !* decrease along coastal boundaries 262 248 DO_2D( 0, 0, 0, 0 ) … … 321 307 & + 4.* zww(ji ,jj ,jk) ) * zcofw 322 308 END_2D 323 DO jj = 3, jpj-2 ! other rows324 DO ji = 2, jpim1 ! vector opt.325 zcofw = wmask(ji,jj,jk) * z1_16326 wslpi(ji,jj,jk) = ( zwz(ji-1,jj-1,jk) + zwz(ji+1,jj-1,jk) &327 & + zwz(ji-1,jj+1,jk) + zwz(ji+1,jj+1,jk) &328 & + 2.*( zwz(ji ,jj-1,jk) + zwz(ji-1,jj ,jk) &329 & + zwz(ji+1,jj ,jk) + zwz(ji ,jj+1,jk) ) &330 & + 4.* zwz(ji ,jj ,jk) ) * zcofw331 332 wslpj(ji,jj,jk) = ( zww(ji-1,jj-1,jk) + zww(ji+1,jj-1,jk) &333 & + zww(ji-1,jj+1,jk) + zww(ji+1,jj+1,jk) &334 & + 2.*( zww(ji ,jj-1,jk) + zww(ji-1,jj ,jk) &335 & + zww(ji+1,jj ,jk) + zww(ji ,jj+1,jk) ) &336 & + 4.* zww(ji ,jj ,jk) ) * zcofw337 END DO338 END DO339 309 ! !* decrease in vicinity of topography 340 310 DO_2D( 0, 0, 0, 0 )
Note: See TracChangeset
for help on using the changeset viewer.