New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90 – NEMO

Ignore:
Timestamp:
2012-01-28T17:44:18+01:00 (12 years ago)
Author:
rblod
Message:

Merge of 3.4beta into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90

    r2715 r3294  
    2222   USE iom             ! for iom_put 
    2323   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     24   USE timing          ! Timing 
    2425 
    2526   IMPLICIT NONE 
     
    5859      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    5960      !!---------------------------------------------------------------------- 
    60  
     61      ! 
     62      IF( nn_timing == 1 )  CALL timing_start('zdf_evd') 
     63      ! 
    6164      IF( kt == nit000 ) THEN 
    6265         IF(lwp) WRITE(numout,*) 
     
    130133      CALL iom_put( "avt_evd", zavt_evd )              ! output this change 
    131134      ! 
     135      IF( nn_timing == 1 )  CALL timing_stop('zdf_evd') 
     136      ! 
    132137   END SUBROUTINE zdf_evd 
    133138 
Note: See TracChangeset for help on using the changeset viewer.