source: LMDZ6/branches/IPSLCM6.0.14/libf/phymar/yoevdf.F90 @ 3511

Last change on this file since 3511 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.5 KB
Line 
1MODULE YOEVDF
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*    ** *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
12!     ------------------------------------------------------------------
13
14REAL_B :: RLAM
15REAL_B :: RKAP
16REAL_B :: RCHAR
17REAL_B :: RVDIFTS
18REAL_B :: RTFREEZ
19REAL_B :: RZ0ICE
20REAL_B :: REPDU2
21REAL_B :: REPUST
22REAL_B :: RSEZ0H
23REAL_B :: RSEZ0Q
24REAL_B :: RNUM
25REAL_B :: RNUH
26REAL_B :: RNUQ
27REAL_B :: RENTR
28REAL_B :: RPAR
29REAL_B :: RPAR1
30REAL_B :: RPARSRF
31REAL_B :: RPARZI
32REAL_B :: RLAMSK
33LOGICAL LELWDD
34
35!*     *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
36!     FOR THE COMPUTATION OF VERTICAL DIFFUSION
37
38
39!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89
40
41!     OBUKHOV-L UPDATE     ACMB          26/03/90.   
42
43!     NAME        TYPE     DESCRIPTION
44!     ----        ----     -----------
45
46!     *RLAM*      REAL     *ASYMPTOTIC MIXING LENGTH FOR MOMENTUM
47!     *RKAP*      REAL     *VONKARMAN CONSTANT
48!     *RCHAR*     REAL     *CHARNOCK CONSTANT
49!     *RVDIFTS*   REAL     *FACTOR FOR TIME STEP WEIGHTING IN *VDF....*
50!     *RTFREEZ*   REAL     *TEMPERATURE AT WHICH SEA STARTS
51!                           MELTING/FREEZING
52!     *RZ0ICE*    REAL     *ROUGHNESS OVER SEA ICE
53!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER
54!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER 
55!     *REPUST*    REAL     *MINIMUM FRICTION VELOCITY (SECURITY PARAMETER)
56!     *RSEZ0H*    REAL     *ROUGHNESS LENGTH FOR HEAT OVER ROUGH SEA   
57!     *RSEZ0Q*    REAL     *ROUGHNESS LENGTH FOR MOISTURE OVER ROUGH SEA
58!     *RNUM*      REAL     *SMOOTH SURFACE CONSTANT IN Z0M=RNUM/U*   
59!     *RNUH*      REAL     *SMOOTH SURFACE CONSTANT IN Z0H=RNUH/U* 
60!     *RNUQ*      REAL     *SMOOTH SURFACE CONSTANT IN Z0Q=RNUQ/U*   
61!     *RENTR*     REAL     *ENTRAINMENT CONSTANT         
62!     *RPAR*      REAL     *PARAMETER FOR TEMPERATURE EXCESS IN THERMAL
63!                           AT BOUNDARY LAYER TOP     
64!     *RPAR1*     REAL     *COEFFICIENT OF (W*)**3 IN WS         
65!     *RPARSRF*   REAL     *DEPTH OF SURFACE LAYER AS FRACTION OF PBL-H
66!     *RPARZI*    REAL     *ANSATZ FOR PBL-H IN W* COMPUTATION 
67!     *RLAMSK*    REAL     *SKIN LAYER THERMAL BULK CONDUCTIVITY (W/M2/K)
68!     *LELWDD*    LOGICAL  *TRUE WHEN LONGWAVE DOWNWARD DERIVATIVE IS
69!                           FOR SKIN TEMPERATURE 
70!     ------------------------------------------------------------------
71END MODULE YOEVDF
Note: See TracBrowser for help on using the repository browser.