- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/LDF/ldfdyn.F90
r13571 r13630 398 398 ENDIF 399 399 ! 400 #if defined key_mpi3 401 CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1.0_wp, ahmf, 'F', 1.0_wp ) 402 #else 400 403 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1.0_wp, ahmf, 'F', 1.0_wp ) 404 #endif 401 405 ! 402 406 ! … … 430 434 END DO 431 435 ! 436 #if defined key_mpi3 437 CALL lbc_lnk_nc_multi( 'ldfdyn', dtensq, 'T', 1.0_wp ) ! lbc_lnk on dshesq not needed 438 #else 432 439 CALL lbc_lnk_multi( 'ldfdyn', dtensq, 'T', 1.0_wp ) ! lbc_lnk on dshesq not needed 440 #endif 433 441 ! 434 442 DO jk = 1, jpkm1 … … 481 489 ENDIF 482 490 ! 491 #if defined key_mpi3 492 CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1.0_wp , ahmf, 'F', 1.0_wp ) 493 #else 483 494 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1.0_wp , ahmf, 'F', 1.0_wp ) 495 #endif 484 496 ! 485 497 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.