Changeset 3387


Ignore:
Timestamp:
2012-05-11T08:18:01+02:00 (9 years ago)
Author:
sga
Message:

NEMO branch dev_r3337_NOCS10_ICB: add timing routines around whole iceberg calculation - how bad can it get?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90

    r3383 r3387  
    2424   USE lib_mpp 
    2525   USE iom 
     26   USE timing         ! timing 
    2627 
    2728   USE icb_oce        ! define iceberg arrays 
     
    6162      LOGICAL ::   ll_sample_traj, ll_budget, ll_verbose   ! local logical 
    6263      !!---------------------------------------------------------------------- 
     64      ! 
     65      IF( nn_timing == 1 ) CALL timing_start('icb_stp') 
     66 
    6367      !! start of timestep housekeeping 
    6468 
     
    140144      ENDIF 
    141145 
     146      IF( nn_timing == 1 ) CALL timing_stop('icb_stp') 
    142147      ! 
    143148   END SUBROUTINE icb_stp 
Note: See TracChangeset for help on using the changeset viewer.