Changeset 13660 for NEMO/branches/2020/dev_r13508_HPC-09_communications_cleanup/src/OCE/TRA/tranpc.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/tranpc.F90 (modified) (2 diffs)

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

@@ -103 +103 @@
          inpcc = 0
          !
-         DO_2D( 0, 0, 0, 0 )                                ! interior column only
+         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )                                ! interior column only
             !
             IF( tmask(ji,jj,2) == 1 ) THEN      ! At least 2 ocean points
@@ -310 +310 @@
          ENDIF
          !
-         CALL lbc_lnk_multi( 'tranpc', pts(:,:,:,jp_tem,Kaa), 'T', 1.0_wp, pts(:,:,:,jp_sal,Kaa), 'T', 1.0_wp )
-         !
          IF( lwp .AND. l_LB_debug ) THEN
             WRITE(numout,*) 'Exiting tra_npc , kt = ',kt,', => numb. of statically instable water-columns: ', inpcc