Changeset 13295 for NEMO/trunk/src/NST
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- Location:
- NEMO/trunk/src/NST
- Files:
-
- 2 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 -
NEMO/trunk/src/NST/agrif_user.F90
r13286 r13295 257 257 ! TODO: Switch to linear interpolation of bathymetry in the s-coordinate case 258 258 ! and no refinement 259 DO_2D _10_10259 DO_2D( 1, 0, 1, 0 ) 260 260 mbku_parent(ji,jj) = MIN( mbkt_parent(ji+1,jj ), mbkt_parent(ji,jj) ) 261 261 mbkv_parent(ji,jj) = MIN( mbkt_parent(ji ,jj+1), mbkt_parent(ji,jj) ) 262 262 END_2D 263 263 IF ( ln_sco.AND.Agrif_Parent(ln_sco) ) THEN 264 DO_2D _10_10264 DO_2D( 1, 0, 1, 0 ) 265 265 hu0_parent(ji,jj) = 0.5_wp * ( ht0_parent(ji,jj)+ht0_parent(ji+1,jj) ) 266 266 hv0_parent(ji,jj) = 0.5_wp * ( ht0_parent(ji,jj)+ht0_parent(ji,jj+1) ) 267 267 END_2D 268 268 ELSE 269 DO_2D _10_10269 DO_2D( 1, 0, 1, 0 ) 270 270 hu0_parent(ji,jj) = MIN( ht0_parent(ji,jj), ht0_parent(ji+1,jj) ) 271 271 hv0_parent(ji,jj) = MIN( ht0_parent(ji,jj), ht0_parent(ji,jj+1) ) … … 274 274 ! 275 275 CALL lbc_lnk_multi( 'Agrif_Init_Domain', hu0_parent, 'U', 1.0_wp, hv0_parent, 'V', 1.0_wp ) 276 DO_2D _00_00276 DO_2D( 0, 0, 0, 0 ) 277 277 zk(ji,jj) = REAL( mbku_parent(ji,jj), wp ) 278 278 END_2D 279 279 CALL lbc_lnk( 'Agrif_InitValues_cont', zk, 'U', 1.0_wp ) 280 280 mbku_parent(:,:) = MAX( NINT( zk(:,:) ), 1 ) 281 DO_2D _00_00281 DO_2D( 0, 0, 0, 0 ) 282 282 zk(ji,jj) = REAL( mbkv_parent(ji,jj), wp ) 283 283 END_2D
Note: See TracChangeset
for help on using the changeset viewer.