- Timestamp:
- 05/18/18 12:31:45 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/data_unstructured.F90
r695 r699 34 34 NUM2(:,:), ALLOCATABLE :: Riv2, wee, ap,bp, mass_bl, mass_dak, mass_dbk 35 35 36 INTEGER(C_INT), BIND(C) :: comm_icosa 36 INTEGER(C_INT), BIND(C) :: comm_icosa, dynamico_mpi_rank=0 37 37 38 38 INTEGER, PARAMETER :: id_dev1=1, id_dev2=2, & … … 73 73 TIME :: total_spent 74 74 !$OMP MASTER 75 total_spent=SUM(time_spent) 76 IF(total_spent>1.) THEN 77 PRINT *, '========================= Performance metrics =========================' 78 PRINT *, 'Total time spent in instrumented code (seconds) :', total_spent 79 PRINT *, 'Name, #calls, %time, microsec/call, MB/sec' 80 DO id=1,nb_routines 81 IF(nb_calls(id)>0) PRINT *, id_name(id), nb_calls(id), INT(100.*time_spent(id)/total_spent), & 82 INT(1e6*time_spent(id)/nb_calls(id)), INT(1e-6*bytes(id)/time_spent(id)) 83 END DO 84 CALL init_trace() 75 IF(dynamico_mpi_rank==0) THEN 76 total_spent=SUM(time_spent) 77 IF(total_spent>1.) THEN 78 PRINT *, '========================= Performance metrics =========================' 79 PRINT *, 'Total time spent in instrumented code (seconds) :', total_spent 80 PRINT *, 'Name, #calls, %time, microsec/call, MB/sec' 81 DO id=1,nb_routines 82 IF(nb_calls(id)>0) PRINT *, id_name(id), nb_calls(id), INT(100.*time_spent(id)/total_spent), & 83 INT(1e6*time_spent(id)/nb_calls(id)), INT(1e-6*bytes(id)/time_spent(id)) 84 END DO 85 CALL init_trace() 86 END IF 85 87 END IF 86 88 !$OMP END MASTER
Note: See TracChangeset
for help on using the changeset viewer.