Changeset 12325 for NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP

Timestamp:

2020-01-15T13:26:22+01:00 (4 years ago)

Author:

francesca

Message:

replace halo-copy routines - ticket #2009

File:

• NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trcadv.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trcadv.F90

@@ -80 +80 @@
       INTEGER ::   jk   ! dummy loop index
       CHARACTER (len=22) ::   charout
-      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zun, zvn, zwn  ! effective velocity
+      REAL(wp), POINTER, DIMENSION(:,:,:)        :: zun, zvn, zwn   ! effective velocity
       !!----------------------------------------------------------------------
       !
       IF( ln_timing )   CALL timing_start('trc_adv')
+     ALLOCATE( zun(jpi,jpj,jpk), zvn(jpi,jpj,jpk), zwn(jpi,jpj,jpk) )
       !
       !                                         !==  effective transport  ==!
@@ -141 +142 @@
       END IF
       !
+      DEALLOCATE( zun, zvn, zwn )
       IF( ln_timing )   CALL timing_stop('trc_adv')
       !