- Timestamp:
- 2017-12-13T15:58:53+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90
r7646 r9019 24 24 USE lbclnk ! lateral boundary conditions - mpp exchanges 25 25 USE lib_mpp ! MPP library 26 USE wrk_nemo ! Memory allocation27 26 USE timing ! Timing 28 27 … … 75 74 INTEGER :: izco, izps, isco, icav 76 75 ! 77 REAL(wp), POINTER, DIMENSION(:,:) :: zprt, zprw ! 2D workspace 78 REAL(wp), POINTER, DIMENSION(:,:,:) :: zdepu, zdepv ! 3D workspace 79 !!---------------------------------------------------------------------- 80 ! 81 IF( nn_timing == 1 ) CALL timing_start('dom_wri') 82 ! 83 CALL wrk_alloc( jpi,jpj, zprt , zprw ) 84 CALL wrk_alloc( jpi,jpj,jpk, zdepu, zdepv ) 76 REAL(wp), DIMENSION(jpi,jpj) :: zprt, zprw ! 2D workspace 77 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zdepu, zdepv ! 3D workspace 78 !!---------------------------------------------------------------------- 79 ! 80 IF( ln_timing ) CALL timing_start('dom_wri') 85 81 ! 86 82 IF(lwp) WRITE(numout,*) … … 206 202 ! ! ============================ 207 203 ! 208 CALL wrk_dealloc( jpi, jpj, zprt, zprw ) 209 CALL wrk_dealloc( jpi, jpj, jpk, zdepu, zdepv ) 210 ! 211 IF( nn_timing == 1 ) CALL timing_stop('dom_wri') 204 IF( ln_timing ) CALL timing_stop('dom_wri') 212 205 ! 213 206 END SUBROUTINE dom_wri … … 229 222 INTEGER :: ji ! dummy loop indices 230 223 LOGICAL, DIMENSION(SIZE(puniq,1),SIZE(puniq,2),1) :: lldbl ! store whether each point is unique or not 231 REAL(wp), POINTER, DIMENSION(:,:) :: ztstref 232 !!---------------------------------------------------------------------- 233 ! 234 IF( nn_timing == 1 ) CALL timing_start('dom_uniq') 235 ! 236 CALL wrk_alloc( jpi, jpj, ztstref ) 224 REAL(wp), DIMENSION(jpi,jpj) :: ztstref 225 !!---------------------------------------------------------------------- 226 ! 227 IF( ln_timing ) CALL timing_start('dom_uniq') 237 228 ! 238 229 ! build an array with different values for each element … … 250 241 puniq(nldi:nlei,nldj:nlej) = REAL( COUNT( lldbl(nldi:nlei,nldj:nlej,:), dim = 3 ) , wp ) 251 242 ! 252 CALL wrk_dealloc( jpi, jpj, ztstref ) 253 ! 254 IF( nn_timing == 1 ) CALL timing_stop('dom_uniq') 243 IF( ln_timing ) CALL timing_stop('dom_uniq') 255 244 ! 256 245 END SUBROUTINE dom_uniq
Note: See TracChangeset
for help on using the changeset viewer.