Changeset 939 for codes/icosagcm/devel/src/dynamics/compute_caldyn_slow_hydro.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_caldyn_slow_hydro.F90 (modified) (1 diff)

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

@@ -55 +55 @@
   SUBROUTINE compute_caldyn_slow_hydro_unst(zero, u,rhodz,hv,Kv, berni, hflux,du)
     USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT
-    USE data_unstructured_mod, ONLY :left,right,edge_num,primal_num,dual_num,id_slow_hydro, &
-        primal_deg,le_de,primal_edge,Ai,enter_trace, exit_trace
+    USE data_unstructured_mod, ONLY : enter_trace, exit_trace, &
+         id_slow_hydro, left, right, primal_deg, primal_edge
     LOGICAL, INTENT(IN) :: zero
     FIELD_MASS  :: rhodz, hv, Kv, berni  ! IN, IN, IN, BUF