remove needless modules-interfaces for oce_adv_tra_driver.F90 and update references

Author: suvarchal

src/oce_adv_tra_driver.F90

@@ -8,7 +8,7 @@ module oce_adv_tra_driver_module
     use diagnostics
     use oce_adv_tra_hor_interfaces
     use oce_adv_tra_ver_interfaces
-    use oce_adv_tra_fct_interfaces
+    use oce_adv_tra_fct_module, only: oce_tra_adv_fct
 
     implicit none
 
@@ -30,7 +30,7 @@ subroutine do_oce_adv_tra(dt, vel, w, wi, we, tr_num, dynamics, tracers, partit,
     use diagnostics, only: ldiag_DVD
     use oce_adv_tra_hor_interfaces
     use oce_adv_tra_ver_interfaces
-    use oce_adv_tra_fct_interfaces
+    use oce_adv_tra_fct_module, only: oce_tra_adv_fct
     ! oce_tra_adv_flux2dtracer is now in the same module
     implicit none
     real(kind=WP),  intent(in),    target :: dt

src/oce_adv_tra_fct.F90

@@ -1,36 +1,17 @@
-module oce_adv_tra_fct_interfaces
-  interface
-    subroutine oce_adv_tra_fct_init(twork, partit, mesh)
-      use MOD_MESH
-      use MOD_TRACER
-      USE MOD_PARTIT
-      USE MOD_PARSUP
-      type(t_mesh),  intent(in),    target        :: mesh
-      type(t_partit),intent(inout), target        :: partit
-      type(t_tracer_work), intent(inout), target  :: twork
-    end subroutine oce_adv_tra_fct_init
+module oce_adv_tra_fct_module
+  use MOD_MESH
+  use MOD_TRACER
+  USE MOD_PARTIT
+  USE MOD_PARSUP
+  USE g_comm_auto
+  
+  implicit none
+  
+  private
+  public :: oce_adv_tra_fct_init, oce_tra_adv_fct
+
+contains
 
-    subroutine oce_tra_adv_fct(dt, ttf, lo, adf_h, adf_v, fct_ttf_min, fct_ttf_max, fct_plus, fct_minus, AUX, partit, mesh)
-      use MOD_MESH
-      USE MOD_PARTIT
-      USE MOD_PARSUP
-      real(kind=WP), intent(in),    target :: dt
-      type(t_partit),intent(inout), target :: partit
-      type(t_mesh),  intent(in),    target :: mesh
-      real(kind=WP), intent(inout)      :: fct_ttf_min(mesh%nl-1, partit%myDim_nod2D+partit%eDim_nod2D)
-      real(kind=WP), intent(inout)      :: fct_ttf_max(mesh%nl-1, partit%myDim_nod2D+partit%eDim_nod2D)
-      real(kind=WP), intent(in)         :: ttf(mesh%nl-1, partit%myDim_nod2D+partit%eDim_nod2D)
-      real(kind=WP), intent(in)         :: lo (mesh%nl-1, partit%myDim_nod2D+partit%eDim_nod2D)
-      real(kind=WP), intent(inout)      :: adf_h(mesh%nl-1, partit%myDim_edge2D)
-      real(kind=WP), intent(inout)      :: adf_v(mesh%nl,   partit%myDim_nod2D)
-      real(kind=WP), intent(inout)      :: fct_plus(mesh%nl-1, partit%myDim_nod2D)
-      real(kind=WP), intent(inout)      :: fct_minus(mesh%nl,  partit%myDim_nod2D)
-      real(kind=WP), intent(inout)      :: AUX(:,:,:) !a large auxuary array
-    end subroutine oce_tra_adv_fct
- end interface
-end module oce_adv_tra_fct_interfaces
-!
-!
 !===============================================================================
 subroutine oce_adv_tra_fct_init(twork, partit, mesh)
     use MOD_MESH
@@ -498,3 +479,5 @@ subroutine oce_tra_adv_fct(dt, ttf, lo, adf_h, adf_v, fct_ttf_min, fct_ttf_max,
 !$ACC END DATA
 #endif
 end subroutine oce_tra_adv_fct
+
+end module oce_adv_tra_fct_module

src/oce_setup_step.F90

@@ -17,7 +17,7 @@ module oce_setup_step_module
     use Toy_Channel_Soufflet
     use Toy_Channel_Dbgyre
     use oce_ale_module, only: init_ale, init_thickness_ale, init_stiff_mat_ale
-    use oce_adv_tra_fct_interfaces
+    use oce_adv_tra_fct_module, only: oce_adv_tra_fct_init
     use oce_muscl_adv_module, only: muscl_adv_init
     use oce_ale_pressure_bv_module, only: init_ref_density