- Timestamp:
- 2020-03-23T13:14:40+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/TRP/trcadv.F90
r12489 r12586 76 76 INTEGER , INTENT(in) :: kt ! ocean time-step index 77 77 INTEGER , INTENT(in) :: Kbb, Kmm, Krhs ! time level indices 78 REAL(wp), DIMENSION(jpi,jpj,jpk,jptra,jpt), INTENT(inout) :: ptr ! passive tracers and RHS of tracer equation78 REAL(wp), POINTER, DIMENSION(:,:,:,:,:) , INTENT(inout) :: ptr ! passive tracers and RHS of tracer equation 79 79 ! 80 80 INTEGER :: jk ! dummy loop index 81 81 CHARACTER (len=22) :: charout 82 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zuu, zvv, zww ! effective velocity82 REAL(wp), POINTER, DIMENSION(:,:,:) :: zuu, zvv, zww ! effective velocity 83 83 !!---------------------------------------------------------------------- 84 84 ! 85 85 IF( ln_timing ) CALL timing_start('trc_adv') 86 ALLOCATE( zuu(jpi,jpj,jpk), zvv(jpi,jpj,jpk), zww(jpi,jpj,jpk) ) 86 87 ! 87 88 ! !== effective transport ==! … … 143 144 IF( ln_timing ) CALL timing_stop('trc_adv') 144 145 ! 146 DEALLOCATE( zuu, zvv, zww ) 145 147 END SUBROUTINE trc_adv 146 148
Note: See TracChangeset
for help on using the changeset viewer.