yoe_tile_prop.F90

Go to the documentation of this file.

MODULE yoe_tile_prop

USE parkind1  ,ONLY : jprb

IMPLICIT NONE

SAVE

!       ----------------------------------------------------------------
!PSEUDO HISTORICAL TESSEL QUANTITIES (INSTANTANEOUS) FOR EACH TILE

!     M.Hamrud      E.C.M.W.F.    20 Apr 2005
!     Moved out these arrays from GPPBUF     
!       ----------------------------------------------------------------
REAL(KIND=JPRB),ALLOCATABLE :: rustrti(:,:,:) ! E-W  SURFACE STRESS 
REAL(KIND=JPRB),ALLOCATABLE :: rvstrti(:,:,:) ! N-S  SURFACE STRESS 
REAL(KIND=JPRB),ALLOCATABLE :: rahfsti(:,:,:) ! SURFACE SENSIBLE HEAT FLUX
REAL(KIND=JPRB),ALLOCATABLE :: revapti(:,:,:) ! EVAPORATION 
REAL(KIND=JPRB),ALLOCATABLE :: rtskti (:,:,:) ! SKIN TEMPERATURE 

!$OMP THREADPRIVATE(rahfsti,revapti,rtskti,rustrti,rvstrti)
END MODULE yoe_tile_prop