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 12942 for NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/timing.F90 – NEMO

Ignore:
Timestamp:
2020-05-18T13:14:54+02:00 (3 years ago)
Author:
hadcv
Message:

Correct/improve IF blocks for one tile code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/timing.F90

    r12489 r12942  
    9393      !!---------------------------------------------------------------------- 
    9494      CHARACTER(len=*), INTENT(in) :: cdinfo 
     95      ! TODO: TO BE TILED 
     96      IF( ntile /= 0 .AND. ntile /= 1 ) RETURN 
    9597      ! 
    9698       IF(ASSOCIATED(s_timer) ) s_timer_old => s_timer 
     
    138140      INTEGER  :: ifinal_count, iperiods     
    139141      REAL(wp) :: zcpu_end, zmpitime,zcpu_raw,zclock_raw 
     142      ! TODO: TO BE TILED 
     143      IF( ntile /= 0 .AND. ntile /= nijtile ) RETURN 
    140144      ! 
    141145      s_wrk => NULL() 
Note: See TracChangeset for help on using the changeset viewer.