Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90
r2715 r3294 19 19 USE in_out_manager ! I/O manager 20 20 USE lib_mpp ! MPP library 21 USE timing ! Timing 21 22 22 23 IMPLICIT NONE … … 57 58 !!---------------------------------------------------------------------- 58 59 ! 60 IF( nn_timing == 1 ) CALL timing_start('dyn_adv') 61 ! 59 62 SELECT CASE ( nadv ) ! compute advection trend and add it to general trend 60 63 CASE ( 0 ) … … 72 75 CALL dyn_adv_ubs ( kt ) 73 76 END SELECT 77 ! 78 IF( nn_timing == 1 ) CALL timing_stop('dyn_adv') 74 79 ! 75 80 END SUBROUTINE dyn_adv
Note: See TracChangeset
for help on using the changeset viewer.