From 10f8126427e10d617ef48af170667ae4ebac4006 Mon Sep 17 00:00:00 2001 From: Jiwon Gim Date: Fri, 29 Sep 2023 03:33:33 +0900 Subject: [PATCH] remove delete polymorph --- musica-fortran/src/micm/micm_mod.F90 | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/musica-fortran/src/micm/micm_mod.F90 b/musica-fortran/src/micm/micm_mod.F90 index 612ba49a..96b3caea 100644 --- 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)