remove delete polymorph

NCAR · Sep 28, 2023 · 10f8126 · 10f8126
1 parent 1223692
commit 10f8126
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/musica-fortran/src/micm/micm_mod.F90 b/musica-fortran/src/micm/micm_mod.F90
@@ -10,7 +10,7 @@ module micm
         private
         type(c_ptr) :: ptr
     contains
-        procedure :: delete => delete_micm_polymorph
+        procedure :: delete => delete_micm
         procedure :: create_solver => micm_create_solver
         procedure :: solve => micm_solve
     end type
@@ -38,12 +38,6 @@ function create_micm(config_path)
     end function
 
     subroutine delete_micm(this)
-        implicit none
-        type(micm_t) :: this
-        call delete_micm_c(this%ptr)
-    end subroutine
-
-    subroutine delete_micm_polymorph(this)
         implicit none
         class(micm_t) :: this
         call delete_micm_c(this%ptr)