- 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_triad.F90
r9019 r9124 27 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 28 USE lib_mpp ! MPP library 29 USE timing ! Timing30 29 31 30 IMPLICIT NONE … … 97 96 !!---------------------------------------------------------------------- 98 97 ! 99 IF( ln_timing ) CALL timing_start('tra_ldf_triad')100 !101 98 IF( .NOT.ALLOCATED(zdkt3d) ) THEN 102 99 ALLOCATE( zdkt3d(jpi,jpj,0:1) , STAT=ierr ) … … 430 427 END DO ! end tracer loop 431 428 ! ! =============== 432 IF( ln_timing ) CALL timing_stop('tra_ldf_triad')433 !434 429 END SUBROUTINE tra_ldf_triad 435 430
Note: See TracChangeset
for help on using the changeset viewer.