Ignore:
Timestamp:
2020-04-24T17:09:39+02:00 (11 months ago)
Author:
francesca
Message:

POINTER removal and replacing of traadv_mus.F90 file with original version - ticket #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/TRP/trcadv.F90

    r12586 r12810  
    7676      INTEGER                                   , INTENT(in)    :: kt   ! ocean time-step index 
    7777      INTEGER                                   , INTENT(in)    :: Kbb, Kmm, Krhs ! time level indices 
    78       REAL(wp), POINTER, DIMENSION(:,:,:,:,:)   , INTENT(inout) :: ptr            ! passive tracers and RHS of tracer equation 
     78      REAL(wp), DIMENSION(jpi,jpj,jpk,jptra,jpt), INTENT(inout) :: ptr            ! passive tracers and RHS of tracer equation 
    7979      ! 
    8080      INTEGER ::   jk   ! dummy loop index 
    8181      CHARACTER (len=22) ::   charout 
    82       REAL(wp), POINTER, DIMENSION(:,:,:) ::   zuu, zvv, zww  ! effective velocity 
     82      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zuu, zvv, zww  ! effective velocity 
    8383      !!---------------------------------------------------------------------- 
    8484      ! 
    8585      IF( ln_timing )   CALL timing_start('trc_adv') 
    86       ALLOCATE( zuu(jpi,jpj,jpk), zvv(jpi,jpj,jpk), zww(jpi,jpj,jpk) ) 
    8786      ! 
    8887      !                                         !==  effective transport  ==! 
     
    144143      IF( ln_timing )   CALL timing_stop('trc_adv') 
    145144      ! 
    146       DEALLOCATE( zuu, zvv, zww ) 
    147145   END SUBROUTINE trc_adv 
    148146 
Note: See TracChangeset for help on using the changeset viewer.