| 1 | MODULE YOMVDOZ |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 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 | |
|---|
| 51 | REAL(KIND=JPRB) :: VDHJS(99) |
|---|
| 52 | REAL(KIND=JPRB) :: VDHJH(99) |
|---|
| 53 | REAL(KIND=JPRB) :: VDHNS(99) |
|---|
| 54 | REAL(KIND=JPRB) :: VDHNH(99) |
|---|
| 55 | REAL(KIND=JPRB) :: VDPJS(99) |
|---|
| 56 | REAL(KIND=JPRB) :: VDPJH(99) |
|---|
| 57 | REAL(KIND=JPRB) :: VDPNS(99) |
|---|
| 58 | REAL(KIND=JPRB) :: VDPNH(99) |
|---|
| 59 | REAL(KIND=JPRB) :: VDEJS(99) |
|---|
| 60 | REAL(KIND=JPRB) :: VDEJH(99) |
|---|
| 61 | REAL(KIND=JPRB) :: VDENS(99) |
|---|
| 62 | REAL(KIND=JPRB) :: VDENH(99) |
|---|
| 63 | REAL(KIND=JPRB) :: VDAJS(99) |
|---|
| 64 | REAL(KIND=JPRB) :: VDAJH(99) |
|---|
| 65 | REAL(KIND=JPRB) :: VDANS(99) |
|---|
| 66 | REAL(KIND=JPRB) :: VDANH(99) |
|---|
| 67 | REAL(KIND=JPRB) :: VDNJS(99) |
|---|
| 68 | REAL(KIND=JPRB) :: VDNJH(99) |
|---|
| 69 | REAL(KIND=JPRB) :: VDNNS(99) |
|---|
| 70 | REAL(KIND=JPRB) :: VDNNH(99) |
|---|
| 71 | REAL(KIND=JPRB) :: VOZNJ |
|---|
| 72 | REAL(KIND=JPRB) :: VOZHS |
|---|
| 73 | LOGICAL :: LRDIFOZ |
|---|
| 74 | LOGICAL :: 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) |
|---|
| 78 | END MODULE YOMVDOZ |
|---|
