Changeset 11536 for NEMO/trunk/src/OCE/timing.F90
 Timestamp:
 20190911T15:54:18+02:00 (17 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/trunk/src/OCE/timing.F90
r10510 r11536 347 347 348 348 ! write output file 349 IF( lwriter ) WRITE(numtime,*) 350 IF( lwriter ) WRITE(numtime,*) 349 351 IF( lwriter ) WRITE(numtime,*) 'Total timing (sum) :' 350 352 IF( lwriter ) WRITE(numtime,*) '' … … 657 659 ! Compute cpu/elapsed ratio 658 660 zall_ratio(:) = all_ctime(:) / all_etime(:) 659 ztot_ratio = SUM( zall_ratio(:))660 zavg_ratio = ztot_ratio/REAL(jpnij,wp)661 ztot_ratio = SUM(all_ctime(:))/SUM(all_etime(:)) 662 zavg_ratio = SUM(zall_ratio(:))/REAL(jpnij,wp) 661 663 zmax_ratio = MAXVAL(zall_ratio(:)) 662 664 zmin_ratio = MINVAL(zall_ratio(:)) … … 667 669 cllignes(2)='1x,"",//,' 668 670 cllignes(3)='1x,"Process Rank "," Elapsed Time (s) "," CPU Time (s) "," Ratio CPU/Elapsed",/,' 669 cllignes(4)=' (1x,i4,9x,"",f12.3,6x,"",f12.3,2x,"",4x,f7.3,/),'670 WRITE(cllignes(4)(1: 4),'(I4)') jpnij671 cllignes(4)=' (4x,i6,4x,"",f12.3,6x,"",f12.3,2x,"",4x,f7.3,/),' 672 WRITE(cllignes(4)(1:6),'(I6)') jpnij 671 673 cllignes(5)='1x,"Total ",f12.3,6x,"",F12.3,2x,"",4x,f7.3,/,' 672 674 cllignes(6)='1x,"Minimum ",f12.3,6x,"",F12.3,2x,"",4x,f7.3,/,'
Note: See TracChangeset
for help on using the changeset viewer.