source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomvdoz.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: 3.1 KB
Line 
1MODULE YOMVDOZ
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9! --------------------------------------------------------------------
10!            L'OBJET DE CE  EST DE FOURNIR
11!   LES VITESSES DE DEPOT DE L'OZONE.
12
13! ELLES SERONT UTILISEES DANS LA SUBROUTINE ACDIFOZ
14! CES VITESSES DE DEPOT DEPENDENT DES CLASSES DE VEGETATION,
15! DE L'OCCURENCE NUIT-JOUR, DE L'OCCURENCE SEC-HUMIDE
16! ET DE LA SAISON.
17
18!   ===== SIGNIFICATION DES NOMS DES VARIABLES ======
19
20! VDHJS : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UN JOUR SEC
21! VDHJH : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UN JOUR HUMIDE
22! VDHNS : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UNE NUIT SECHE
23! VDHNH : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UNE NUIT HUMIDE
24! VDPJS : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UN JOUR SEC
25! VDPJH : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UN JOUR HUMIDE
26! VDPNS : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UNE NUIT SECHE
27! VDPNH : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UNE NUIT HUMIDE
28! VDEJS : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UN JOUR SEC
29! VDEJH : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UN JOUR HUMIDE
30! VDENS : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UNE NUIT SECHE
31! VDENH : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UNE NUIT HUMIDE
32! VDAJS : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UN JOUR SEC
33! VDAJH : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UN JOUR HUMIDE
34! VDANS : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UNE NUIT SECHE
35! VDANH : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UNE NUIT HUMIDE
36! VDNJS : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UN JOUR SEC
37! VDNJH : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UN JOUR HUMIDE
38! VDNNS : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UNE NUIT SECHE
39! VDNNH : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UNE NUIT HUMIDE
40
41! VOZNJ : SEUIL NUIT/JOUR  (EN W/M2 : SEUIL DU FLUX SOLAIRE A NFLEVG)
42! VOZHS : SEUIL HUMIDE/SEC (EN kg/m2/s : SEUIL DE LA PLUIE TOTALE)
43
44! LRDIFOZ : POUR ACTIVER LE SCHEMA DE DIFUSION SEULE DE L'OZONE
45! LRDEPOZ : POUR ACTIVER LE SCHEMA DE DIFFUSION+DEPOSITION DE L'OZONE
46
47!  DECLARATION DE LA TAILLE DES TABLEAUX
48!  CETTE TAILLE A ETE ELARGIE, EN FAIT LA DIMENSION DES TABLEAUX
49!  EST LE NOMBRE DE CLASSES DE VEGETATION.
50
51REAL(KIND=JPRB) :: VDHJS(99)
52REAL(KIND=JPRB) :: VDHJH(99)
53REAL(KIND=JPRB) :: VDHNS(99)
54REAL(KIND=JPRB) :: VDHNH(99)
55REAL(KIND=JPRB) :: VDPJS(99)
56REAL(KIND=JPRB) :: VDPJH(99)
57REAL(KIND=JPRB) :: VDPNS(99)
58REAL(KIND=JPRB) :: VDPNH(99)
59REAL(KIND=JPRB) :: VDEJS(99)
60REAL(KIND=JPRB) :: VDEJH(99)
61REAL(KIND=JPRB) :: VDENS(99)
62REAL(KIND=JPRB) :: VDENH(99)
63REAL(KIND=JPRB) :: VDAJS(99)
64REAL(KIND=JPRB) :: VDAJH(99)
65REAL(KIND=JPRB) :: VDANS(99)
66REAL(KIND=JPRB) :: VDANH(99)
67REAL(KIND=JPRB) :: VDNJS(99)
68REAL(KIND=JPRB) :: VDNJH(99)
69REAL(KIND=JPRB) :: VDNNS(99)
70REAL(KIND=JPRB) :: VDNNH(99)
71REAL(KIND=JPRB) :: VOZNJ
72REAL(KIND=JPRB) :: VOZHS
73LOGICAL :: LRDIFOZ
74LOGICAL :: LRDEPOZ
75!   ---------------------------------------------------------------------
76!$OMP THREADPRIVATE(lrdepoz,lrdifoz,vdajh,vdajs,vdanh,vdans,vdejh,vdejs,vdenh,vdens,vdhjh,vdhjs)
77!$OMP THREADPRIVATE(vdhnh,vdhns,vdnjh,vdnjs,vdnnh,vdnns,vdpjh,vdpjs,vdpnh,vdpns,vozhs,voznj)
78END MODULE YOMVDOZ
Note: See TracBrowser for help on using the repository browser.