Changeset 13660 for NEMO/branches/2020/dev_r13508_HPC-09_communications_cleanup/src/OCE/TRA/traadv_cen.F90

Timestamp:

2020-10-22T12:47:32+02:00 (4 years ago)

Author:

francesca

Message:

communications cleanup of the TRA modules - ticket #2367

File:

• NEMO/branches/2020/dev_r13508_HPC-09_communications_cleanup/src/OCE/TRA/traadv_cen.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r13508_HPC-09_communications_cleanup/src/OCE/TRA/traadv_cen.F90

@@ -99 +99 @@
       zwz(:,:,jpk) = 0._wp
       !
-      IF (nn_hls.EQ.2) CALL lbc_lnk( 'traadv_cen', pt(:,:,:,:,Kmm), 'T', 1. )
       DO jn = 1, kjpt            !==  loop over the tracers  ==!
          !