- 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/dynzdf_exp.F90
r6140 r7910 24 24 USE in_out_manager ! I/O manager 25 25 USE lib_mpp ! MPP library 26 USE wrk_nemo ! Memory Allocation27 26 USE timing ! Timing 28 27 … … 66 65 INTEGER :: ji, jj, jk, jl ! dummy loop indices 67 66 REAL(wp) :: zlavmr, zua, zva ! local scalars 68 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwx, zwy, zwz, zww67 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zwx, zwy, zwz, zww 69 68 !!---------------------------------------------------------------------- 70 69 ! 71 70 IF( nn_timing == 1 ) CALL timing_start('dyn_zdf_exp') 72 71 ! 73 CALL wrk_alloc( jpi,jpj,jpk, zwx, zwy, zwz, zww )74 72 ! 75 73 IF( kt == nit000 .AND. lwp ) THEN … … 140 138 ENDIF 141 139 ! 142 CALL wrk_dealloc( jpi,jpj,jpk, zwx, zwy, zwz, zww )143 140 ! 144 141 IF( nn_timing == 1 ) CALL timing_stop('dyn_zdf_exp')
Note: See TracChangeset
for help on using the changeset viewer.