- Timestamp:
- 2017-09-27T16:29:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/TRA/tranxt.F90
r7753 r8568 35 35 USE traqsr ! penetrative solar radiation (needed for nksr) 36 36 USE phycst ! physical constant 37 USE ldftra ! lateral physics ontracers38 USE ldfslp 39 USE bdy_oce , ONLY: ln_bdy37 USE ldftra ! lateral physics : tracers 38 USE ldfslp ! lateral physics : slopes 39 USE bdy_oce , ONLY : ln_bdy 40 40 USE bdytra ! open boundary condition (bdy_tra routine) 41 41 ! … … 43 43 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 44 44 USE prtctl ! Print control 45 USE wrk_nemo ! Memory allocation46 45 USE timing ! Timing 47 46 #if defined key_agrif … … 91 90 INTEGER :: ji, jj, jk, jn ! dummy loop indices 92 91 REAL(wp) :: zfact ! local scalars 93 REAL(wp), POINTER, DIMENSION(:,:,:) ::ztrdt, ztrds94 !!---------------------------------------------------------------------- 95 ! 96 IF( nn_timing == 1 )CALL timing_start( 'tra_nxt')92 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdt, ztrds 93 !!---------------------------------------------------------------------- 94 ! 95 IF( ln_timing ) CALL timing_start( 'tra_nxt') 97 96 ! 98 97 IF( kt == nit000 ) THEN … … 120 119 ! trends computation initialisation 121 120 IF( l_trdtra ) THEN 122 CALL wrk_alloc( jpi, jpj, jpk, ztrdt, ztrds)121 ALLOCATE( ztrdt(jpi,jpj,jpk) , ztrds(jpi,jpj,jpk) ) 123 122 ztrdt(:,:,jk) = 0._wp 124 123 ztrds(:,:,jk) = 0._wp … … 170 169 CALL trd_tra( kt, 'TRA', jp_tem, jptra_atf, ztrdt ) 171 170 CALL trd_tra( kt, 'TRA', jp_sal, jptra_atf, ztrds ) 172 CALL wrk_dealloc( jpi, jpj, jpk, ztrdt, ztrds )171 DEALLOCATE( ztrdt , ztrds ) 173 172 END IF 174 173 ! … … 177 176 & tab3d_2=tsn(:,:,:,jp_sal), clinfo2= ' Sn: ', mask2=tmask ) 178 177 ! 179 IF( nn_timing == 1) CALL timing_stop('tra_nxt')178 IF( ln_timing ) CALL timing_stop('tra_nxt') 180 179 ! 181 180 END SUBROUTINE tra_nxt
Note: See TracChangeset
for help on using the changeset viewer.