- 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/dtatsd.F90
r7753 r7910 21 21 USE phycst ! physical constants 22 22 USE lib_mpp ! MPP library 23 USE wrk_nemo ! Memory allocation24 23 USE timing ! Timing 25 24 … … 146 145 INTEGER :: ik, il0, il1, ii0, ii1, ij0, ij1 ! local integers 147 146 REAL(wp):: zl, zi 148 REAL(wp), POINTER, DIMENSION(:) :: ztp, zsp ! 1D workspace147 REAL(wp), DIMENSION(jpk) :: ztp, zsp ! 1D workspace 149 148 !!---------------------------------------------------------------------- 150 149 ! … … 186 185 IF( ln_sco ) THEN !== s- or mixed s-zps-coordinate ==! 187 186 ! 188 CALL wrk_alloc( jpk, ztp, zsp )189 187 ! 190 188 IF( kt == nit000 .AND. lwp )THEN … … 222 220 END DO 223 221 ! 224 CALL wrk_dealloc( jpk, ztp, zsp )225 222 ! 226 223 ELSE !== z- or zps- coordinate ==!
Note: See TracChangeset
for help on using the changeset viewer.