- Timestamp:
- 05/18/18 12:31:45 (6 years ago)
- Location:
- codes/icosagcm/devel
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/Python/src/unstructured.pyx
r689 r699 89 89 c_int,'llm','nqdyn','primal_num','max_primal_deg', 90 90 'dual_num','max_dual_deg','edge_num','max_trisk_deg', 91 'caldyn_thermo','caldyn_eta','nb_threads', 91 'caldyn_thermo','caldyn_eta','nb_threads','dynamico_mpi_rank', 92 92 c_double,'elapsed', 93 93 c_num, 'g', 'ptop', 'cpp', 'cppv', -
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.