- 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/OPA_SRC/DOM/domngb.F90
r7646 r8568 11 11 !!---------------------------------------------------------------------- 12 12 USE dom_oce ! ocean space and time domain 13 ! 13 14 USE in_out_manager ! I/O manager 14 15 USE lib_mpp ! for mppsum 15 USE wrk_nemo ! Memory allocation16 16 USE timing ! Timing 17 17 … … 45 45 INTEGER , DIMENSION(2) :: iloc 46 46 REAL(wp) :: zlon, zmini 47 REAL(wp), POINTER, DIMENSION(:,:) ::zglam, zgphi, zmask, zdist47 REAL(wp), DIMENSION(jpi,jpj) :: zglam, zgphi, zmask, zdist 48 48 !!-------------------------------------------------------------------- 49 49 ! 50 IF( nn_timing == 1 ) CALL timing_start('dom_ngb') 51 ! 52 CALL wrk_alloc( jpi,jpj, zglam, zgphi, zmask, zdist ) 50 IF( ln_timing ) CALL timing_start('dom_ngb') 53 51 ! 54 52 zmask(:,:) = 0._wp … … 79 77 ENDIF 80 78 ! 81 CALL wrk_dealloc( jpi,jpj, zglam, zgphi, zmask, zdist ) 82 ! 83 IF( nn_timing == 1 ) CALL timing_stop('dom_ngb') 79 IF( ln_timing ) CALL timing_stop('dom_ngb') 84 80 ! 85 81 END SUBROUTINE dom_ngb
Note: See TracChangeset
for help on using the changeset viewer.