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