- Timestamp:
- 2017-09-27T16:29:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/DYN/dynbfr.F90
r8367 r8568 57 57 !!--------------------------------------------------------------------- 58 58 ! 59 IF( nn_timing == 1 )CALL timing_start('dyn_bfr')59 IF( ln_timing ) CALL timing_start('dyn_bfr') 60 60 ! 61 61 !!gm bug : time step is only rdt (not 2 rdt if euler start !) … … 109 109 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 110 110 ! 111 IF( nn_timing == 1 )CALL timing_stop('dyn_bfr')111 IF( ln_timing ) CALL timing_stop('dyn_bfr') 112 112 ! 113 113 END SUBROUTINE dyn_bfr
Note: See TracChangeset
for help on using the changeset viewer.