- 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/TOP/TRP/trcatf.F90
r13295 r13630 102 102 #endif 103 103 ! Update after tracer on domain lateral boundaries 104 #if defined key_mpi3 105 CALL lbc_lnk_nc_multi( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1. ) 106 #else 104 107 CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1. ) 108 #endif 105 109 106 110 IF( ln_bdy ) CALL trc_bdy( kt, Kbb, Kmm, Kaa ) … … 168 172 ENDIF 169 173 ! 174 #if defined key_mpi3 175 CALL lbc_lnk_nc_multi( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp ) 176 #else 170 177 CALL lbc_lnk_multi( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp ) 178 #endif 171 179 ENDIF 172 180 !
Note: See TracChangeset
for help on using the changeset viewer.