- Timestamp:
- 2017-12-19T09:47:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90
r9124 r9125 18 18 USE fldread ! read input fields 19 19 USE lib_mpp ! MPP library 20 USE wrk_nemo ! Memory allocation21 20 USE timing ! Timing 22 21 … … 139 138 INTEGER :: ik, il0, il1, ii0, ii1, ij0, ij1 ! local integers 140 139 REAL(wp):: zl, zi ! local floats 141 REAL(wp), POINTER, DIMENSION(:) :: zup, zvp ! 1D workspace140 REAL(wp), ALLOCATABLE, DIMENSION(:) :: zup, zvp ! 1D workspace 142 141 !!---------------------------------------------------------------------- 143 142 ! … … 151 150 IF( ln_sco ) THEN !== s- or mixed s-zps-coordinate ==! 152 151 ! 153 CALL wrk_alloc( jpk, zup, zvp)152 ALLOCATE( zup(jpk), zvp(jpk) ) 154 153 ! 155 154 IF( kt == nit000 .AND. lwp )THEN … … 187 186 END DO 188 187 ! 189 CALL wrk_dealloc( jpk,zup, zvp )188 DEALLOCATE( zup, zvp ) 190 189 ! 191 190 ELSE !== z- or zps- coordinate ==!
Note: See TracChangeset
for help on using the changeset viewer.