- Timestamp:
- 2017-12-13T15:58:53+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r7788 r9019 32 32 USE iom ! xIOS server 33 33 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 34 USE wrk_nemo ! Memory Allocation35 34 USE timing ! Timing 36 35 … … 75 74 INTEGER :: ikt, ikb ! local integers 76 75 REAL(wp) :: zfact, z1_e3t, zdep ! local scalar 77 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdt, ztrds76 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdt, ztrds 78 77 !!---------------------------------------------------------------------- 79 78 ! 80 IF( nn_timing == 1 )CALL timing_start('tra_sbc')79 IF( ln_timing ) CALL timing_start('tra_sbc') 81 80 ! 82 81 IF( kt == nit000 ) THEN … … 87 86 ! 88 87 IF( l_trdtra ) THEN !* Save ta and sa trends 89 CALL wrk_alloc( jpi, jpj, jpk, ztrdt, ztrds)88 ALLOCATE( ztrdt(jpi,jpj,jpk) , ztrds(jpi,jpj,jpk) ) 90 89 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 91 90 ztrds(:,:,:) = tsa(:,:,:,jp_sal) … … 232 231 CALL trd_tra( kt, 'TRA', jp_tem, jptra_nsr, ztrdt ) 233 232 CALL trd_tra( kt, 'TRA', jp_sal, jptra_nsr, ztrds ) 234 CALL wrk_dealloc( jpi, jpj, jpk, ztrdt, ztrds )233 DEALLOCATE( ztrdt , ztrds ) 235 234 ENDIF 236 235 ! … … 238 237 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 239 238 ! 240 IF( nn_timing == 1 )CALL timing_stop('tra_sbc')239 IF( ln_timing ) CALL timing_stop('tra_sbc') 241 240 ! 242 241 END SUBROUTINE tra_sbc
Note: See TracChangeset
for help on using the changeset viewer.