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 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.
!----------------------------------------------------------------- !-----------------------------------------------------------------
!--------------- special set of characters for RCS information #ifdef MNH_MGSOLVER
!-----------------------------------------------------------------
! $Source$ $Revision$
! MASDEV4_7 solver 2006/05/18 13:07:25
!-----------------------------------------------------------------
! #################### ! ####################
MODULE MODI_ZCONJGRAD MODULE MODI_ZCONJGRAD
! #################### ! ####################
...@@ -290,3 +286,4 @@ PPHI = PPHI + ZLAMBDA * ZP ...@@ -290,3 +286,4 @@ PPHI = PPHI + ZLAMBDA * ZP
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
END SUBROUTINE ZCONJGRAD 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 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.
!----------------------------------------------------------------- !-----------------------------------------------------------------
#ifdef MNH_MGSOLVER
! #################### ! ####################
MODULE MODI_ZSOLVER MODULE MODI_ZSOLVER
! #################### ! ####################
...@@ -362,3 +363,4 @@ CALL MNH_MEM_RELEASE() ...@@ -362,3 +363,4 @@ CALL MNH_MEM_RELEASE()
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
END SUBROUTINE ZSOLVER 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 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.
!----------------------------------------------------------------- !-----------------------------------------------------------------
#ifdef MNH_MGSOLVER
! #################### ! ####################
MODULE MODI_ZSOLVER_INV MODULE MODI_ZSOLVER_INV
! #################### ! ####################
...@@ -521,3 +522,4 @@ INTEGER :: ZDXM2, ZDYM2 ...@@ -521,3 +522,4 @@ INTEGER :: ZDXM2, ZDYM2
END SUBROUTINE PF_1_Y_BOUND END SUBROUTINE PF_1_Y_BOUND
!------------------------------------------------------------------------------ !------------------------------------------------------------------------------
END SUBROUTINE ZSOLVER_INV 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