Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90
r2715 r3294 22 22 USE iom ! for iom_put 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 USE timing ! Timing 24 25 25 26 IMPLICIT NONE … … 58 59 INTEGER :: ji, jj, jk ! dummy loop indices 59 60 !!---------------------------------------------------------------------- 60 61 ! 62 IF( nn_timing == 1 ) CALL timing_start('zdf_evd') 63 ! 61 64 IF( kt == nit000 ) THEN 62 65 IF(lwp) WRITE(numout,*) … … 130 133 CALL iom_put( "avt_evd", zavt_evd ) ! output this change 131 134 ! 135 IF( nn_timing == 1 ) CALL timing_stop('zdf_evd') 136 ! 132 137 END SUBROUTINE zdf_evd 133 138
Note: See TracChangeset
for help on using the changeset viewer.