Changeset 13295 for NEMO/trunk/src/NST/agrif_oce_sponge.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_oce_sponge.F90
r13286 r13295 271 271 fspu(:,:) = 0._wp 272 272 fspv(:,:) = 0._wp 273 DO_2D _00_00273 DO_2D( 0, 0, 0, 0 ) 274 274 fspu(ji,jj) = 0.5_wp * ( ztabramp(ji,jj) + ztabramp(ji+1,jj ) ) * ssumask(ji,jj) 275 275 fspv(ji,jj) = 0.5_wp * ( ztabramp(ji,jj) + ztabramp(ji ,jj+1) ) * ssvmask(ji,jj) … … 281 281 fspt(:,:) = 0._wp 282 282 fspf(:,:) = 0._wp 283 DO_2D _00_00283 DO_2D( 0, 0, 0, 0 ) 284 284 fspt(ji,jj) = ztabramp(ji,jj) * ssmask(ji,jj) 285 285 fspf(ji,jj) = 0.25_wp * ( ztabramp(ji ,jj ) + ztabramp(ji ,jj+1) & … … 305 305 #if defined key_vertical 306 306 ! Remove vertical interpolation where not needed: 307 DO_2D _00_00307 DO_2D( 0, 0, 0, 0 ) 308 308 IF ((fspu(ji-1,jj)==0._wp).AND.(fspu(ji,jj)==0._wp).AND. & 309 309 & (fspv(ji,jj-1)==0._wp).AND.(fspv(ji,jj)==0._wp)) mbkt_parent(ji,jj) = 0
Note: See TracChangeset
for help on using the changeset viewer.