SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_emis

Go to the documentation of this file.
00001 !     ######################
00002       MODULE MODD_EMIS_NOX
00003 !     ######################
00004 !
00005 !!****  *MODD_EMIS_NOX* - declaration of prognostic variables related
00006 !!                          to the  soilemisNO routine.
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !       The purpose of this declarative module is to specify  the 
00011 !     coefficients and weights related to the NOx emissions routine (soilemisno). 
00012 !
00013 !!
00014 !!**  IMPLICIT ARGUMENTS
00015 !!    ------------------
00016 !!      None 
00017 !!
00018 !-------------------------------------------------------------------------------
00019 !
00020 !*       0.   DECLARATIONS
00021 !             ------------
00022 !
00023 IMPLICIT NONE
00024 !
00025 !------------------------------------------------------------------------------
00026 !
00027 ! Weights
00028 !
00029 REAL, DIMENSION(3), PARAMETER :: XWGT_0 = (/0.561651794427011,-1.62075908632141,-0.21261983875851/)
00030 REAL, DIMENSION(3), PARAMETER :: XWGT_TG_S = (/-0.48932473825312,0.638173941854311,0.901773966331639/)
00031 REAL, DIMENSION(3), PARAMETER :: XWGT_WFPS_S = (/-0.73521035872982,3.88469485689393,-5.18779902340853/)
00032 !REAL, DIMENSION(3), PARAMETER :: XWGT_WFPS_S = (/0.33521035872982,3.88469485689393,-1.18779902340853/)
00033 REAL, DIMENSION(3), PARAMETER :: XWGT_TG_D = (/0.506600069632212,-0.942985468044301,1.23132977162784/)
00034 REAL, DIMENSION(3), PARAMETER :: XWGT_FERT = (/-0.784867014304196,-0.862455616914003,-2.62451302093078/)
00035 REAL, DIMENSION(3), PARAMETER :: XWGT_SAND = (/-0.283241716518431,-2.68040193699105,-0.27778477919531/)
00036 !REAL, DIMENSION(3), PARAMETER :: XWGT_SAND = (/0.283241716518431,-2.68040193699105,-0.27778477919531/)
00037 REAL, DIMENSION(3), PARAMETER :: XWGT_PH = (/0.132539461337082,1.61126351888328,0.413060247967231/)
00038 REAL, DIMENSION(3), PARAMETER :: XWGT_WIND = (/-0.00839661549597702,0.134088164903734,-0.560462552556124/)
00039 
00040 REAL, DIMENSION(4), PARAMETER :: XWGT_TOT = (/0.499562769416134,-1.23876483956298,-1.41295235373665,-1.20659105237301/)
00041 !REAL, DIMENSION(4), PARAMETER :: XWGT_TOT = (/0.499562769416134,-1.23876483956298,1.41295235373665,1.20659105237301/)
00042 !
00043 ! Coefficients
00044 REAL, DIMENSION(2), PARAMETER :: XCOEF_TG_S = (/-2.453992,0.142680/)
00045 REAL, DIMENSION(2), PARAMETER :: XCOEF_WFPS_S = (/-4.609693,0.115964/)
00046 REAL, DIMENSION(2), PARAMETER :: XCOEF_TG_D = (/-2.717366,0.163039/)
00047 REAL, DIMENSION(2), PARAMETER :: XCOEF_FERT = (/-0.364632,5.577532/)
00048 REAL, DIMENSION(2), PARAMETER :: XCOEF_SAND = (/-1.535199,0.054909/)
00049 REAL, DIMENSION(2), PARAMETER :: XCOEF_PH = (/-25.554238,3.158129/)
00050 REAL, DIMENSION(2), PARAMETER :: XCOEF_WIND = (/-1.182905,0.614317/)
00051 !
00052 !REAL, PARAMETER    :: XCOEF_NO0 = 7.903007
00053 REAL, PARAMETER    :: XCOEF_NO0 = 3.403007
00054 !REAL, PARAMETER    :: XCOEF_NO0 = 4.903007
00055 !REAL, PARAMETER    :: XCOEF_NO1 = 8.205080
00056 REAL, PARAMETER    :: XCOEF_NO1_s = 7.205080
00057 REAL, PARAMETER    :: XCOEF_NO1_l = 2.205080
00058 !
00059 END MODULE MODD_EMIS_NOX