- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90
r9019 r9124 30 30 USE phycst ! physical constants 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 USE timing ! Timing33 32 34 33 IMPLICIT NONE … … 113 112 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zdit, zdjt, zftu, zftv, ztfw 114 113 !!---------------------------------------------------------------------- 115 !116 IF( ln_timing ) CALL timing_start('tra_ldf_iso')117 114 ! 118 115 IF( kt == kit000 ) THEN … … 383 380 END DO ! end tracer loop 384 381 ! 385 IF( ln_timing ) CALL timing_stop('tra_ldf_iso')386 !387 382 END SUBROUTINE tra_ldf_iso 388 383
Note: See TracChangeset
for help on using the changeset viewer.