Changeset 658 for codes/icosagcm/devel/src/unstructured/data_unstructured.F90

Timestamp:

12/30/17 02:00:38 (7 years ago)

Author:

dubos

Message:

devel/unstructured : updated kernels

File:

• codes/icosagcm/devel/src/unstructured/data_unstructured.F90 (modified) (1 diff)

codes/icosagcm/devel/src/unstructured/data_unstructured.F90

@@ -44 +44 @@
   INTEGER(C_INT), BIND(C) :: comm_icosa
 
-  INTEGER, PARAMETER :: id_pvort_only=1, id_slow_hydro=2, id_fast=3, id_coriolis=4, id_theta=5, &
-       id_vert_NH=6, id_solver=7, id_slow_NH=8, id_NH_geopot=9, id_vert=10, id_NH_Phi_star=11, nb_routines=11
+  INTEGER, PARAMETER :: id_dev1=1, id_dev2=2, &
+       id_pvort_only=3, id_slow_hydro=4, id_fast=5, id_coriolis=6, id_theta=7, id_geopot=8, id_vert=9, &
+       id_solver=10, id_slow_NH=11, id_NH_geopot=12, id_vert_NH=13, id_update=14, nb_routines=14 
   DBL, PRIVATE :: start_time, time_spent(nb_routines) ! time spent in each kernel
   INTEGER, PRIVATE :: current_id, nb_calls(nb_routines), bytes(nb_routines) ! bytes read or written be each kernel
   CHARACTER(len = 10) :: id_name(nb_routines) = &
-       (/'pvort_only', 'slow_hydro', 'fast      ', 'coriolis  ', 'theta     ', &
-       'vert_NH   ', 'solver    ', 'slow_NH   ', 'NH_geopot ', 'vert      ', &
-       'Phi_star  '/)
+       (/'dev1      ', 'dev2      ', &
+       'pvort_only', 'slow_hydro', 'fast      ', 'coriolis  ', 'theta     ', 'geopot    ', 'vert      ', &
+       'solver    ', 'slow_NH   ', 'NH_geopot ', 'vert_NH   ',  'update    ' /)
 
 CONTAINS