Ignore:
Timestamp:
2020-01-15T13:26:22+01:00 (17 months ago)
Author:
francesca
Message:

replace halo-copy routines - ticket #2009

File:
1 edited

Legend:

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

    r11692 r12325  
    8080      INTEGER ::   jk   ! dummy loop index 
    8181      CHARACTER (len=22) ::   charout 
    82       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zun, zvn, zwn  ! effective velocity 
     82      REAL(wp), POINTER, DIMENSION(:,:,:)        :: zun, zvn, zwn   ! effective velocity 
    8383      !!---------------------------------------------------------------------- 
    8484      ! 
    8585      IF( ln_timing )   CALL timing_start('trc_adv') 
     86     ALLOCATE( zun(jpi,jpj,jpk), zvn(jpi,jpj,jpk), zwn(jpi,jpj,jpk) ) 
    8687      ! 
    8788      !                                         !==  effective transport  ==! 
     
    141142      END IF 
    142143      ! 
     144      DEALLOCATE( zun, zvn, zwn ) 
    143145      IF( ln_timing )   CALL timing_stop('trc_adv') 
    144146      ! 
Note: See TracChangeset for help on using the changeset viewer.