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/DYN/dynadv.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/DYN/dynadv.F90

    r2715 r3294  
    1919   USE in_out_manager  ! I/O manager 
    2020   USE lib_mpp         ! MPP library 
     21   USE timing          ! Timing 
    2122 
    2223   IMPLICIT NONE 
     
    5758      !!---------------------------------------------------------------------- 
    5859      ! 
     60      IF( nn_timing == 1 )  CALL timing_start('dyn_adv') 
     61      ! 
    5962      SELECT CASE ( nadv )                  ! compute advection trend and add it to general trend 
    6063      CASE ( 0 )      
     
    7275                      CALL dyn_adv_ubs ( kt ) 
    7376      END SELECT 
     77      ! 
     78      IF( nn_timing == 1 )  CALL timing_stop('dyn_adv') 
    7479      ! 
    7580   END SUBROUTINE dyn_adv 
Note: See TracChangeset for help on using the changeset viewer.