Changeset 936

Timestamp:

07/03/19 17:57:56 (5 years ago)

Author:

dubos

Message:

devel/unstructured : removed duplicate BIND(C) variables

File:

• codes/icosagcm/devel/src/unstructured/data_unstructured.F90 (modified) (2 diffs)

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

@@ -3 +3 @@
   USE earth_const, ONLY : thermo_theta
   USE mpipara, ONLY : is_mpi_master
-  USE grid_param, ONLY : llm, nqdyn
+  USE grid_param, ONLY : llm, nqdyn, primal_num, edge_num, dual_num, &
+       max_primal_deg, max_dual_deg, max_trisk_deg
   USE geometry, ONLY : le, le_de, fv, Av, Ai
 #ifdef CPP_USING_OMP
@@ -27 +28 @@
 #endif
 
-  INDEX, BIND(C) :: edge_num, primal_num, dual_num, &
-       max_primal_deg, max_dual_deg, max_trisk_deg
   INDEX, POINTER :: & ! deg(ij) = nb of vertices = nb of edges of primal/dual cell ij
        primal_deg(:), primal_edge(:,:), primal_vertex(:,:), primal_ne(:,:), &