source: LMDZ6/trunk/libf/phylmd/rrtm/yoe_tile_prop.F90

Last change on this file was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP

OpenMP modifications
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 803 bytes
Line 
1MODULE YOE_TILE_PROP
2
3USE PARKIND1  ,ONLY : JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!       ----------------------------------------------------------------
10!PSEUDO HISTORICAL TESSEL QUANTITIES (INSTANTANEOUS) FOR EACH TILE
11
12!     M.Hamrud      E.C.M.W.F.    20 Apr 2005
13!     Moved out these arrays from GPPBUF     
14!       ----------------------------------------------------------------
15REAL(KIND=JPRB),ALLOCATABLE :: RUSTRTI(:,:,:) ! E-W  SURFACE STRESS
16REAL(KIND=JPRB),ALLOCATABLE :: RVSTRTI(:,:,:) ! N-S  SURFACE STRESS
17REAL(KIND=JPRB),ALLOCATABLE :: RAHFSTI(:,:,:) ! SURFACE SENSIBLE HEAT FLUX
18REAL(KIND=JPRB),ALLOCATABLE :: REVAPTI(:,:,:) ! EVAPORATION
19REAL(KIND=JPRB),ALLOCATABLE :: RTSKTI (:,:,:) ! SKIN TEMPERATURE
20
21!$OMP THREADPRIVATE(rahfsti,revapti,rtskti,rustrti,rvstrti)
22END MODULE YOE_TILE_PROP
Note: See TracBrowser for help on using the repository browser.