Robert Schoetter : New files for TEB multi-layer coupling

src/MNH/modd_coupling_levelsn.f90

+!MNH_LIC Copyright 1994-2014 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.
+!!
+!!    #######################
+MODULE MODD_COUPLING_LEVELS_n
+  !!    #####################
+  !!
+  !!*** *MODD_COUPLING_LEVELS_n*
+  !!
+  !!    PURPOSE
+  !!    -------
+  !       Declaration to couple SURFEX and Meso-NH at several levels 
+  !!
+  !!**  AUTHOR
+  !!    ------
+  !!    R.Schoetter                   *CNRM*
+  !
+  !!    MODIFICATIONS
+  !!    -------------
+  !!    Original 12/2019
+  !-----------------------------------------------------------------------------
+  !
+  !*       0.   DECLARATIONS
+  !        -----------------
+  !
+  USE MODD_PARAMETERS, ONLY: JPMODELMAX
+  !
+  IMPLICIT NONE
+  !
+  TYPE COUPLING_MULT_t
+     !
+     INTEGER :: NLEV_COUPLE
+     !
+  END TYPE COUPLING_MULT_t
+  !
+  TYPE(COUPLING_MULT_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: COUPLING_MULT_MODEL
+  !
+  INTEGER, POINTER :: NLEV_COUPLE=>NULL()
+  !
+CONTAINS
+  !
+  SUBROUTINE COUPLING_MULT_GOTO_MODEL(KFROM, KTO)
+    !
+    INTEGER, INTENT(IN) :: KFROM, KTO
+    !
+    NLEV_COUPLE=>COUPLING_MULT_MODEL(KTO)%NLEV_COUPLE
+    !
+  END SUBROUTINE COUPLING_MULT_GOTO_MODEL
+  !
+END MODULE MODD_COUPLING_LEVELS_n

src/MNH/modn_coupling_levelsn.f90

+!MNH_LIC Copyright 1994-2014 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.
+!!
+!!    #######################
+MODULE MODN_COUPLING_LEVELS_n
+  !!    #####################
+  !!
+  !!*** *MODN_COUPLING_LEVELS_n*
+  !!
+  !!    PURPOSE
+  !!    -------
+  !   Namelist to couple SURFEX and Meso-NH at several levels 
+  !!
+  !!**  AUTHOR
+  !!    ------
+  !!    R.Schoetter                   *CNRM*
+  !
+  !!    MODIFICATIONS
+  !!    -------------
+  !!    Original 12/2019
+  !!
+  !!    IMPLICIT ARGUMENTS
+  !!    ------------------
+  !
+  USE MODD_COUPLING_LEVELS_n, ONLY :       &
+       NLEV_COUPLE_n   => NLEV_COUPLE
+  !
+  !-----------------------------------------------------------------------------
+  !
+  !*       0.   DECLARATIONS
+  !        -----------------
+  IMPLICIT NONE
+  !
+  INTEGER, SAVE :: NLEV_COUPLE
+  !
+  NAMELIST /NAM_COUPLING_LEVELSn/NLEV_COUPLE
+  !
+CONTAINS
+  !
+  SUBROUTINE INIT_NAM_COUPLING_LEVELSn
+    NLEV_COUPLE = NLEV_COUPLE_n
+  END SUBROUTINE INIT_NAM_COUPLING_LEVELSn
+  !
+  SUBROUTINE UPDATE_NAM_COUPLING_LEVELSn
+    NLEV_COUPLE_n = NLEV_COUPLE
+  END SUBROUTINE UPDATE_NAM_COUPLING_LEVELSn
+  !
+END MODULE MODN_COUPLING_LEVELS_n