yoevdf.F90

Go to the documentation of this file.

MODULE yoevdf


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
!     ------------------------------------------------------------------

real_b :: rlam
real_b :: rkap
real_b :: rchar
real_b :: rvdifts
real_b :: rtfreez
real_b :: rz0ice
real_b :: repdu2
real_b :: repust
real_b :: rsez0h
real_b :: rsez0q
real_b :: rnum
real_b :: rnuh
real_b :: rnuq
real_b :: rentr
real_b :: rpar
real_b :: rpar1
real_b :: rparsrf
real_b :: rparzi
real_b :: rlamsk
LOGICAL lelwdd

!*     *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
!     FOR THE COMPUTATION OF VERTICAL DIFFUSION


!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89

!     OBUKHOV-L UPDATE     ACMB          26/03/90.   

!     NAME        TYPE     DESCRIPTION
!     ----        ----     -----------

!     *RLAM*      REAL     *ASYMPTOTIC MIXING LENGTH FOR MOMENTUM
!     *RKAP*      REAL     *VONKARMAN CONSTANT
!     *RCHAR*     REAL     *CHARNOCK CONSTANT
!     *RVDIFTS*   REAL     *FACTOR FOR TIME STEP WEIGHTING IN *VDF....*
!     *RTFREEZ*   REAL     *TEMPERATURE AT WHICH SEA STARTS
!                           MELTING/FREEZING
!     *RZ0ICE*    REAL     *ROUGHNESS OVER SEA ICE
!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER
!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER  
!     *REPUST*    REAL     *MINIMUM FRICTION VELOCITY (SECURITY PARAMETER)
!     *RSEZ0H*    REAL     *ROUGHNESS LENGTH FOR HEAT OVER ROUGH SEA   
!     *RSEZ0Q*    REAL     *ROUGHNESS LENGTH FOR MOISTURE OVER ROUGH SEA 
!     *RNUM*      REAL     *SMOOTH SURFACE CONSTANT IN Z0M=RNUM/U*    
!     *RNUH*      REAL     *SMOOTH SURFACE CONSTANT IN Z0H=RNUH/U*  
!     *RNUQ*      REAL     *SMOOTH SURFACE CONSTANT IN Z0Q=RNUQ/U*    
!     *RENTR*     REAL     *ENTRAINMENT CONSTANT          
!     *RPAR*      REAL     *PARAMETER FOR TEMPERATURE EXCESS IN THERMAL 
!                           AT BOUNDARY LAYER TOP      
!     *RPAR1*     REAL     *COEFFICIENT OF (W*)**3 IN WS         
!     *RPARSRF*   REAL     *DEPTH OF SURFACE LAYER AS FRACTION OF PBL-H 
!     *RPARZI*    REAL     *ANSATZ FOR PBL-H IN W* COMPUTATION  
!     *RLAMSK*    REAL     *SKIN LAYER THERMAL BULK CONDUCTIVITY (W/M2/K)
!     *LELWDD*    LOGICAL  *TRUE WHEN LONGWAVE DOWNWARD DERIVATIVE IS
!                           FOR SKIN TEMPERATURE  
!     ------------------------------------------------------------------
END MODULE yoevdf