- 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/DYN/dynbfr.F90
r9019 r9124 21 21 USE in_out_manager ! I/O manager 22 22 USE prtctl ! Print control 23 USE timing ! Timing24 23 25 24 IMPLICIT NONE … … 56 55 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ztrdu, ztrdv 57 56 !!--------------------------------------------------------------------- 58 !59 IF( ln_timing ) CALL timing_start('dyn_bfr')60 57 ! 61 58 !!gm bug : time step is only rdt (not 2 rdt if euler start !) … … 109 106 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 110 107 ! 111 IF( ln_timing ) CALL timing_stop('dyn_bfr')112 !113 108 END SUBROUTINE dyn_bfr 114 109
Note: See TracChangeset
for help on using the changeset viewer.