source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomscm.F90 @ 3847

Last change on this file since 3847 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: 1.9 KB
Line 
1MODULE YOMSCM
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!-------------------------------------------------
10! SCM: extraction of Single Column Model profiles from 3D model.
11!-------------------------------------------------
12
13! NFRSCM
14! NSCMTS
15
16! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
17! NSCM_SPACE_S = 0: choose profiles close to the location
18!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
19! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
20! NSCM_SPACE_S = 10: choose profiles depending on physical output,
21! for example precipitating profiles.
22!-------------------------------------------------
23
24! NSCM_SPACE_S: kind of space sampling.
25
26! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
27! NSCM_SPACE_S = 0: choose profiles close to the location
28!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
29! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
30! NSCM_SPACE_S = 10: choose profiles depending on physical output,
31! for example precipitating profiles.
32!-------------------------------------------------
33! GSCM_LON1: longitude in rad [-pi,pi].
34! GSCM_LON2: longitude in rad [-pi,pi].
35! GSCM_LAT1: latitude  in rad [-pi/2,pi/2].
36! GSCM_LAT2: latitude  in rad [-pi/2,pi/2].
37!-------------------------------------------------
38! GSCM_RADIUS: search radius in meters (case NSCM_SPACE_S = 0).
39!-------------------------------------------------
40
41LOGICAL :: LGSCM
42INTEGER(KIND=JPIM) :: NFRSCM
43INTEGER(KIND=JPIM), PARAMETER :: JPNPST=240
44INTEGER(KIND=JPIM) :: NSCMTS(0:JPNPST)
45INTEGER(KIND=JPIM) :: NSCM_SPACE_S
46REAL(KIND=JPRB) :: GSCM_LON1
47REAL(KIND=JPRB) :: GSCM_LON2
48REAL(KIND=JPRB) :: GSCM_LAT1
49REAL(KIND=JPRB) :: GSCM_LAT2
50REAL(KIND=JPRB) :: GSCM_RADIUS
51INTEGER(KIND=JPIM) :: NSCM_ADD_SAMPL
52
53!$OMP THREADPRIVATE(gscm_lat1,gscm_lat2,gscm_lon1,gscm_lon2,gscm_radius,lgscm,nfrscm,nscm_add_sampl,nscm_space_s,nscmts)
54END MODULE YOMSCM
Note: See TracBrowser for help on using the repository browser.