Changeset 13946 for NEMO/branches/2020/dev_r13923_Tiling_Cleanup_MPI3_LoopFusion/src/ICE/icedyn_adv_umx.F90
- Timestamp:
- 2020-12-01T18:03:15+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13923_Tiling_Cleanup_MPI3_LoopFusion/src/ICE/icedyn_adv_umx.F90
r13906 r13946 368 368 ! --- Lateral boundary conditions --- ! 369 369 IF ( ln_pnd_LEV .AND. ln_pnd_lids ) THEN 370 #if defined key_mpi3 371 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pa_i,'T',1._wp, pv_i,'T',1._wp, pv_s,'T',1._wp, psv_i,'T',1._wp, poa_i,'T',1._wp & 372 & , pa_ip,'T',1._wp, pv_ip,'T',1._wp, pv_il,'T',1._wp ) 373 #else 370 374 CALL lbc_lnk_multi( 'icedyn_adv_umx', pa_i,'T',1._wp, pv_i,'T',1._wp, pv_s,'T',1._wp, psv_i,'T',1._wp, poa_i,'T',1._wp & 371 375 & , pa_ip,'T',1._wp, pv_ip,'T',1._wp, pv_il,'T',1._wp ) 376 #endif 372 377 ELSEIF( ln_pnd_LEV .AND. .NOT.ln_pnd_lids ) THEN 378 #if defined key_mpi3 379 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pa_i,'T',1._wp, pv_i,'T',1._wp, pv_s,'T',1._wp, psv_i,'T',1._wp, poa_i,'T',1._wp & 380 & , pa_ip,'T',1._wp, pv_ip,'T',1._wp ) 381 #else 373 382 CALL lbc_lnk_multi( 'icedyn_adv_umx', pa_i,'T',1._wp, pv_i,'T',1._wp, pv_s,'T',1._wp, psv_i,'T',1._wp, poa_i,'T',1._wp & 374 383 & , pa_ip,'T',1._wp, pv_ip,'T',1._wp ) 384 #endif 375 385 ELSE 386 #if defined key_mpi3 387 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pa_i,'T',1._wp, pv_i,'T',1._wp, pv_s,'T',1._wp, psv_i,'T',1._wp, poa_i,'T',1._wp ) 388 #else 376 389 CALL lbc_lnk_multi( 'icedyn_adv_umx', pa_i,'T',1._wp, pv_i,'T',1._wp, pv_s,'T',1._wp, psv_i,'T',1._wp, poa_i,'T',1._wp ) 390 #endif 377 391 ENDIF 392 #if defined key_mpi3 393 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pe_i, 'T', 1._wp ) 394 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pe_s, 'T', 1._wp ) 395 #else 378 396 CALL lbc_lnk( 'icedyn_adv_umx', pe_i, 'T', 1._wp ) 379 397 CALL lbc_lnk( 'icedyn_adv_umx', pe_s, 'T', 1._wp ) 398 #endif 380 399 ! 381 400 !== Open water area ==!
Note: See TracChangeset
for help on using the changeset viewer.