GCC Code Coverage Report

Directory: ./
File: phys/sumethox.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 11 11 100.0%
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
70