source: LMDZ5/branches/testing/libf/phylmd/rrtm/yomslphy.F90 @ 3078

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

Merged trunk changes r1997:2055 into testing branch

  • 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: 1.0 KB
Line 
1MODULE YOMSLPHY
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10
11! * Variables for split ECMWF physics.
12
13! LSLPHY  : for split physics (one part at t-Dt, one part at t+Dt);
14!           can be used only at ECMWF with the ECMWF package.
15! RSLWX   : level of implicitness of semi-Lagrangian/physics.
16! NVTEND  : third dimension of SAVTEND (number of 3D fields).
17! SAVTEND : buffer to store the physical tendencies.
18
19LOGICAL :: LSLPHY
20REAL(KIND=JPRB)   , PARAMETER :: RSLWX=0.5_JPRB
21INTEGER(KIND=JPIM) :: NVTEND
22REAL(KIND=JPRB),ALLOCATABLE :: SAVTEND(:,:,:,:)
23! Pointers for SAVTEND
24INTEGER(KIND=JPIM) :: MU_SAVTEND,MV_SAVTEND,MT_SAVTEND,MSAT_SAVTEND
25INTEGER(KIND=JPIM) :: MU_SAVTEND_S,MV_SAVTEND_S,MT_SAVTEND_S,MSAT_SAVTEND_S
26INTEGER(KIND=JPIM) :: MSAVTEND_S
27
28!$OMP THREADPRIVATE(lslphy,msat_savtend,msat_savtend_s,msavtend_s,mt_savtend,mt_savtend_s)
29!$OMP THREADPRIVATE(mu_savtend,mu_savtend_s,mv_savtend,mv_savtend_s,nvtend)
30!$OMP THREADPRIVATE(savtend)
31END MODULE YOMSLPHY
Note: See TracBrowser for help on using the repository browser.