GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: phylmd/sumethox.F90 Lines: 11 11 100.0 %
Date: 2023-06-30 12:51:15 Branches: 0 0 - %

Line Branch Exec Source
1
1
SUBROUTINE SUMETHOX
2
3
!**** *SUCLDP*   - INITIALIZE MODULE YOEMETH CONTROLLING *METHOX*
4
5
!     PURPOSE.
6
!     --------
7
!           INITIALIZE YOEMETH
8
9
!**   INTERFACE.
10
!     ----------
11
!        CALL *SUMETHOX* FROM *SUPHEC*
12
!              --------        ------
13
14
!        EXPLICIT ARGUMENTS :
15
!        --------------------
16
!        NONE
17
18
!        IMPLICIT ARGUMENTS :
19
!        --------------------
20
!        MODULE YOEMETH
21
22
!     METHOD.
23
!     -------
24
!        SEE DOCUMENTATION
25
26
!     EXTERNALS.
27
!     ----------
28
!        NONE
29
30
!     REFERENCE.
31
!     ----------
32
!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
33
!     "INTEGRATED FORECASTING SYSTEM"
34
35
!     AUTHOR.
36
!     -------
37
!        C.JAKOB   *ECMWF*
38
39
!     MODIFICATIONS.
40
!     --------------
41
!        ORIGINAL : 98-04-07
42
!        Modified : 02-01-29  A.Simmons: increase RQLIM from 3.75e-6
43
!        M.Hamrud      01-Oct-2003 CY28 Cleaning
44
!        D. Cugnet     24-Feb-2012 Adapted for LMDZ
45
!     ------------------------------------------------------------------
46
47
USE YOEMETH   , ONLY : RALPHA1 ,RALPHA2  ,RQLIM   ,&
48
 & RPBOTOX,  RPBOTPH ,RPTOPOX  ,RPTOPPH ,&
49
 & RALPHA3,  RLOGPPH
50
51
!*       1.    SET VALUES
52
!              ----------
53
54
IMPLICIT NONE
55
1
RALPHA1=(19.*LOG(10.))/(LOG(20.)**4)
56
1
RALPHA2=LOG(1.0/3.+0.01)
57
1
RQLIM=4.25E-6
58
1
RPBOTOX=10000.
59
1
RPBOTPH=20.
60
1
RPTOPOX=50.
61
1
RPTOPPH=0.1
62
1
RALPHA3=0.5*(LOG(100.)+RALPHA2)
63
1
RLOGPPH=LOG(RPTOPPH/RPBOTPH)
64
65
!     -----------------------------------------------------------------
66
67
1
END SUBROUTINE SUMETHOX
68
69