Changeset 12942 for NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/timing.F90
- Timestamp:
- 2020-05-18T13:14:54+02:00 (4 years ago)
- 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 93 93 !!---------------------------------------------------------------------- 94 94 CHARACTER(len=*), INTENT(in) :: cdinfo 95 ! TODO: TO BE TILED 96 IF( ntile /= 0 .AND. ntile /= 1 ) RETURN 95 97 ! 96 98 IF(ASSOCIATED(s_timer) ) s_timer_old => s_timer … … 138 140 INTEGER :: ifinal_count, iperiods 139 141 REAL(wp) :: zcpu_end, zmpitime,zcpu_raw,zclock_raw 142 ! TODO: TO BE TILED 143 IF( ntile /= 0 .AND. ntile /= nijtile ) RETURN 140 144 ! 141 145 s_wrk => NULL()
Note: See TracChangeset
for help on using the changeset viewer.