Changes between Version 1 and Version 2 of Ticket #2563, comment 19
- Timestamp:
- 2020-11-06T11:55:18+01:00 (3 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
Ticket #2563, comment 19
v1 v2 1 1 Just for a test, we can also add a basic "had made" timing to make sure that the timing routine is effectively given the proper number... 2 2 {{{#!diff 3 --- before 4 +++ after 5 @@ -1,13 +1,19 @@ 3 6 + INCLUDE 'mpif.h' 4 7 5 ...8 ... 6 9 7 10 SUBROUTINE iom_p0d_dp( cdname, pfield0d ) … … 14 17 #if defined key_iomput 15 18 !!clem zz(:,:)=pfield0d 16 @@ -1885,6 +1888,8 @@17 19 #else 18 20 IF( .FALSE. ) WRITE(numout,*) cdname, pfield0d ! useless test to avoid compilation warnings … … 27 29 28 30 {{{#!diff 31 --- before 32 +++ after 33 @@ -1,1 +1,3 @@ 29 34 + timeall = timeall + MPI_Wtime() - ztime 30 35 + CALL timing_stop('iom_put')