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 |
|
|
|