| 1 | MODULE YOMTDDH |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! TABLEAUX DE CUMUL DES DIAGNOSTICS DDH |
|---|
| 10 | |
|---|
| 11 | ! REAL HDCVB0 (NDHCV*(NFLEVG+1),NDHIDH) |
|---|
| 12 | ! REAL HDCVB1 (NDHCV*(NFLEVG+1),NDHIDH) |
|---|
| 13 | ! REAL HDCS0 (NDHCS,NDHIDH) |
|---|
| 14 | ! REAL HDCS1 (NDHCS,NDHIDH) |
|---|
| 15 | |
|---|
| 16 | REAL(KIND=JPRB),ALLOCATABLE:: HDCVB0(:,:,:) |
|---|
| 17 | REAL(KIND=JPRB),ALLOCATABLE:: HDCVB1(:,:,:) |
|---|
| 18 | REAL(KIND=JPRB),ALLOCATABLE:: HDCS0(:,:,:) |
|---|
| 19 | REAL(KIND=JPRB),ALLOCATABLE:: HDCS1(:,:,:) |
|---|
| 20 | |
|---|
| 21 | ! ARRAY TO SAVE INITIAL VALUES FOR FREE STYLE VARIABLES |
|---|
| 22 | |
|---|
| 23 | REAL(KIND=JPRB),ALLOCATABLE:: PDDHFSVI(:) |
|---|
| 24 | |
|---|
| 25 | ! POINTEURS |
|---|
| 26 | |
|---|
| 27 | ! TABLEAUX DE CUMUL DES DIAGNOSTICS DDH |
|---|
| 28 | ! -------------------------------------- |
|---|
| 29 | |
|---|
| 30 | ! DHCV. : TABLEAUX DE CUMULS DES VARIABLES/FLUX EN PROFILS VERTICAUX |
|---|
| 31 | ! DHCVB.: TABLEAUX DE CUMULS PAR VARIABLES/FLUX NON DECOUPES EN NIVEAUX |
|---|
| 32 | ! DHCS. : TABLEAUX DE CUMULS DES VARIABLES/FLUX AU SOL |
|---|
| 33 | |
|---|
| 34 | ! ORGANISATION DES TABLEAUX: |
|---|
| 35 | ! CHAMPS ATMOSPHERIQUES |
|---|
| 36 | ! TABLEAUX ---0 : VARIABLES INITIALES |
|---|
| 37 | ! TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES |
|---|
| 38 | ! TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1 |
|---|
| 39 | ! TABLEAUX ---1 : CUMULS JUSQU A NSTEP |
|---|
| 40 | ! 1 A NDHVV: VARIABLES DU MODELE |
|---|
| 41 | ! NDHVV+1 A NDHVV+NDHAVD: TENDANCES DYNAMIQUES |
|---|
| 42 | ! NDHVV+NDHAVD+1 A NDHVV+NDHFVD: FLUX DYNAMIQUES |
|---|
| 43 | ! NDHVV+NDHFVD+1 A NDHVV+NDHFVD+NDHAVP: FLUX PHYSIQUES |
|---|
| 44 | ! NDHVV+NDHFVD+NDHAVP+1 A NDHCV: TENDANCES PHYSIQUES |
|---|
| 45 | ! CHAMPS SOL |
|---|
| 46 | ! TABLEAUX ---0 : VARIABLES INITIALES |
|---|
| 47 | ! TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES |
|---|
| 48 | ! TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1 |
|---|
| 49 | ! TABLEAUX ---1 : CUMULS JUSQU A NSTEP |
|---|
| 50 | ! 1 A NDHVS: VARIABLES DU MODELE |
|---|
| 51 | ! NDHVS+1 A NDHVS+NDHVFS: FREE-STYLE VARIABLES |
|---|
| 52 | ! NDHVS+NDHVFS+1 A NDHVS+NDHVFS+NDHFSD: CUMULS DYNAMIQUES |
|---|
| 53 | ! NDHVS+NDHVFS+NDHFSD+1 A |
|---|
| 54 | ! NDHVS+NDHVFS+NDHFSD+NDHFSP: CUMULS PHYSIQUES |
|---|
| 55 | ! NDHVS+NDHVFS+NDHFSD+NDHFSP+1 A |
|---|
| 56 | ! NDHVS+NDHVFS+NDHFSD+NDHFSP+NDHFFS=NDHCS: FREE-STYLE FLUXES |
|---|
| 57 | |
|---|
| 58 | ! LA VALEUR D UN CHAMP AU NIVEAU JLEV = 0 N A DE SENS QUE POUR LES |
|---|
| 59 | ! FLUX. POUR LES TENDANCES ET VARIABLES, CETTE VALEUR EST NULLE |
|---|
| 60 | |
|---|
| 61 | ! CONTENU DES TABLEAUX |
|---|
| 62 | ! -------------------- |
|---|
| 63 | |
|---|
| 64 | !* 1. PROFILS VERTICAUX |
|---|
| 65 | |
|---|
| 66 | !* 1.1 VARIABLES |
|---|
| 67 | |
|---|
| 68 | ! SI LHDHKS (DEBUT A L'INDICE 1) |
|---|
| 69 | ! 1-VPP - MASSE D'AIR |
|---|
| 70 | ! 2-VQV - MASSE DE VAPEUR D'EAU QV |
|---|
| 71 | ! 3-VUU - QUANTITE DE MOUVEMENT ZONALE UZ |
|---|
| 72 | ! 4-VVV - QUANTITE DE MOUVEMENT MERIDIENNE VM |
|---|
| 73 | ! 5-VKK - ENERGIE CINETIQUE KENE |
|---|
| 74 | ! 6-VCT - ENTHALPIE CP*T |
|---|
| 75 | ! 7-VEP - ENERGIE POTENTIELLE PHI |
|---|
| 76 | ! 8-VHR - HUMIDITE RELATIVE |
|---|
| 77 | ! 9-VQL - MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.) |
|---|
| 78 | ! 10-VQN - MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.) |
|---|
| 79 | ! 9+NHDQLNVA-V01 - VARIABLE PASSIVE NUMERO 01 (SI LHDPAS=.TRUE.) |
|---|
| 80 | ! ... |
|---|
| 81 | ! 9+NHDQLNVA+NHDPASVA-1-Vxx - VARIABLE PASSIVE NUMERO xx=NHDPASVA (SI LHDPAS=.TRUE.) |
|---|
| 82 | ! 9+NHDQLNVA+NHDPASVA-VNT - NEBULOSITE TOTALE |
|---|
| 83 | ! 10+NHDQLNVA+NHDPASVA-VOM - VITESSE VERTICALE EN COORDONNEE PRESSION |
|---|
| 84 | ! SI LHDMCI (DEBUT A L'INDICE NDHVHK+1) |
|---|
| 85 | ! 1-VA1 - MOMENT ANGULAIRE A1 |
|---|
| 86 | ! 2-VA2 - MOMENT ANGULAIRE A2 |
|---|
| 87 | ! 3-VA3 - MOMENT ANGULAIRE A3 |
|---|
| 88 | ! SI LHDENT (DEBUT A L'INDICE NDHVHK+NDHVMC+1) |
|---|
| 89 | ! 1-VSS - ENTROPIE: S |
|---|
| 90 | |
|---|
| 91 | !* 1.2 TENDANCES DYNAMIQUES |
|---|
| 92 | |
|---|
| 93 | ! SI LHDHKS (DEBUT A L'INDICE NDHVV+1) |
|---|
| 94 | ! 1-TPPDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'AIR |
|---|
| 95 | ! 2-TQVDIVFLUHOR - DIV. FLUX HORIZONTAL DE VAPEUR D'EAU |
|---|
| 96 | ! 3-TUUDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT ZONALE (CALCUL PARTIEL) |
|---|
| 97 | ! 4-TVVDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT MERIDIENNE (PARTIEL) |
|---|
| 98 | ! 5-TUUFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE MERIDIENNE |
|---|
| 99 | ! 6-TVVFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE ZONALE |
|---|
| 100 | ! 7-TKKDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE CINETIQUE |
|---|
| 101 | ! 8-TKKCONVERSI1 - TRAVAIL DES FORCES DE PRESSION |
|---|
| 102 | ! 9-TCTDIVFLUHOR - DIV. FLUX HORIZONTAL ENTHALPIE |
|---|
| 103 | ! 10-TCTCONVERSI2 - CONVERSION D'ENERGIE INTERNE |
|---|
| 104 | ! 11-TCTCONVERSI3 - CONVERSION D'ENERGIE INTERNE INDUITE PAR LES PRECIPITATIONS |
|---|
| 105 | ! 12-TEPDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE POTENTIELLE |
|---|
| 106 | ! 13-PPP - MASSE D'AIR: CUMUL TEMPOREL |
|---|
| 107 | ! 14-TQLDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.) |
|---|
| 108 | ! 15-TQNDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.) |
|---|
| 109 | ! SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAHKD+1) |
|---|
| 110 | ! 1-TA1DIVFLUHOR - MOMENT ANGULAIRE A1: DIV. FLUX HORIZONTAL |
|---|
| 111 | ! 2-TA2DIVFLUHOR - MOMENT ANGULAIRE A2: DIV. FLUX HORIZONTAL |
|---|
| 112 | ! 3-TA3DIVFLUHOR - MOMENT ANGULAIRE A3: DIV. FLUX HORIZONTAL |
|---|
| 113 | ! 4-TA1ADJUST - MOMENT ANGULAIRE A1: TERME D'AJUSTEMENT |
|---|
| 114 | ! 5-TA2ADJUST - MOMENT ANGULAIRE A2: TERME D'AJUSTEMENT |
|---|
| 115 | ! 6-TA3ADJUST - MOMENT ANGULAIRE A3: TERME D'AJUSTEMENT |
|---|
| 116 | ! 7-TA1NONAX - MOMENT ANGULAIRE A1: MOMENT NON AXIAL |
|---|
| 117 | ! 8-TA2NONAX - MOMENT ANGULAIRE A2: MOMENT NON AXIAL |
|---|
| 118 | ! SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAHKD+NDHAMCD+1) |
|---|
| 119 | ! 1-TSSDIVFLUHOR - ENTROPIE: DIV. FLUX HORIZONTAL |
|---|
| 120 | ! 2-TSSPRECICT - ENTROPIE: EFFET PRECIPITATIONS SUR ENTHALPIE |
|---|
| 121 | |
|---|
| 122 | !* 1.3 FLUX DYNAMIQUES |
|---|
| 123 | |
|---|
| 124 | ! SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHAVD+1) |
|---|
| 125 | ! 1-FPPFLUVERTDYN- VERTICAL DE MASSE D'AIR |
|---|
| 126 | ! 2-FQVFLUVERTDYN- VERTICAL DE VAPEUR D'EAU |
|---|
| 127 | ! 3-FUUFLUVERTDYN- VERTICAL DE QTE DE MVT ZONALE |
|---|
| 128 | ! 4-FVVFLUVERTDYN- VERTICAL DE QTE DE MVT MERIDIENNE |
|---|
| 129 | ! 5-FUUFLUDUAPLUI- QTE DE MVT ZONALE TRANSPORTEE PAR PRECIPITATIONS |
|---|
| 130 | ! 6-FVVFLUDUAPLUI- QTE DE MVT MERIDIENNE TRANSPORTEE PAR PRECIPITATIONS |
|---|
| 131 | ! 7-FKKFLUVERTDYN- VERTICAL D'ENERGIE CINETIQUE |
|---|
| 132 | ! 8-FKKFLUDUAPLUI- ENERGIE CINETIQUE TRANSPORTEE PAR PRECIPITATIONS |
|---|
| 133 | ! 9-FCTFLUVERTDYN- VERTICAL D'ENTHALPIE |
|---|
| 134 | ! 10-FEPCONVERSIFL- PSEUDO VERTICAL D'ENERGIE POTENTIELLE |
|---|
| 135 | ! 11-FQLFLUVERTDYN- VERTICAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.) |
|---|
| 136 | ! 12-FQNFLUVERTDYN- VERTICAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.) |
|---|
| 137 | ! SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+1) |
|---|
| 138 | ! 1-FA1FLUVERTDYN- MOMENT ANGULAIRE A1: FLUX VERTICAL DYNAMIQUE |
|---|
| 139 | ! 2-FA2FLUVERTDYN- MOMENT ANGULAIRE A2: FLUX VERTICAL DYNAMIQUE |
|---|
| 140 | ! 3-FA3FLUVERTDYN- MOMENT ANGULAIRE A3: FLUX VERTICAL DYNAMIQUE |
|---|
| 141 | ! 4-FA1GRAV - MOMENT ANGULAIRE A1: FORCE DE GRAVITE |
|---|
| 142 | ! 5-FA2GRAV - MOMENT ANGULAIRE A2: FORCE DE GRAVITE |
|---|
| 143 | ! 6-FA3GRAV - MOMENT ANGULAIRE A3: FORCE DE GRAVITE |
|---|
| 144 | ! 7-FA1FLUDUAPLUI- MOMENT ANGULAIRE A1: FLUX DU AUX PRECIPITATIONS (NDPSFI=1) |
|---|
| 145 | ! 8-FA2FLUDUAPLUI- MOMENT ANGULAIRE A2: FLUX DU AUX PRECIPITATIONS (NDPSFI=1) |
|---|
| 146 | ! 9-FA3FLUDUAPLUI- MOMENT ANGULAIRE A3: FLUX DU AUX PRECIPITATIONS (NDPSFI=1) |
|---|
| 147 | ! SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+NDHBMCD+1) |
|---|
| 148 | ! 1-FSSFLUVERTDYN- ENTROPIE: FLUX VERTICAL DYNAMIQUE |
|---|
| 149 | ! 2-FSSPRECISS - ENTROPIE: EFFET DIRECT DES PRECIPITATIONS |
|---|
| 150 | |
|---|
| 151 | !* 1.4 FLUX PHYSIQUES |
|---|
| 152 | |
|---|
| 153 | ! SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+1) |
|---|
| 154 | ! 1-FPPSUMFPL - TOTAL DE PRECIPITATION, PERTE DE MASSE D'AIR |
|---|
| 155 | ! 2-FQVTUR - TURBULENT DE VAPEUR D'EAU |
|---|
| 156 | ! 3-FQVTURCONV - TURBULENT DE VAPEUR D'EAU DU A LA CONVECTION |
|---|
| 157 | ! 4-FQVPRECISTL - DE PRECIPITATION STRATIFORME LIQUIDE |
|---|
| 158 | ! 5-FQVPRECISTN - DE PRECIPITATION STRATIFORME NEIGEUSE |
|---|
| 159 | ! 6-FQVPRECICOL - DE PRECIPITATION CONVECTIVE LIQUIDE |
|---|
| 160 | ! 7-FQVPRECICON - DE PRECIPITATION CONVECTIVE NEIGEUSE |
|---|
| 161 | ! 8-FQVTURQNEGAT - DE VAPEUR D'EAU COMPENSANT LES VALEURS < 0 |
|---|
| 162 | ! 9-FUUTUR - TURBULENT DE QTE DE MVT ZONALE |
|---|
| 163 | ! 10-FVVTUR - TURBULENT DE QTE DE MVT MERIDIENNE |
|---|
| 164 | ! 11-FUUTURCONV - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION |
|---|
| 165 | ! 12-FVVTURCONV - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION |
|---|
| 166 | ! 13-FUUONDEGREL - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES |
|---|
| 167 | ! 14-FUUONDEGREL - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES |
|---|
| 168 | ! 15-FCTTUR - TURBULENT SEC D'ENTHALPIE |
|---|
| 169 | ! 16-FCTTURCONV - TURBULENT CONVECTIF D'ENTHALPIE |
|---|
| 170 | ! 17-FCTRAYSOL1 - DE RAYONNEMENT SOLAIRE |
|---|
| 171 | ! 18-FCTRAYTER1 - DE RAYONNEMENT THERMIQUE |
|---|
| 172 | ! 19-FCTPRECISTL - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES |
|---|
| 173 | ! 20-FCTPRECISTN - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES |
|---|
| 174 | ! 21-FCTPRECICOL - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES |
|---|
| 175 | ! 22-FCTPRECICON - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES |
|---|
| 176 | ! 23-FCTPRECCSCOL - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES |
|---|
| 177 | ! 24-FCTPRECCSCON - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES |
|---|
| 178 | ! 25-FCTPRECCSSTL - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES |
|---|
| 179 | ! 26-FCTPRECCSSTN - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES |
|---|
| 180 | ! 27-FQLTUR - TURBULENT D'EAU LIQUIDE (SI LHDQLN=.TRUE.) |
|---|
| 181 | ! 28-FQNTUR - TURBULENT D'EAU NEIGEUSE (SI LHDQLN=.TRUE.) |
|---|
| 182 | ! 29-FQLTURCONV - TURBULENT D'EAU LIQUIDE DU A LA CONVECTION (SI LHDQLN=.TRUE.) |
|---|
| 183 | ! 30-FQNTURCONV - TURBULENT D'EAU NEIGEUSE DU A LA CONVECTION (SI LHDQLN=.TRUE.) |
|---|
| 184 | ! 31-FQLTURQNEGAT - D'EAU LIQUIDE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.) |
|---|
| 185 | ! 32-FQNTURQNEGAT - D'EAU NEIGEUSE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.) |
|---|
| 186 | ! 33-FQTCONDECOL - DE CONDENSATION CONVECTIVE LIQUIDE (SI LHDQLN=.TRUE.) |
|---|
| 187 | ! 34-FQTCONDECON - DE CONDENSATION CONVECTIVE NEIGEUSE (SI LHDQLN=.TRUE.) |
|---|
| 188 | ! 35-FQTCONDESTL - DE CONDENSATION STRATIFORME LIQUIDE (SI LHDQLN=.TRUE.) |
|---|
| 189 | ! 36-FQTCONDESTN - DE CONDENSATION STRATIFORME NEIGEUSE (SI LHDQLN=.TRUE.) |
|---|
| 190 | ! SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+1) |
|---|
| 191 | ! 1-FA1TUR - MOMENT ANGULAIRE A1: DIFFUSION VERTICALE |
|---|
| 192 | ! 2-FA2TUR - MOMENT ANGULAIRE A2: DIFFUSION VERTICALE |
|---|
| 193 | ! 3-FA3TUR - MOMENT ANGULAIRE A3: DIFFUSION VERTICALE |
|---|
| 194 | ! 4-FA1TURCONV - MOMENT ANGULAIRE A1: PROCESSUS CONVECTIFS TURBULENTS |
|---|
| 195 | ! 5-FA2TURCONV - MOMENT ANGULAIRE A2: PROCESSUS CONVECTIFS TURBULENTS |
|---|
| 196 | ! 6-FA3TURCONV - MOMENT ANGULAIRE A3: PROCESSUS CONVECTIFS TURBULENTS |
|---|
| 197 | ! 7-FA1ONDEGREL - MOMENT ANGULAIRE A1: ONDES DE GRAVITE OROGRAPHIQUES |
|---|
| 198 | ! 8-FA2ONDEGREL - MOMENT ANGULAIRE A2: ONDES DE GRAVITE OROGRAPHIQUES |
|---|
| 199 | ! 9-FA3ONDEGREL - MOMENT ANGULAIRE A3: ONDES DE GRAVITE OROGRAPHIQUES |
|---|
| 200 | ! SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+NDHAMCP+1) |
|---|
| 201 | |
|---|
| 202 | !* 1.5 TENDANCES PHYSIQUES |
|---|
| 203 | |
|---|
| 204 | ! SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+1) |
|---|
| 205 | ! 1-TKKDISSIPTUR - DISSIPATION DUE A LA TURBULENCE SECHE |
|---|
| 206 | ! 2-TKKDISSIPCONV- DISSIPATION DUE A LA CONVECTION |
|---|
| 207 | ! 3-TKKDISSIPGREL- DISSIPATION DUE AUX ONDES DE GRAVITE INDUITES PAR LE RELIEF |
|---|
| 208 | ! 4-TQVFORMPSTL - FORMATION DE PLUIE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 209 | ! 5-TCTFORMPSTL - VARIATION D'ENTHALPIE FORMATION PLUIE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 210 | ! 6-TQVEVAPPSTL - EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 211 | ! 7-TCTEVAPPSTL - VARIATION D'ENTHALPIE EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 212 | ! 8-TQVFORMPSTN - FORMATION DE NEIGE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 213 | ! 9-TCTFORMPSTN - VARIATION D'ENTHALPIE FORMATION NEIGE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 214 | ! 10-TQVEVAPPSTN - EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 215 | ! 11-TCTEVAPPSTN - VARIATION D'ENTHALPIE EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 216 | ! 12-TQVFONTPST - FONTE DE NEIGE EN PLUIE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 217 | ! 13-TCTFONTPST - VARIATION D'ENTHALPIE FONTE DE NEIGE STRATIFORME (SI LHDADD=.TRUE.) |
|---|
| 218 | ! 14-TQVFORMPCOL - FORMATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 219 | ! 15-TCTFORMPCOL - VARIATION D'ENTHALPIE FORMATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 220 | ! 16-TQVEVAPPCOL - EVAPORATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 221 | ! 17-TCTEVAPPCOL - VARIATION D'ENTHALPIE EVAPORATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 222 | ! 18-TQVFORMPCON - FORMATION DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 223 | ! 19-TCTFORMPCON - VARIATION D'ENTHALPIE FORMATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 224 | ! 20-TQVEVAPPCON - EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 225 | ! 21-TCTEVAPPCON - VARIATION D'ENTHALPIE EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 226 | ! 22-TQVFONTPCO - FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 227 | ! 23-TCTFONTPCO - VARIATION D'ENTHALPIE FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.) |
|---|
| 228 | ! SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+1) |
|---|
| 229 | ! SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+NDHBMCP+1) |
|---|
| 230 | ! 1-TSSDISSIPTUR - ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS SECS |
|---|
| 231 | ! TURBULENT DISSIPATION OF ENERGY |
|---|
| 232 | ! 2-TSSDISSIPCONV- ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS CONVECTIFS |
|---|
| 233 | ! CONVECTIVE DISSIPATION OF ENERGY |
|---|
| 234 | ! 3-TSSDISSIPGREL- ENTROPIE: DISSIPATION DUE AUX ONDES DE RELIEF |
|---|
| 235 | ! GRAVITY WAVE DRAG DISSIP. OF ENERGY |
|---|
| 236 | ! 4-TSSTURQVTOT - ENTROPIE: PROCESSUS TURBULENTS SUR LA VAPEUR D'EAU |
|---|
| 237 | ! DIFFUSION OF HUMIDITY |
|---|
| 238 | ! 5-TSSRAY1 - ENTROPIE: EFFET DU RAYONNEMENT |
|---|
| 239 | ! RADIATION |
|---|
| 240 | ! 6-TSSTURCTTOT - ENTROPIE: PROCESSUS TURBULENTS SUR L'ENTHALPIE |
|---|
| 241 | ! DIFFUSION OF ENTHALPY |
|---|
| 242 | |
|---|
| 243 | !* 2. VARIABLES AU SOL |
|---|
| 244 | |
|---|
| 245 | !* 2.1 VARIABLES |
|---|
| 246 | ! SUR LES POINTS TERRE UNIQUEMENT |
|---|
| 247 | |
|---|
| 248 | ! SI LHDHKS |
|---|
| 249 | ! 1-S V - SURFACE DE TERRE DU DOMAINE (MOYENNE PONDEREE DES PITM) |
|---|
| 250 | ! 2-S V - ENERGIE COUCHE SURFACE |
|---|
| 251 | ! 3-S V - ENERGIE COUCHE PROFONDE |
|---|
| 252 | ! 4-S V - HAUTEUR D'EAU COUCHE SURFACE |
|---|
| 253 | ! 5-S V - HAUTEUR D'EAU COUCHE PROFONDE |
|---|
| 254 | ! 6-S V - HAUTEUR DE NEIGE COUCHE SURFACE |
|---|
| 255 | ! SI LHDMCI |
|---|
| 256 | ! SI LHDENT |
|---|
| 257 | |
|---|
| 258 | !* 2.1a FREE-STYLE VARIABLES |
|---|
| 259 | ! (NOTE: VALID OVER LAND AND SEA) |
|---|
| 260 | |
|---|
| 261 | ! IF LHDHKS.AND.LECMWF |
|---|
| 262 | ! 1-SVGFS - 2-METRE TEMPERATURE |
|---|
| 263 | ! 2-SVGFS - 2-METRE DEWPOINT |
|---|
| 264 | ! 3-SVGFS - 10-METRE U-COMPONENT |
|---|
| 265 | ! 4-SVGFS - 10-METRE V-COMPONENT |
|---|
| 266 | ! 5-SVGFS - SKIN TEMPERATURE |
|---|
| 267 | ! 6-SVGFS - FORECAST SURFACE ROUGHNESS |
|---|
| 268 | ! 7-SVGFS - FORECAST SURFACE ROUGHNESS FOR HEAT |
|---|
| 269 | ! 8-SVGFS - FORECAST ALBEDO |
|---|
| 270 | ! IF LHDMCI |
|---|
| 271 | ! IF LHDENT |
|---|
| 272 | |
|---|
| 273 | !* 2.2 TENDANCES/FLUX DYNAMIQUES |
|---|
| 274 | ! SUR LES POINTS TERRE UNIQUEMENT |
|---|
| 275 | |
|---|
| 276 | ! SI LHDHKS |
|---|
| 277 | ! SI LHDMCI |
|---|
| 278 | ! SI LHDENT |
|---|
| 279 | |
|---|
| 280 | !* 2.3 TENDANCES/FLUX PHYSIQUES |
|---|
| 281 | ! SUR LES POINTS TERRE UNIQUEMENT |
|---|
| 282 | |
|---|
| 283 | ! IF LHDHKS |
|---|
| 284 | ! 1-S FVRAC - FLUX DE RAYONNEMENT SOLAIRE NET (GAIN ALGEBRIQUE POUR LA COUCHE S) |
|---|
| 285 | ! 2-S FVRAC - FLUX DE RAYONNEMENT THERMIQUE NET |
|---|
| 286 | ! 3-S FVRAC - FLUX DE CHALEUR LATENTE, EVAPORATION DE LIQUIDE |
|---|
| 287 | ! 4-S FVRAC - FLUX DE CHALEUR LATENTE, EVAPORATION DE NEIGE |
|---|
| 288 | ! 5-S FVRAC - FLUX DE CHALEUR SENSIBLE |
|---|
| 289 | ! 6-S FVRAC - FLUX DE CHALEUR VERS SOL PROFOND (GAIN ALGEBRIQUE POUR COUCHE P) |
|---|
| 290 | ! 7-S FVRAC - FLUX DE CHALEUR RESULTANT DE LA FONTE DE NEIGE (COUCHE S) |
|---|
| 291 | ! 8-S FVRAC - FLUX DE PRECIPITATIONS STRATIFORMES LIQUIDES (GAIN POUR LA COUCHE S) |
|---|
| 292 | ! 9-S FVRAC - FLUX DE PRECIPITATIONS STRATIFORMES NEIGEUSES |
|---|
| 293 | ! 10-S FVRAC - FLUX DE PRECIPITATIONS CONVECTIVES LIQUIDES |
|---|
| 294 | ! 11-S FVRAC - FLUX DE PRECIPITATIONS CONVECTIVES NEIGEUSES |
|---|
| 295 | ! 12-S FVRAC - FLUX D'EVAPORATION DE LIQUIDE |
|---|
| 296 | ! 13-S FVRAC - FLUX D'EVAPORATION DE NEIGE |
|---|
| 297 | ! 14-S FVRAC - FLUX D'EAU VERS LA COUCHE PROFONDE (GAIN POUR COUCHE P) |
|---|
| 298 | ! 15-S FVRAC - FLUX NEIGE VERS LIQUIDE (FONTE EN SURFACE, COUCHE S) |
|---|
| 299 | ! 16-S FVRAC - TROP-PLEIN EN SURFACE (RUISSELLEMENT, PERDU) |
|---|
| 300 | ! 17-S FVRAC - TROP-PLEIN EN PROFONDEUR (PERDU) |
|---|
| 301 | ! IF LHDMCI |
|---|
| 302 | ! IF LHDENT |
|---|
| 303 | |
|---|
| 304 | !* 2.3a FREE-STYLE FLUXES |
|---|
| 305 | ! (NOTE: VALID OVER LAND AND SEA) |
|---|
| 306 | |
|---|
| 307 | ! IF LHDHKS.AND.LECMWF |
|---|
| 308 | ! 1-SFGFS - SURFACE SOLAR RADIATION DOWNWARDS |
|---|
| 309 | ! 2-SFGFS - SURFACE THERMAL RADIATION DOWNWARDS |
|---|
| 310 | ! IF LHDMCI |
|---|
| 311 | ! IF LHDENT |
|---|
| 312 | !$OMP THREADPRIVATE(hdcs0,hdcs1,hdcvb0,hdcvb1,pddhfsvi) |
|---|
| 313 | END MODULE YOMTDDH |
|---|
