- Timestamp:
- 2017-12-13T15:58:53+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r7753 r9019 16 16 !!---------------------------------------------------------------------- 17 17 USE oce ! ocean dynamics and tracers 18 USE phycst ! physical constants 18 19 USE dom_oce ! ocean space and time domain 19 20 USE fldread ! read input fields 21 ! 20 22 USE in_out_manager ! I/O manager 21 USE phycst ! physical constants22 23 USE lib_mpp ! MPP library 23 USE wrk_nemo ! Memory allocation24 24 USE timing ! Timing 25 25 … … 62 62 !!---------------------------------------------------------------------- 63 63 ! 64 IF( nn_timing == 1 )CALL timing_start('dta_tsd_init')64 IF( ln_timing ) CALL timing_start('dta_tsd_init') 65 65 ! 66 66 ! Initialisation … … 120 120 ENDIF 121 121 ! 122 IF( nn_timing == 1 )CALL timing_stop('dta_tsd_init')122 IF( ln_timing ) CALL timing_stop('dta_tsd_init') 123 123 ! 124 124 END SUBROUTINE dta_tsd_init … … 145 145 INTEGER :: ji, jj, jk, jl, jkk ! dummy loop indicies 146 146 INTEGER :: ik, il0, il1, ii0, ii1, ij0, ij1 ! local integers 147 REAL(wp):: zl, zi 148 REAL(wp), POINTER, DIMENSION(:) :: ztp, zsp ! 1D workspace149 !!---------------------------------------------------------------------- 150 ! 151 IF( nn_timing == 1 )CALL timing_start('dta_tsd')147 REAL(wp):: zl, zi ! local scalars 148 REAL(wp), DIMENSION(jpk) :: ztp, zsp ! 1D workspace 149 !!---------------------------------------------------------------------- 150 ! 151 IF( ln_timing ) CALL timing_start('dta_tsd') 152 152 ! 153 153 CALL fld_read( kt, 1, sf_tsd ) !== read T & S data at kt time step ==! … … 185 185 ! 186 186 IF( ln_sco ) THEN !== s- or mixed s-zps-coordinate ==! 187 !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 !226 222 ELSE !== z- or zps- coordinate ==! 227 223 ! … … 260 256 ENDIF 261 257 ! 262 IF( nn_timing == 1 )CALL timing_stop('dta_tsd')258 IF( ln_timing ) CALL timing_stop('dta_tsd') 263 259 ! 264 260 END SUBROUTINE dta_tsd
Note: See TracChangeset
for help on using the changeset viewer.