- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/NST
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/NST/agrif_oce_sponge.F90
r13571 r13630 290 290 291 291 IF( .NOT. spongedoneT .AND. .NOT. spongedoneU ) THEN 292 #if defined key_mpi3 293 CALL lbc_lnk_nc_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp, fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 294 #else 292 295 CALL lbc_lnk_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp, fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 296 #endif 293 297 spongedoneT = .TRUE. 294 298 spongedoneU = .TRUE. 295 299 ENDIF 296 300 IF( .NOT. spongedoneT ) THEN 301 #if defined key_mpi3 302 CALL lbc_lnk_nc_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp ) 303 #else 297 304 CALL lbc_lnk_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp ) 305 #endif 298 306 spongedoneT = .TRUE. 299 307 ENDIF 300 308 IF( .NOT. spongedoneT .AND. .NOT. spongedoneU ) THEN 309 #if defined key_mpi3 310 CALL lbc_lnk_nc_multi( 'agrif_Sponge', fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 311 #else 301 312 CALL lbc_lnk_multi( 'agrif_Sponge', fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 313 #endif 302 314 spongedoneU = .TRUE. 303 315 ENDIF … … 323 335 ztabrampu(:,:) = REAL( mbku_parent(:,:), wp ) 324 336 ztabrampv(:,:) = REAL( mbkv_parent(:,:), wp ) 337 #if defined key_mpi3 338 CALL lbc_lnk_nc_multi( 'Agrif_Sponge', ztabramp, 'T', 1._wp, ztabrampu, 'U', 1._wp, ztabrampv, 'V', 1._wp ) 339 #else 325 340 CALL lbc_lnk_multi( 'Agrif_Sponge', ztabramp, 'T', 1._wp, ztabrampu, 'U', 1._wp, ztabrampv, 'V', 1._wp ) 341 #endif 326 342 mbkt_parent(:,:) = NINT( ztabramp (:,:) ) 327 343 mbku_parent(:,:) = NINT( ztabrampu(:,:) ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/NST/agrif_user.F90
r13571 r13630 99 99 100 100 101 #if defined key_mpi3 102 CALL lbc_lnk_nc_multi( 'agrif_istate', uu(:,:,: ,Kbb), 'U', -1.0_wp , vv(:,:,:,Kbb), 'V', -1.0_wp ) 103 CALL lbc_lnk_nc_multi( 'agrif_istate', ts(:,:,:,:,Kbb), 'T', 1.0_wp ) 104 #else 101 105 CALL lbc_lnk_multi( 'agrif_istate', uu(:,:,: ,Kbb), 'U', -1.0_wp , vv(:,:,:,Kbb), 'V', -1.0_wp ) 102 106 CALL lbc_lnk( 'agrif_istate', ts(:,:,:,:,Kbb), 'T', 1.0_wp ) 107 #endif 103 108 104 109 END SUBROUTINE Agrif_Istate … … 273 278 ENDIF 274 279 ! 280 #if defined key_mpi3 281 CALL lbc_lnk_nc_multi( 'Agrif_Init_Domain', hu0_parent, 'U', 1.0_wp, hv0_parent, 'V', 1.0_wp ) 282 #else 275 283 CALL lbc_lnk_multi( 'Agrif_Init_Domain', hu0_parent, 'U', 1.0_wp, hv0_parent, 'V', 1.0_wp ) 284 #endif 276 285 DO_2D( 0, 0, 0, 0 ) 277 286 zk(ji,jj) = REAL( mbku_parent(ji,jj), wp ) 278 287 END_2D 288 #if defined key_mpi3 289 CALL lbc_lnk_nc_multi( 'Agrif_InitValues_cont', zk, 'U', 1.0_wp ) 290 #else 279 291 CALL lbc_lnk( 'Agrif_InitValues_cont', zk, 'U', 1.0_wp ) 292 #endif 280 293 mbku_parent(:,:) = MAX( NINT( zk(:,:) ), 1 ) 281 294 DO_2D( 0, 0, 0, 0 ) 282 295 zk(ji,jj) = REAL( mbkv_parent(ji,jj), wp ) 283 296 END_2D 297 #if defined key_mpi3 298 CALL lbc_lnk_nc_multi( 'Agrif_InitValues_cont', zk, 'V', 1.0_wp ) 299 #else 284 300 CALL lbc_lnk( 'Agrif_InitValues_cont', zk, 'V', 1.0_wp ) 301 #endif 285 302 mbkv_parent(:,:) = MAX( NINT( zk(:,:) ), 1 ) 286 303 287 304 IF ( ln_init_chfrpar ) THEN 288 305 CALL Agrif_Init_Variable(sshini_id, procname=agrif_initssh) 306 #if defined key_mpi3 307 CALL lbc_lnk_nc_multi( 'Agrif_Init_Domain', ssh(:,:,Kbb), 'T', 1. ) 308 #else 289 309 CALL lbc_lnk( 'Agrif_Init_Domain', ssh(:,:,Kbb), 'T', 1. ) 310 #endif 290 311 DO jk = 1, jpk 291 312 e3t(:,:,jk,Kbb) = e3t_0(:,:,jk) * ( ht_0(:,:) + ssh(:,:,Kbb) ) &
Note: See TracChangeset
for help on using the changeset viewer.