sumethox.F90

Go to the documentation of this file.

SUBROUTINE sumethox

!**** *SUCLDP*   - INITIALIZE MODULE YOEMETH CONTROLLING *METHOX*

!     PURPOSE.
!     --------
!           INITIALIZE YOEMETH

!**   INTERFACE.
!     ----------
!        CALL *SUMETHOX* FROM *SUPHEC*
!              --------        ------

!        EXPLICIT ARGUMENTS :
!        --------------------
!        NONE

!        IMPLICIT ARGUMENTS :
!        --------------------
!        MODULE YOEMETH

!     METHOD.
!     -------
!        SEE DOCUMENTATION

!     EXTERNALS.
!     ----------
!        NONE

!     REFERENCE.
!     ----------
!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
!     "INTEGRATED FORECASTING SYSTEM"

!     AUTHOR.
!     -------
!        C.JAKOB   *ECMWF*

!     MODIFICATIONS.
!     --------------
!        ORIGINAL : 98-04-07
!        Modified : 02-01-29  A.Simmons: increase RQLIM from 3.75e-6
!        M.Hamrud      01-Oct-2003 CY28 Cleaning
!        D. Cugnet     24-Feb-2012 Adapted for LMDZ
!     ------------------------------------------------------------------

USE yoemeth   , ONLY : ralpha1 ,ralpha2  ,rqlim   ,&
 & rpbotox,  rpbotph ,rptopox  ,rptopph ,&
 & ralpha3,  rlogpph  

!*       1.    SET VALUES
!              ----------

IMPLICIT NONE
ralpha1=(19.*log(10.))/(log(20.)**4)
ralpha2=log(1.0/3.+0.01)
rqlim=4.25e-6
rpbotox=10000.
rpbotph=20.
rptopox=50.
rptopph=0.1
ralpha3=0.5*(log(100.)+ralpha2)
rlogpph=log(rptopph/rpbotph)

!     -----------------------------------------------------------------

END SUBROUTINE sumethox