Changeset 675 for codes/icosagcm/devel
- Timestamp:
- 01/31/18 18:46:37 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/data_unstructured.F90
r670 r675 48 48 id_solver=10, id_slow_NH=11, id_NH_geopot=12, id_vert_NH=13, id_update=14, nb_routines=14 49 49 DBL, PRIVATE :: start_time, time_spent(nb_routines) ! time spent in each kernel 50 INTEGER, PRIVATE :: current_id, nb_calls(nb_routines), bytes(nb_routines) ! bytes read or written be each kernel 50 INTEGER, PRIVATE :: current_id, nb_calls(nb_routines) 51 INTEGER(KIND=8), PRIVATE :: bytes(nb_routines) ! bytes read or written by each kernel 51 52 CHARACTER(len = 10) :: id_name(nb_routines) = & 52 53 (/'dev1 ', 'dev2 ', &
Note: See TracChangeset
for help on using the changeset viewer.