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

Philippe 21/03/2023: ZSOLVER: move main solver subroutines to MNH/

parent a9fde929
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC Copyright 1994-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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source$ $Revision$
! MASDEV4_7 solver 2006/05/18 13:07:25
!-----------------------------------------------------------------
#ifdef MNH_MGSOLVER
! ####################
MODULE MODI_ZCONJGRAD
! ####################
......@@ -290,3 +286,4 @@ PPHI = PPHI + ZLAMBDA * ZP
!-------------------------------------------------------------------------------
!
END SUBROUTINE ZCONJGRAD
#endif
!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC Copyright 1994-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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
#ifdef MNH_MGSOLVER
! ####################
MODULE MODI_ZSOLVER
! ####################
......@@ -362,3 +363,4 @@ CALL MNH_MEM_RELEASE()
!-------------------------------------------------------------------------------
!
END SUBROUTINE ZSOLVER
#endif
!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC Copyright 1994-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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
#ifdef MNH_MGSOLVER
! ####################
MODULE MODI_ZSOLVER_INV
! ####################
......@@ -521,3 +522,4 @@ INTEGER :: ZDXM2, ZDYM2
END SUBROUTINE PF_1_Y_BOUND
!------------------------------------------------------------------------------
END SUBROUTINE ZSOLVER_INV
#endif
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