Changeset 4456


Ignore:
Timestamp:
2014-02-04T13:16:48+01:00 (7 years ago)
Author:
trackstand2
Message:

Add timing to div_cur

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r4439 r4456  
    3232   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3333   USE lib_mpp         ! MPP library 
     34   USE timing 
    3435 
    3536   IMPLICIT NONE 
     
    284285      !!---------------------------------------------------------------------- 
    285286 
     287      CALL timing_start('div_cur') 
     288 
    286289      IF( kt == nit000 ) THEN 
    287290         IF(lwp) WRITE(numout,*) 
     
    401404      CALL lbc_lnk( hdivn, 'T', 1. )   ;   CALL lbc_lnk( rotn , 'F', 1. )     ! lateral boundary cond. (no sign change) 
    402405      ! 
     406      CALL timing_stop('div_cur','section') 
     407 
    403408   END SUBROUTINE div_cur 
    404409    
Note: See TracChangeset for help on using the changeset viewer.