! Special set of characters for RCS information ! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modn_ibm_param.f90,v $ !------------------------------------------------------------------------------ ! ####################### MODULE MODN_EMIS_PARAM_n ! ####################### ! !!**** *MODN_EMIS_PARAM$n* - declaration of namelist NAM_EMIS_PARAMn !! !! PURPOSE !! ------- !!**** The purpose of this declarative module is to declare the constants !! which allow to initialize the embedded surface !! !! !! IMPLICIT ARGUMENTS !! ------------------ !! Module MODD_EMIS_PARAM$n : contains declaration of EMIS parameters !! !! !! REFERENCE !! --------- !! !! AUTHOR !! ------ !! Franck Auguste (CERFACS-AE) !! !! MODIFICATIONS !! ------------- !! Original 01/01/2015 ! USE MODD_EMIS_PARAM_n, ONLY: & LEMIS_n => LEMIS, & NEMIS_FILE_n => NEMIS_FILE, & XEMIS_RESI_n => XEMIS_RESI, & NEMIS_HOUR_n => NEMIS_HOUR ! IMPLICIT NONE ! LOGICAL,SAVE :: LEMIS REAL,SAVE :: XEMIS_RESI INTEGER,SAVE :: NEMIS_FILE INTEGER,SAVE :: NEMIS_HOUR ! NAMELIST /NAM_EMIS_PARAMn/ LEMIS, NEMIS_FILE, XEMIS_RESI, NEMIS_HOUR ! CONTAINS ! SUBROUTINE INIT_NAM_EMIS_PARAMn LEMIS = LEMIS_n NEMIS_FILE = NEMIS_FILE_n NEMIS_HOUR = NEMIS_HOUR_n XEMIS_RESI = XEMIS_RESI_n END SUBROUTINE INIT_NAM_EMIS_PARAMn SUBROUTINE UPDATE_NAM_EMIS_PARAMn LEMIS_n = LEMIS NEMIS_FILE_n = NEMIS_FILE NEMIS_HOUR_n = NEMIS_HOUR XEMIS_RESI_n = XEMIS_RESI END SUBROUTINE UPDATE_NAM_EMIS_PARAMn ! !------------------------------------------------------------------------------ ! END MODULE MODN_EMIS_PARAM_n !