Changeset 939 for codes/icosagcm/devel/src/dynamics/compute_pvort_only.F90

Timestamp:

07/03/19 18:32:47 (5 years ago)

Author:

dubos

Message:

devel : cleanup USE data_unstructured_mod

File:

• codes/icosagcm/devel/src/dynamics/compute_pvort_only.F90 (modified) (2 diffs)

codes/icosagcm/devel/src/dynamics/compute_pvort_only.F90

@@ -1 +1 @@
 MODULE compute_pvort_only_mod
-  USE grid_param, ONLY : llm
+  USE grid_param
   IMPLICIT NONE
   PRIVATE
@@ -38 +38 @@
   SUBROUTINE compute_pvort_only_unst(u,rhodz,qu,qv, hv_)
     USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT
-    USE data_unstructured_mod, ONLY : enter_trace, exit_trace, &
-         id_pvort_only, primal_num, dual_num, edge_num, &
-         dual_deg, dual_edge, dual_ne, dual_vertex, up, down, Av, fv, Riv2
+    USE geometry, ONLY : Riv2, Av, fv
+    USE data_unstructured_mod, ONLY : enter_trace, exit_trace, id_pvort_only, &
+         dual_deg, dual_edge, dual_ne, dual_vertex, up, down
     FIELD_MASS :: rhodz
     FIELD_U    :: u,qu