- 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/OCE/TRA/traadv.F90
r12489 r12586 83 83 INTEGER , INTENT(in) :: kt ! ocean time-step index 84 84 INTEGER , INTENT(in) :: Kbb, Kmm, Krhs ! time level indices 85 REAL(wp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! active tracers and RHS of tracer equation85 REAL(wp), POINTER, DIMENSION(:,:,:,:,:) , INTENT(inout) :: pts ! active tracers and RHS of tracer equation 86 86 ! 87 87 INTEGER :: jk ! dummy loop index 88 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zuu, zvv, zww ! 3D workspace88 REAL(wp), POINTER, DIMENSION(:,:,:) :: zuu, zvv, zww ! 3D workspace 89 89 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ztrdt, ztrds 90 90 !!---------------------------------------------------------------------- 91 91 ! 92 92 IF( ln_timing ) CALL timing_start('tra_adv') 93 ALLOCATE( zuu(jpi,jpj,jpk), zvv(jpi,jpj,jpk), zww(jpi,jpj,jpk) ) 93 94 ! 94 95 ! !== effective transport ==! … … 167 168 & tab3d_2=pts(:,:,:,jp_sal,Krhs), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 168 169 ! 170 DEALLOCATE( zuu, zvv, zww ) 169 171 IF( ln_timing ) CALL timing_stop( 'tra_adv' ) 170 172 !
Note: See TracChangeset
for help on using the changeset viewer.