goto_model_mnh.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!#######################
MODULE modi_goto_model_mnh
  !#######################
  !
  INTERFACE
    !     ###############################
          SUBROUTINE goto_model_mnh(U,HPROGRAM, KMI, KINFO_ll)
    !     ###############################
    !!
    !!    PURPOSE
    !!    -------
    !!
    !!    Calls GOTO_MODEL_SURFEX_MNH to
    !!    initialize local sizes in SURFEX module MODD_SURF_ATM_n for model KMI
    !!    and call GOTO_MODEL(KMI)
    !!             GOTO_MODEL_ll(KMI, KINFO_ll)
    !!
    !!    METHOD
    !!    ------
    !!
    !!    EXTERNAL
    !!    --------
    !!
    !!
    !!    IMPLICIT ARGUMENTS
    !!    ------------------
    !!
    !!
    !!    REFERENCE
    !!    ---------
    !!
    !!    AUTHOR
    !!    ------
    !!
    !!    M. Moge                   LA - CNRS
    !!
    !!    MODIFICATION
    !!    ------------
    !!
    !!    Original      08/2015
    !----------------------------------------------------------------------------
    !
    !*    0.     DECLARATION
    !            -----------
    !
    USE modd_surf_atm_n, ONLY : surf_atm_t
    IMPLICIT NONE
    !
    !*    0.1    Declaration of dummy arguments
    !            ------------------------------
    !
!
    TYPE(surf_atm_t), INTENT(INOUT) :: U
    CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! calling program
    INTEGER,                         INTENT(IN)    :: KMI    !model id
    INTEGER,                         INTENT(OUT)    :: KINFO_ll
          END SUBROUTINE goto_model_mnh
  !
  END INTERFACE
  !
END MODULE modi_goto_model_mnh
!     ###############################
      SUBROUTINE goto_model_mnh(U,HPROGRAM, KMI, KINFO_ll)
!     ###############################
!!
!!    PURPOSE
!!    -------
!!
!!    Calls GOTO_MODEL_SURFEX_MNH to
!!    initialize local sizes in SURFEX module MODD_SURF_ATM_n for model KMI
!!    and call GOTO_MODEL(KMI)
!!             GOTO_MODEL_ll(KMI, KINFO_ll)
!!
!!    METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!
!!    M. Moge                   LA - CNRS
!!
!!    MODIFICATION
!!    ------------
!!
!!    Original      08/2015
!----------------------------------------------------------------------------
!
!*    0.     DECLARATION
!            -----------
!
!
USE modd_surf_atm_n, ONLY : surf_atm_t
#ifdef SFX_MNH
USE modi_goto_model_surfex_mnh
#endif
!
IMPLICIT NONE
!
!*    0.1    Declaration of dummy arguments
!            ------------------------------
!
TYPE(surf_atm_t), INTENT(INOUT) :: U
 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! calling program
INTEGER,                         INTENT(IN)    :: KMI    !model id
INTEGER,                         INTENT(OUT)    :: KINFO_ll
!
!
!*    0.2    Declaration of local variables
!            ------------------------------
!
INTEGER :: IMI ! return code of // routines
 CHARACTER*1 :: HSPLIT
!
!------------------------------------------------------------------------------
!
IF (hprogram=='MESONH') THEN
#ifdef SFX_MNH
  CALL goto_model_surfex_mnh(u,kmi, kinfo_ll)
#else
  kinfo_ll = 0
#endif
ENDIF
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE goto_model_mnh