yoecnd.F90

Go to the documentation of this file.

MODULE yoecnd

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     -----------------------------------------------------------------
REAL(KIND=JPRB),ALLOCATABLE:: cevapcu(:)

REAL(KIND=JPRB) :: repflm
REAL(KIND=JPRB) :: repfls
REAL(KIND=JPRB) :: repqmi

!     -----------------------------------------------------------------
!*    CONTROL PARAMETERS FOR MOIST PROCESSES

! CEVAPCU(NFLEVG):
! REPFLM :  Minimum flux to avoid zero division in ice proportion
!           computations
! REPFLS :  Square-root of previous flux
! REPQMI :  Minimum specific humidity (security within QNEGAT)
!     -----------------------------------------------------------------

!$OMP THREADPRIVATE(repflm,repfls,repqmi)

!$OMP THREADPRIVATE(cevapcu)

END MODULE yoecnd