Skip to content
Snippets Groups Projects
Commit 08bbeaf4 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 13/01/2023: fix for LCHECK

parent 31d55bf3
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 2021-2021 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 2021-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
! Author: ! Author:
! P. Wautelet 06/07/2021 ! P. Wautelet 06/07/2021
! Modifications: ! Modifications:
! ! P. Wautelet 13/01/2023: fix for LCHECK
!----------------------------------------------------------------- !-----------------------------------------------------------------
MODULE MODE_FINALIZE_MNH MODULE MODE_FINALIZE_MNH
...@@ -53,17 +53,14 @@ SUBROUTINE FINALIZE_MNH ...@@ -53,17 +53,14 @@ SUBROUTINE FINALIZE_MNH
END IF END IF
END DO END DO
IF ( LCHECK ) CALL MPPDB_BARRIER()
!Finalize the parallel libraries !Finalize the parallel libraries
IF ( LCHECK ) THEN CALL END_PARA_ll( IRESP )
CALL MPPDB_BARRIER()
ELSE
CALL END_PARA_ll( IRESP )
#ifdef CPLOASIS #ifdef CPLOASIS
IF ( LOASIS ) THEN IF ( LOASIS ) CALL SFX_OASIS_END()
CALL SFX_OASIS_END()
END IF
#endif #endif
END IF
!Free SURFEX structures if necessary !Free SURFEX structures if necessary
CALL SURFEX_DEALLO_LIST() CALL SURFEX_DEALLO_LIST()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment