source: LMDZ6/branches/Amaury_dev/libf/phylmd/sumethox.F90 @ 5119

Last change on this file since 5119 was 5101, checked in by abarral, 4 months ago

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]
File size: 1.5 KB
Line 
1SUBROUTINE 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
47USE YOEMETH   , ONLY: RALPHA1 ,RALPHA2  ,RQLIM   ,&
48   RPBOTOX,  RPBOTPH ,RPTOPOX  ,RPTOPPH ,&
49   RALPHA3,  RLOGPPH
50
51!*       1.    SET VALUES
52!              ----------
53
54IMPLICIT NONE
55RALPHA1=(19.*LOG(10.))/(LOG(20.)**4)
56RALPHA2=LOG(1.0/3.+0.01)
57RQLIM=4.25E-6
58RPBOTOX=10000.
59RPBOTPH=20.
60RPTOPOX=50.
61RPTOPPH=0.1
62RALPHA3=0.5*(LOG(100.)+RALPHA2)
63RLOGPPH=LOG(RPTOPPH/RPBOTPH)
64
65!     -----------------------------------------------------------------
66
67END SUBROUTINE SUMETHOX
68
69
Note: See TracBrowser for help on using the repository browser.