| 1 | MODULE YOMMDDH |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | ! DIAGNOSTIQUES DOMAINES HORIZONTAUX |
|---|
| 11 | ! ---------------------------------- |
|---|
| 12 | |
|---|
| 13 | ! DIMENSIONS DES DIAGNOSTIQUES DDH |
|---|
| 14 | ! --------------------------------- |
|---|
| 15 | ! === basic dimensions for reading NAMDDH === |
|---|
| 16 | INTEGER(KIND=JPIM), PARAMETER :: JPDHNOX=200 |
|---|
| 17 | INTEGER(KIND=JPIM), PARAMETER :: JPDHXPU=5 |
|---|
| 18 | |
|---|
| 19 | ! JPDHNOX: Maximum number of user area |
|---|
| 20 | ! JPDHXPU: Maximum number of user or mask memory plans |
|---|
| 21 | |
|---|
| 22 | INTEGER(KIND=JPIM) :: NDHKD |
|---|
| 23 | INTEGER(KIND=JPIM) :: NDHNPU |
|---|
| 24 | INTEGER(KIND=JPIM) :: NDHBPU(JPDHXPU) |
|---|
| 25 | INTEGER(KIND=JPIM) :: NDHBPX |
|---|
| 26 | INTEGER(KIND=JPIM) :: NDHNOM |
|---|
| 27 | INTEGER(KIND=JPIM) :: NDHDDX |
|---|
| 28 | INTEGER(KIND=JPIM) :: NDHIDH |
|---|
| 29 | INTEGER(KIND=JPIM) :: NDHCS |
|---|
| 30 | INTEGER(KIND=JPIM) :: NDHCV |
|---|
| 31 | INTEGER(KIND=JPIM) :: NDHCVSU |
|---|
| 32 | INTEGER(KIND=JPIM) :: NDHCSSU |
|---|
| 33 | INTEGER(KIND=JPIM) :: NDHCVSUN |
|---|
| 34 | INTEGER(KIND=JPIM) :: NDHCVSUL |
|---|
| 35 | ! NDHKD : NOMBRE DE BANDES DE LATITUDES |
|---|
| 36 | ! NDHNPU : NOMBRE DE MASQUES UTILISES NDHNPU .LE. JPDHXPU |
|---|
| 37 | ! NDHBPU(JPDHXPU) : NOMBRE DE DOMAINES CONTENU DANS CHAQUE MASQUE |
|---|
| 38 | ! NDHBPX : NOMBRE DE DOMAINE MAXIMAL PAR MASQUE |
|---|
| 39 | ! NDHBPX = MAX( NDHBPU ) |
|---|
| 40 | ! NDHNOM : NOMBRE TOTALE DE DOMAINES LIMITES EN NOMENCLATURE |
|---|
| 41 | ! NDHNOM .LE. JPDHNOX |
|---|
| 42 | ! NDHDDX : NOMBRE MAXIMAL DE DOMAINES INTERNES POSSIBLES |
|---|
| 43 | ! NDHIDH : NOMBRE DE DOMAINES INTERNES ( OR DOMAINE 0 EVENTUEL ) |
|---|
| 44 | ! INITIALISE PAR CALCUL DANS SUMDDH |
|---|
| 45 | ! NDHCS : NOMBRE TOTAL DE CHAMPS AU SOL |
|---|
| 46 | ! NDHCV : NOMBRE TOTAL DE CHAMPS EN PROFILS VERTICAUX |
|---|
| 47 | ! NDHCVSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS VERTICAUX |
|---|
| 48 | ! NDHCVSU EST IMPAIR ET VAUT 1 AU MOINS |
|---|
| 49 | ! NDHCSSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS AU SOL |
|---|
| 50 | |
|---|
| 51 | ! INDICATEURS D ORGANISATION DE LA REPARTITION DES CHAMPS |
|---|
| 52 | ! ------------------------------------------------------------------ |
|---|
| 53 | INTEGER(KIND=JPIM) :: NDHVV |
|---|
| 54 | INTEGER(KIND=JPIM) :: NDHFVD |
|---|
| 55 | INTEGER(KIND=JPIM) :: NDHFVP |
|---|
| 56 | INTEGER(KIND=JPIM) :: NDHVS |
|---|
| 57 | INTEGER(KIND=JPIM) :: NDHFSD |
|---|
| 58 | INTEGER(KIND=JPIM) :: NDHFSP |
|---|
| 59 | INTEGER(KIND=JPIM) :: NDHFFS |
|---|
| 60 | INTEGER(KIND=JPIM) :: NDHVFS |
|---|
| 61 | |
|---|
| 62 | INTEGER(KIND=JPIM) :: NDHVTLS |
|---|
| 63 | INTEGER(KIND=JPIM) :: NDHFTLS |
|---|
| 64 | INTEGER(KIND=JPIM) :: NDHVTSS |
|---|
| 65 | INTEGER(KIND=JPIM) :: NDHFTSS |
|---|
| 66 | INTEGER(KIND=JPIM) :: NDHVTTS |
|---|
| 67 | INTEGER(KIND=JPIM) :: NDHFTTS |
|---|
| 68 | INTEGER(KIND=JPIM) :: NDHVTIS |
|---|
| 69 | INTEGER(KIND=JPIM) :: NDHFTIS |
|---|
| 70 | INTEGER(KIND=JPIM) :: NDHVSSS |
|---|
| 71 | INTEGER(KIND=JPIM) :: NDHFSSS |
|---|
| 72 | INTEGER(KIND=JPIM) :: NDHVIIS |
|---|
| 73 | INTEGER(KIND=JPIM) :: NDHFIIS |
|---|
| 74 | INTEGER(KIND=JPIM) :: NDHVWLS |
|---|
| 75 | INTEGER(KIND=JPIM) :: NDHFWLS |
|---|
| 76 | |
|---|
| 77 | INTEGER(KIND=JPIM) :: NDHTHK |
|---|
| 78 | INTEGER(KIND=JPIM) :: NDHVHK |
|---|
| 79 | INTEGER(KIND=JPIM) :: NDHFHKD |
|---|
| 80 | INTEGER(KIND=JPIM) :: NDHFHKP |
|---|
| 81 | INTEGER(KIND=JPIM) :: NDHTMC |
|---|
| 82 | INTEGER(KIND=JPIM) :: NDHVMC |
|---|
| 83 | INTEGER(KIND=JPIM) :: NDHFMCD |
|---|
| 84 | INTEGER(KIND=JPIM) :: NDHFMCP |
|---|
| 85 | INTEGER(KIND=JPIM) :: NDHTEN |
|---|
| 86 | INTEGER(KIND=JPIM) :: NDHVEN |
|---|
| 87 | INTEGER(KIND=JPIM) :: NDHFEND |
|---|
| 88 | INTEGER(KIND=JPIM) :: NDHFENP |
|---|
| 89 | INTEGER(KIND=JPIM) :: NDHAVD |
|---|
| 90 | INTEGER(KIND=JPIM) :: NDHBVD |
|---|
| 91 | INTEGER(KIND=JPIM) :: NDHAVP |
|---|
| 92 | INTEGER(KIND=JPIM) :: NDHBVP |
|---|
| 93 | INTEGER(KIND=JPIM) :: NDHAHKD |
|---|
| 94 | INTEGER(KIND=JPIM) :: NDHBHKD |
|---|
| 95 | INTEGER(KIND=JPIM) :: NDHAHKP |
|---|
| 96 | INTEGER(KIND=JPIM) :: NDHBHKP |
|---|
| 97 | INTEGER(KIND=JPIM) :: NDHAMCD |
|---|
| 98 | INTEGER(KIND=JPIM) :: NDHBMCD |
|---|
| 99 | INTEGER(KIND=JPIM) :: NDHAMCP |
|---|
| 100 | INTEGER(KIND=JPIM) :: NDHBMCP |
|---|
| 101 | INTEGER(KIND=JPIM) :: NDHAEND |
|---|
| 102 | INTEGER(KIND=JPIM) :: NDHBEND |
|---|
| 103 | INTEGER(KIND=JPIM) :: NDHAENP |
|---|
| 104 | INTEGER(KIND=JPIM) :: NDHBENP |
|---|
| 105 | |
|---|
| 106 | ! * LES INDICATEURS PRECEDES DE * SONT DES NOMBRES ATTACHES |
|---|
| 107 | ! AU CODE FORTRAN DE CALCUL SCIENTIFIQUE, ET NON DES |
|---|
| 108 | ! PARAMETRES AJUSTABLES AUX CIRCONSTANCES |
|---|
| 109 | |
|---|
| 110 | ! NDHVV : NOMBRE DE VARIABLES SUR LA VERTICALE |
|---|
| 111 | ! NDHFVD : NOMBRE DE FLUX+TENDANCES DYNAMIQUES SUR LA VERTICALE |
|---|
| 112 | ! DETAIL CI DESSOUS |
|---|
| 113 | ! NDHFVP : NOMBRE DE FLUX+TENDANCES PHYSIQUES SUR LA VERTICALE |
|---|
| 114 | ! DETAIL CI DESSOUS |
|---|
| 115 | |
|---|
| 116 | ! * NDHVS : NOMBRE DE VARIABLES AU SOL |
|---|
| 117 | ! * NDHFSD : NOMBRE DE FLUX DYNAMIQUES AU SOL |
|---|
| 118 | ! * NDHFSP : NOMBRE DE FLUX PHYSIQUES AU SOL |
|---|
| 119 | ! * NDHFFS : Number of free-style fluxes |
|---|
| 120 | ! * NDHVFS : Number of free-style variables |
|---|
| 121 | |
|---|
| 122 | ! * NDHVTLS: Number of variables for individual tiles |
|---|
| 123 | ! * NDHFTLS: Number of fluxes for individual tiles |
|---|
| 124 | ! * NDHVTSS: Number of variables for snow energy budget |
|---|
| 125 | ! * NDHFTSS: Number of fluxes for snow energy budget |
|---|
| 126 | ! * NDHVTTS: Number of variables for soil energy budget |
|---|
| 127 | ! * NDHFTTS: Number of fluxes for soil energy budget |
|---|
| 128 | ! * NDHVTIS: Number of variables for sea ice energy budget |
|---|
| 129 | ! * NDHFTIS: Number of fluxes for sea ice energy budget |
|---|
| 130 | ! * NDHVSSS: Number of variables for snow water budget |
|---|
| 131 | ! * NDHFSSS: Number of fluxes for snow water budget |
|---|
| 132 | ! * NDHVIIS: Number of variables for interception layer water budget |
|---|
| 133 | ! * NDHFIIS: Number of fluxes for interception layer water budget |
|---|
| 134 | ! * NDHVWLS: Number of variables for soil water budget |
|---|
| 135 | ! * NDHFWLS: Number of fluxes for soil water budget |
|---|
| 136 | |
|---|
| 137 | ! NDHTHK : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDHKS |
|---|
| 138 | ! * NDHVHK : NOMBRE DE VARIABLES SOUS LHDHKS |
|---|
| 139 | ! * NDHFHKD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDHKS |
|---|
| 140 | ! * NDHFHKP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDHKS |
|---|
| 141 | |
|---|
| 142 | ! NDHTMC : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDMCI |
|---|
| 143 | ! * NDHVMC : NOMBRE DE VARIABLES SOUS LHDMCI |
|---|
| 144 | ! * NDHFMCD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDMCI |
|---|
| 145 | ! * NDHFMCP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDMCI |
|---|
| 146 | |
|---|
| 147 | ! NDHTEN : NOMBRE TOTAL DE CHAMPS SOUS LHDENT |
|---|
| 148 | ! * NDHVEN : NOMBRE DE VARIABLES SOUS LHDENT |
|---|
| 149 | ! * NDHFEND: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDENT |
|---|
| 150 | ! * NDHFENP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDENT |
|---|
| 151 | |
|---|
| 152 | ! NDHAVD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES |
|---|
| 153 | ! NDHBVD : NOMBRE TOTAL DE FLUX DYNAMIQUES |
|---|
| 154 | ! NDHAVP : NOMBRE TOTAL DE FLUX PHYSIQUES |
|---|
| 155 | ! NDHBVP : NOMBRE TOTAL DE TENDANCES PHYSIQUES |
|---|
| 156 | ! * NDHAHKD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDHKS |
|---|
| 157 | ! * NDHBHKD : NOMBRE TOTAL DE FLUX DYNAMIQUES |
|---|
| 158 | ! * NDHAHKP : NOMBRE TOTAL DE FLUX PHYSIQUES |
|---|
| 159 | ! * NDHBHKP : NOMBRE TOTAL DE TENDANCES PHYSIQUES |
|---|
| 160 | ! * NDHAMCD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDMCI |
|---|
| 161 | ! * NDHBMCD : NOMBRE TOTAL DE FLUX DYNAMIQUES |
|---|
| 162 | ! * NDHAMCP : NOMBRE TOTAL DE FLUX PHYSIQUES |
|---|
| 163 | ! * NDHBMCP : NOMBRE TOTAL DE TENDANCES PHYSIQUES |
|---|
| 164 | ! * NDHAEND : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDENT |
|---|
| 165 | ! * NDHBEND : NOMBRE TOTAL DE FLUX DYNAMIQUES |
|---|
| 166 | ! * NDHAENP : NOMBRE TOTAL DE FLUX PHYSIQUES |
|---|
| 167 | ! * NDHBENP : NOMBRE TOTAL DE TENDANCES PHYSIQUES |
|---|
| 168 | |
|---|
| 169 | ! IDENTIFICATION DES DOMAINES DE L UTILISATEUR |
|---|
| 170 | ! ------------------------------------------------------------------ |
|---|
| 171 | |
|---|
| 172 | INTEGER(KIND=JPIM) :: NDHZPR |
|---|
| 173 | REAL(KIND=JPRB) :: FNODDH(11,JPDHNOX) |
|---|
| 174 | REAL(KIND=JPRB) :: BDEDDH(10,JPDHNOX) |
|---|
| 175 | REAL(KIND=JPRB) :: HDSFGL |
|---|
| 176 | |
|---|
| 177 | ! FNODDH : DESCRIPTEURS DES DOMAINES LIMITES UTILISATEUR ACCEPTES |
|---|
| 178 | ! (1,-) : PLAN MEMOIRE (MASQUE) |
|---|
| 179 | ! (2,-) : NUMERO D ORDRE DANS LE PLAN |
|---|
| 180 | ! CES DEUX NOMBRES FORMENT LES COORDONNEES INTERNES DU DOMAINE |
|---|
| 181 | ! (3,-) A (10,-) : COORDONNEES (EN GAL LON, SIN(LAT) EN RD) |
|---|
| 182 | ! SUIVANT LE TYPE (VOIR DOCUMENTATION) |
|---|
| 183 | ! (11,-) : TYPE DE DOMAINE |
|---|
| 184 | |
|---|
| 185 | ! BDEDDH : DESCRIPTEUR BRUT LU SUR NAMELIST |
|---|
| 186 | ! (CERTAINS DOMAINES PEUVENT AVOIR ETE REJETES) |
|---|
| 187 | ! (1,-) : TYPE DE DOMAINE |
|---|
| 188 | ! (2,-) : PLAN MEMOIRE |
|---|
| 189 | ! (3,-) A (10,-) : COORDONNEES (EN GAL LON, LAT EN DEG) |
|---|
| 190 | ! SUIVANT LE TYPE (VOIR DOCUMENTATION) |
|---|
| 191 | ! HDSFGL : VOIR CI DESSOUS |
|---|
| 192 | ! NDHZPR : INDICE DE LA BANDE ZONALE EVENTUELLEMENT IMPRIMEE |
|---|
| 193 | |
|---|
| 194 | ! MASQUES DES DIAGNOSTIQUES DDH, POIDS POUR LES MOYENNES |
|---|
| 195 | ! ------------------------------------------------------------------ |
|---|
| 196 | |
|---|
| 197 | INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHLA(:) |
|---|
| 198 | INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHPU(:,:) |
|---|
| 199 | |
|---|
| 200 | INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHI(:) |
|---|
| 201 | ! ----- |
|---|
| 202 | INTEGER(KIND=JPIM),ALLOCATABLE:: NLRDDH(:,:) |
|---|
| 203 | INTEGER(KIND=JPIM),ALLOCATABLE:: NURDDH(:,:,:) |
|---|
| 204 | ! ----- |
|---|
| 205 | INTEGER(KIND=JPIM),ALLOCATABLE:: NLXDDH(:) |
|---|
| 206 | INTEGER(KIND=JPIM),ALLOCATABLE:: NUXDDH(:,:) |
|---|
| 207 | ! ----- |
|---|
| 208 | REAL(KIND=JPRB),ALLOCATABLE:: HDSFLA(:) |
|---|
| 209 | REAL(KIND=JPRB),ALLOCATABLE:: HDSFDU(:,:) |
|---|
| 210 | REAL(KIND=JPRB),ALLOCATABLE:: HDSF(:) |
|---|
| 211 | |
|---|
| 212 | ! NDDHLA : MASQUE BANDES DE LATITUDES |
|---|
| 213 | ! NDDHPU : MASQUES POUR LES DOMAINES LIMITES ET LES POINTS |
|---|
| 214 | |
|---|
| 215 | ! NDDHI : MASQUE DES DOMAINES INTERNES |
|---|
| 216 | |
|---|
| 217 | ! NLRDDH : DISTRIBUTION DE CHAQUE BANDE DE LATITUDE EN DOMAINES INTERNES |
|---|
| 218 | ! NURDDH : DISTRIBUTION DE CHAQUE DOMAINE DE CHAQUE PLAN EN DOMAINES INTERNE |
|---|
| 219 | |
|---|
| 220 | ! NLXDDH : BORNE DE LECTURE DE NLRDDH POUR CHAQUE BANDE |
|---|
| 221 | ! NUXDDH : BORNE DE LECTURE DE NURDDH POUR CHAQUE DOMAINE DE CHAQUE PLAN |
|---|
| 222 | |
|---|
| 223 | ! HDSFLA : POIDS DE CHAQUE BANDE DE LATITUDE |
|---|
| 224 | ! HDSFDU : POIDS DE CHAQUE DOMAINE UTILISATEUR |
|---|
| 225 | ! HDSFGL : POIDS POUR LES MOYENNES GLOBALES |
|---|
| 226 | ! HDSF : POIDS DE CHAQUE POINT DE LA GRILLE PHYSIQUE |
|---|
| 227 | |
|---|
| 228 | ! POINTEURS |
|---|
| 229 | |
|---|
| 230 | ! ---- DDH |
|---|
| 231 | ! ------------------------------------------------------------------ |
|---|
| 232 | !$OMP THREADPRIVATE(bdeddh,fnoddh,hdsfgl,ndhaend,ndhaenp,ndhahkd,ndhahkp,ndhamcd) |
|---|
| 233 | !$OMP THREADPRIVATE(ndhamcp,ndhavd,ndhavp,ndhbend,ndhbenp,ndhbhkd,ndhbhkp,ndhbmcd) |
|---|
| 234 | !$OMP THREADPRIVATE(ndhbmcp,ndhbpu,ndhbpx,ndhbvd,ndhbvp,ndhcs,ndhcssu,ndhcv,ndhcvsu) |
|---|
| 235 | !$OMP THREADPRIVATE(ndhcvsul,ndhcvsun,ndhddx,ndhfend,ndhfenp,ndhffs,ndhfhkd,ndhfhkp) |
|---|
| 236 | !$OMP THREADPRIVATE(ndhfiis,ndhfmcd,ndhfmcp,ndhfsd,ndhfsp,ndhfsss,ndhftis,ndhftls) |
|---|
| 237 | !$OMP THREADPRIVATE(ndhftss,ndhftts,ndhfvd,ndhfvp,ndhfwls,ndhidh,ndhkd,ndhnom,ndhnpu) |
|---|
| 238 | !$OMP THREADPRIVATE(ndhten,ndhthk,ndhtmc,ndhven,ndhvfs,ndhvhk,ndhviis,ndhvmc,ndhvs) |
|---|
| 239 | !$OMP THREADPRIVATE(ndhvsss,ndhvtis,ndhvtls,ndhvtss,ndhvtts,ndhvv,ndhvwls,ndhzpr) |
|---|
| 240 | !$OMP THREADPRIVATE(hdsf,hdsfdu,hdsfla,nddhi,nddhla,nddhpu,nlrddh,nlxddh,nurddh,nuxddh) |
|---|
| 241 | END MODULE YOMMDDH |
|---|
