! (C) Copyright 2026- ECMWF. ! ! This software is licensed under the terms of the Apache Licence Version 2.0 ! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. ! In applying this licence, ECMWF does not waive the privileges and immunities ! granted to it by virtue of its status as an intergovernmental organisation ! nor does it submit to any jurisdiction. MODULE BACKEND_TEARDOWN_MOD USE GROWING_ALLOCATOR_MOD, ONLY: DESTROY_GROWING_ALLOCATOR USE TPM_FLT, ONLY: S, FLT_RESOL USE TPM_FIELDS_GPU, ONLY: FIELDS_GPU_RESOL, FG USE TPM_TRANS, ONLY: GROWING_ALLOCATION CONTAINS SUBROUTINE BACKEND_TEARDOWN IMPLICIT NONE CALL DESTROY_GROWING_ALLOCATOR(GROWING_ALLOCATION) NULLIFY(S) IF (ALLOCATED(FLT_RESOL)) DEALLOCATE(FLT_RESOL) NULLIFY(FG) IF( ALLOCATED(FIELDS_GPU_RESOL) ) DEALLOCATE(FIELDS_GPU_RESOL) END SUBROUTINE BACKEND_TEARDOWN END MODULE BACKEND_TEARDOWN_MOD