- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90
r7753 r7910 22 22 USE lib_mpp ! MPP library 23 23 USE prtctl ! Print control 24 USE wrk_nemo ! Memory Allocation25 24 USE timing ! Timing 26 25 USE bdy_oce ! ocean open boundary conditions … … 77 76 INTEGER :: ji, jj, jk ! dummy loop indices 78 77 REAL(wp) :: zu, zv ! temporary scalars 79 REAL(wp), POINTER, DIMENSION(:,:,:) :: zhke80 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv78 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zhke 79 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrdu, ztrdv 81 80 INTEGER :: jb ! dummy loop indices 82 81 INTEGER :: ii, ij, igrd, ib_bdy ! local integers … … 86 85 IF( nn_timing == 1 ) CALL timing_start('dyn_keg') 87 86 ! 88 CALL wrk_alloc( jpi,jpj,jpk, zhke )89 87 ! 90 88 IF( kt == nit000 ) THEN … … 95 93 96 94 IF( l_trddyn ) THEN ! Save ua and va trends 97 CALL wrk_alloc( jpi,jpj,jpk, ztrdu, ztrdv )98 95 ztrdu(:,:,:) = ua(:,:,:) 99 96 ztrdv(:,:,:) = va(:,:,:) … … 187 184 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 188 185 CALL trd_dyn( ztrdu, ztrdv, jpdyn_keg, kt ) 189 CALL wrk_dealloc( jpi,jpj,jpk, ztrdu, ztrdv )190 186 ENDIF 191 187 ! … … 193 189 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 194 190 ! 195 CALL wrk_dealloc( jpi,jpj,jpk, zhke )196 191 ! 197 192 IF( nn_timing == 1 ) CALL timing_stop('dyn_keg')
Note: See TracChangeset
for help on using the changeset viewer.