| 1 | ! |
|---|
| 2 | !NCEP_MESO:MEDIATION_LAYER: SET UP DOMAIN DECOMPOSITION VARIABLES |
|---|
| 3 | ! |
|---|
| 4 | ! |
|---|
| 5 | !---------------------------------------------------------------------- |
|---|
| 6 | ! |
|---|
| 7 | MODULE MODULE_MPPINIT |
|---|
| 8 | ! |
|---|
| 9 | !---------------------------------------------------------------------- |
|---|
| 10 | USE MODULE_MPP |
|---|
| 11 | !---------------------------------------------------------------------- |
|---|
| 12 | ! |
|---|
| 13 | CONTAINS |
|---|
| 14 | ! |
|---|
| 15 | !********************************************************************** |
|---|
| 16 | SUBROUTINE MPPINIT(IDS,IDE,JDS,JDE,KDS,KDE & |
|---|
| 17 | ,IMS,IME,JMS,JME,KMS,KME & |
|---|
| 18 | ,IPS,IPE,JPS,JPE,KPS,KPE) |
|---|
| 19 | !********************************************************************** |
|---|
| 20 | !$$$ SUBPROGRAM DOCUMENTATION BLOCK |
|---|
| 21 | ! . . . |
|---|
| 22 | ! SUBPROGRAM: MPPINIT SET UP DECOMPOSITION VARIABLES |
|---|
| 23 | ! PRGRMMR: BLACK ORG: W/NP22 DATE: 98-10-28 |
|---|
| 24 | ! |
|---|
| 25 | ! ABSTRACT: |
|---|
| 26 | ! MPPINIT DETERMINES ALL RELEVANT VALUES FOR DIMENSIONS OF THE |
|---|
| 27 | ! DISTRIBUTED SUBDOMAINS AND THEIR HALOES. |
|---|
| 28 | ! |
|---|
| 29 | ! PROGRAM HISTORY LOG: |
|---|
| 30 | ! 97-??-?? MEYS - ORIGINATOR |
|---|
| 31 | ! 97-??-?? BLACK - CHANGES MADE FOR CLARITY |
|---|
| 32 | ! 98-10-29 BLACK - REWRITTEN FOR CLARITY |
|---|
| 33 | ! |
|---|
| 34 | ! USAGE: CALL MPPINIT FROM MAIN PROGRAM NCEP_MESO |
|---|
| 35 | ! INPUT ARGUMENT LIST: |
|---|
| 36 | |
|---|
| 37 | ! OUTPUT ARGUMENT LIST: |
|---|
| 38 | ! NONE |
|---|
| 39 | ! |
|---|
| 40 | ! OUTPUT FILES: |
|---|
| 41 | ! NONE |
|---|
| 42 | ! |
|---|
| 43 | ! SUBPROGRAMS CALLED: |
|---|
| 44 | ! |
|---|
| 45 | ! UNIQUE: |
|---|
| 46 | ! NONE |
|---|
| 47 | ! |
|---|
| 48 | ! LIBRARY: |
|---|
| 49 | ! NONE |
|---|
| 50 | ! |
|---|
| 51 | ! ATTRIBUTES: |
|---|
| 52 | ! LANGUAGE: FORTRAN 90 |
|---|
| 53 | ! MACHINE : IBM SP |
|---|
| 54 | !$$$ |
|---|
| 55 | !---------------------------------------------------------------------- |
|---|
| 56 | ! |
|---|
| 57 | IMPLICIT NONE |
|---|
| 58 | ! |
|---|
| 59 | !---------------------------------------------------------------------- |
|---|
| 60 | INTEGER,INTENT(IN) :: IDS,IDE,JDS,JDE,KDS,KDE & |
|---|
| 61 | ,IMS,IME,JMS,JME,KMS,KME & |
|---|
| 62 | ,IPS,IPE,JPS,JPE,KPS,KPE |
|---|
| 63 | !---------------------------------------------------------------------- |
|---|
| 64 | !********************************************************************** |
|---|
| 65 | !---------------------------------------------------------------------- |
|---|
| 66 | |
|---|
| 67 | CALL wrf_get_myproc ( MYPE ) |
|---|
| 68 | CALL wrf_get_nproc ( NPES ) |
|---|
| 69 | CALL wrf_get_dm_communicator ( mpi_comm_comp ) |
|---|
| 70 | |
|---|
| 71 | !jm |
|---|
| 72 | MYIS = MAX( IPS-0, IDS+0 ) |
|---|
| 73 | MYIS_P1 = MAX( IPS-1, IDS+0 ) |
|---|
| 74 | MYIS_P2 = MAX( IPS-2, IDS+0 ) |
|---|
| 75 | MYIS_P3 = MAX( IPS-3, IDS+0 ) |
|---|
| 76 | MYIS_P4 = MAX( IPS-4, IDS+0 ) |
|---|
| 77 | MYIS_P5 = MAX( IPS-5, IDS+0 ) |
|---|
| 78 | ! |
|---|
| 79 | MYIS1 = MAX( IPS-0, IDS+1 ) |
|---|
| 80 | MYIS1_P1= MAX( IPS-1, IDS+1 ) |
|---|
| 81 | MYIS1_P2= MAX( IPS-2, IDS+1 ) |
|---|
| 82 | MYIS1_P3= MAX( IPS-3, IDS+1 ) |
|---|
| 83 | MYIS1_P4= MAX( IPS-4, IDS+1 ) |
|---|
| 84 | MYIS1_P5= MAX( IPS-5, IDS+1 ) |
|---|
| 85 | ! |
|---|
| 86 | MYIS2 = MAX( IPS-0, IDS+2 ) |
|---|
| 87 | MYIS2_P1= MAX( IPS-1, IDS+2 ) |
|---|
| 88 | MYIS2_P2= MAX( IPS-2, IDS+2 ) |
|---|
| 89 | MYIS2_P3= MAX( IPS-3, IDS+2 ) |
|---|
| 90 | MYIS2_P4= MAX( IPS-4, IDS+2 ) |
|---|
| 91 | MYIS2_P5= MAX( IPS-5, IDS+2 ) |
|---|
| 92 | ! |
|---|
| 93 | MYIS3 = MAX( IPS-0, IDS+3 ) |
|---|
| 94 | MYIS3_P1= MAX( IPS-1, IDS+3 ) |
|---|
| 95 | MYIS3_P2= MAX( IPS-2, IDS+3 ) |
|---|
| 96 | MYIS3_P3= MAX( IPS-3, IDS+3 ) |
|---|
| 97 | MYIS3_P4= MAX( IPS-4, IDS+3 ) |
|---|
| 98 | MYIS3_P5= MAX( IPS-5, IDS+3 ) |
|---|
| 99 | ! |
|---|
| 100 | MYIS4 = MAX( IPS-0, IDS+4 ) |
|---|
| 101 | MYIS4_P1= MAX( IPS-1, IDS+4 ) |
|---|
| 102 | MYIS4_P2= MAX( IPS-2, IDS+4 ) |
|---|
| 103 | MYIS4_P3= MAX( IPS-3, IDS+4 ) |
|---|
| 104 | MYIS4_P4= MAX( IPS-4, IDS+4 ) |
|---|
| 105 | MYIS4_P5= MAX( IPS-5, IDS+4 ) |
|---|
| 106 | ! |
|---|
| 107 | MYIS5 = MAX( IPS-0, IDS+5 ) |
|---|
| 108 | MYIS5_P1= MAX( IPS-1, IDS+5 ) |
|---|
| 109 | MYIS5_P2= MAX( IPS-2, IDS+5 ) |
|---|
| 110 | MYIS5_P3= MAX( IPS-3, IDS+5 ) |
|---|
| 111 | MYIS5_P4= MAX( IPS-4, IDS+5 ) |
|---|
| 112 | MYIS5_P5= MAX( IPS-5, IDS+5 ) |
|---|
| 113 | |
|---|
| 114 | !jm |
|---|
| 115 | MYIE = MIN( IPE+0, IDE-0 ) |
|---|
| 116 | MYIE_P1 = MIN( IPE+1, IDE-0 ) |
|---|
| 117 | MYIE_P2 = MIN( IPE+2, IDE-0 ) |
|---|
| 118 | MYIE_P3 = MIN( IPE+3, IDE-0 ) |
|---|
| 119 | MYIE_P4 = MIN( IPE+4, IDE-0 ) |
|---|
| 120 | MYIE_P5 = MIN( IPE+5, IDE-0 ) |
|---|
| 121 | ! |
|---|
| 122 | MYIE1 = MIN( IPE+0, IDE-1 ) |
|---|
| 123 | MYIE1_P1= MIN( IPE+1, IDE-1 ) |
|---|
| 124 | MYIE1_P2= MIN( IPE+2, IDE-1 ) |
|---|
| 125 | MYIE1_P3= MIN( IPE+3, IDE-1 ) |
|---|
| 126 | MYIE1_P4= MIN( IPE+4, IDE-1 ) |
|---|
| 127 | MYIE1_P5= MIN( IPE+5, IDE-1 ) |
|---|
| 128 | ! |
|---|
| 129 | MYIE2 = MIN( IPE+0, IDE-2 ) |
|---|
| 130 | MYIE2_P1= MIN( IPE+1, IDE-2 ) |
|---|
| 131 | MYIE2_P2= MIN( IPE+2, IDE-2 ) |
|---|
| 132 | MYIE2_P3= MIN( IPE+3, IDE-2 ) |
|---|
| 133 | MYIE2_P4= MIN( IPE+4, IDE-2 ) |
|---|
| 134 | MYIE2_P5= MIN( IPE+5, IDE-2 ) |
|---|
| 135 | ! |
|---|
| 136 | MYIE3 = MIN( IPE+0, IDE-3 ) |
|---|
| 137 | MYIE3_P1= MIN( IPE+1, IDE-3 ) |
|---|
| 138 | MYIE3_P2= MIN( IPE+2, IDE-3 ) |
|---|
| 139 | MYIE3_P3= MIN( IPE+3, IDE-3 ) |
|---|
| 140 | MYIE3_P4= MIN( IPE+4, IDE-3 ) |
|---|
| 141 | MYIE3_P5= MIN( IPE+5, IDE-3 ) |
|---|
| 142 | ! |
|---|
| 143 | MYIE4 = MIN( IPE+0, IDE-4 ) |
|---|
| 144 | MYIE4_P1= MIN( IPE+1, IDE-4 ) |
|---|
| 145 | MYIE4_P2= MIN( IPE+2, IDE-4 ) |
|---|
| 146 | MYIE4_P3= MIN( IPE+3, IDE-4 ) |
|---|
| 147 | MYIE4_P4= MIN( IPE+4, IDE-4 ) |
|---|
| 148 | MYIE4_P5= MIN( IPE+5, IDE-4 ) |
|---|
| 149 | ! |
|---|
| 150 | MYIE5 = MIN( IPE+0, IDE-5 ) |
|---|
| 151 | MYIE5_P1= MIN( IPE+1, IDE-5 ) |
|---|
| 152 | MYIE5_P2= MIN( IPE+2, IDE-5 ) |
|---|
| 153 | MYIE5_P3= MIN( IPE+3, IDE-5 ) |
|---|
| 154 | MYIE5_P4= MIN( IPE+4, IDE-5 ) |
|---|
| 155 | MYIE5_P5= MIN( IPE+5, IDE-5 ) |
|---|
| 156 | |
|---|
| 157 | !jm |
|---|
| 158 | MYJS = MAX( JPS-0, JDS+0 ) |
|---|
| 159 | MYJS_P1 = MAX( JPS-1, JDS+0 ) |
|---|
| 160 | MYJS_P2 = MAX( JPS-2, JDS+0 ) |
|---|
| 161 | MYJS_P3 = MAX( JPS-3, JDS+0 ) |
|---|
| 162 | MYJS_P4 = MAX( JPS-4, JDS+0 ) |
|---|
| 163 | MYJS_P5 = MAX( JPS-5, JDS+0 ) |
|---|
| 164 | ! |
|---|
| 165 | MYJS1 = MAX( JPS-0, JDS+1 ) |
|---|
| 166 | MYJS1_P1= MAX( JPS-1, JDS+1 ) |
|---|
| 167 | MYJS1_P2= MAX( JPS-2, JDS+1 ) |
|---|
| 168 | MYJS1_P3= MAX( JPS-3, JDS+1 ) |
|---|
| 169 | MYJS1_P4= MAX( JPS-4, JDS+1 ) |
|---|
| 170 | MYJS1_P5= MAX( JPS-5, JDS+1 ) |
|---|
| 171 | ! |
|---|
| 172 | MYJS2 = MAX( JPS-0, JDS+2 ) |
|---|
| 173 | MYJS2_P1= MAX( JPS-1, JDS+2 ) |
|---|
| 174 | MYJS2_P2= MAX( JPS-2, JDS+2 ) |
|---|
| 175 | MYJS2_P3= MAX( JPS-3, JDS+2 ) |
|---|
| 176 | MYJS2_P4= MAX( JPS-4, JDS+2 ) |
|---|
| 177 | MYJS2_P5= MAX( JPS-5, JDS+2 ) |
|---|
| 178 | ! |
|---|
| 179 | MYJS3 = MAX( JPS-0, JDS+3 ) |
|---|
| 180 | MYJS3_P1= MAX( JPS-1, JDS+3 ) |
|---|
| 181 | MYJS3_P2= MAX( JPS-2, JDS+3 ) |
|---|
| 182 | MYJS3_P3= MAX( JPS-3, JDS+3 ) |
|---|
| 183 | MYJS3_P4= MAX( JPS-4, JDS+3 ) |
|---|
| 184 | MYJS3_P5= MAX( JPS-5, JDS+3 ) |
|---|
| 185 | ! |
|---|
| 186 | MYJS4 = MAX( JPS-0, JDS+4 ) |
|---|
| 187 | MYJS4_P1= MAX( JPS-1, JDS+4 ) |
|---|
| 188 | MYJS4_P2= MAX( JPS-2, JDS+4 ) |
|---|
| 189 | MYJS4_P3= MAX( JPS-3, JDS+4 ) |
|---|
| 190 | MYJS4_P4= MAX( JPS-4, JDS+4 ) |
|---|
| 191 | MYJS4_P5= MAX( JPS-5, JDS+4 ) |
|---|
| 192 | ! |
|---|
| 193 | MYJS5 = MAX( JPS-0, JDS+5 ) |
|---|
| 194 | MYJS5_P1= MAX( JPS-1, JDS+5 ) |
|---|
| 195 | MYJS5_P2= MAX( JPS-2, JDS+5 ) |
|---|
| 196 | MYJS5_P3= MAX( JPS-3, JDS+5 ) |
|---|
| 197 | MYJS5_P4= MAX( JPS-4, JDS+5 ) |
|---|
| 198 | MYJS5_P5= MAX( JPS-5, JDS+5 ) |
|---|
| 199 | ! |
|---|
| 200 | !jm |
|---|
| 201 | MYJE = MIN( JPE+0, JDE-0 ) |
|---|
| 202 | MYJE_P1 = MIN( JPE+1, JDE-0 ) |
|---|
| 203 | MYJE_P2 = MIN( JPE+2, JDE-0 ) |
|---|
| 204 | MYJE_P3 = MIN( JPE+3, JDE-0 ) |
|---|
| 205 | MYJE_P4 = MIN( JPE+4, JDE-0 ) |
|---|
| 206 | MYJE_P5 = MIN( JPE+5, JDE-0 ) |
|---|
| 207 | ! |
|---|
| 208 | MYJE1 = MIN( JPE+0, JDE-1 ) |
|---|
| 209 | MYJE1_P1= MIN( JPE+1, JDE-1 ) |
|---|
| 210 | MYJE1_P2= MIN( JPE+2, JDE-1 ) |
|---|
| 211 | MYJE1_P3= MIN( JPE+3, JDE-1 ) |
|---|
| 212 | MYJE1_P4= MIN( JPE+4, JDE-1 ) |
|---|
| 213 | MYJE1_P5= MIN( JPE+5, JDE-1 ) |
|---|
| 214 | ! |
|---|
| 215 | MYJE2 = MIN( JPE+0, JDE-2 ) |
|---|
| 216 | MYJE2_P1= MIN( JPE+1, JDE-2 ) |
|---|
| 217 | MYJE2_P2= MIN( JPE+2, JDE-2 ) |
|---|
| 218 | MYJE2_P3= MIN( JPE+3, JDE-2 ) |
|---|
| 219 | MYJE2_P4= MIN( JPE+4, JDE-2 ) |
|---|
| 220 | MYJE2_P5= MIN( JPE+5, JDE-2 ) |
|---|
| 221 | ! |
|---|
| 222 | MYJE3 = MIN( JPE+0, JDE-3 ) |
|---|
| 223 | MYJE3_P1= MIN( JPE+1, JDE-3 ) |
|---|
| 224 | MYJE3_P2= MIN( JPE+2, JDE-3 ) |
|---|
| 225 | MYJE3_P3= MIN( JPE+3, JDE-3 ) |
|---|
| 226 | MYJE3_P4= MIN( JPE+4, JDE-3 ) |
|---|
| 227 | MYJE3_P5= MIN( JPE+5, JDE-3 ) |
|---|
| 228 | ! |
|---|
| 229 | MYJE4 = MIN( JPE+0, JDE-4 ) |
|---|
| 230 | MYJE4_P1= MIN( JPE+1, JDE-4 ) |
|---|
| 231 | MYJE4_P2= MIN( JPE+2, JDE-4 ) |
|---|
| 232 | MYJE4_P3= MIN( JPE+3, JDE-4 ) |
|---|
| 233 | MYJE4_P4= MIN( JPE+4, JDE-4 ) |
|---|
| 234 | MYJE4_P5= MIN( JPE+5, JDE-4 ) |
|---|
| 235 | ! |
|---|
| 236 | MYJE5 = MIN( JPE+0, JDE-5 ) |
|---|
| 237 | MYJE5_P1= MIN( JPE+1, JDE-5 ) |
|---|
| 238 | MYJE5_P2= MIN( JPE+2, JDE-5 ) |
|---|
| 239 | MYJE5_P3= MIN( JPE+3, JDE-5 ) |
|---|
| 240 | MYJE5_P4= MIN( JPE+4, JDE-5 ) |
|---|
| 241 | MYJE5_P5= MIN( JPE+5, JDE-5 ) |
|---|
| 242 | |
|---|
| 243 | !---------------------------------------------------------------------- |
|---|
| 244 | END SUBROUTINE MPPINIT |
|---|
| 245 | !********************************************************************** |
|---|
| 246 | !---------------------------------------------------------------------- |
|---|
| 247 | !---------------------------------------------------------------------- |
|---|
| 248 | !jm!********************************************************************** |
|---|
| 249 | !jm!---------------------------------------------------------------------- |
|---|
| 250 | !jm! |
|---|
| 251 | !jm!********************************************************************** |
|---|
| 252 | !jm SUBROUTINE GOSSIP(IDS,IDE,JDS,JDE,KDS,KDE & |
|---|
| 253 | !jm ,IMS,IME,JMS,JME,KMS,KME & |
|---|
| 254 | !jm ,ITS,ITE,JTS,JTE,KTS,KTE) |
|---|
| 255 | !jm!********************************************************************** |
|---|
| 256 | !jm!$$$ SUBPROGRAM DOCUMENTATION BLOCK |
|---|
| 257 | !jm! . . . |
|---|
| 258 | !jm! SUBPROGRAM: GOSSIP EXCHANGE OF FIELDS BETWEEN PROCESSORS |
|---|
| 259 | !jm! PRGRMMR: BLACK ORG: W/NP2 DATE: 97-08-30 |
|---|
| 260 | !jm! |
|---|
| 261 | !jm! ABSTRACT: |
|---|
| 262 | !jm! GOSSIP EXCHANGES MANY FIELDS BETWEEN PROCESSORS |
|---|
| 263 | !jm! IN ORDER TO FILL THE HALOES |
|---|
| 264 | !jm! |
|---|
| 265 | !jm! PROGRAM HISTORY LOG: |
|---|
| 266 | !jm! 97-05-?? MEYS - ORIGINATOR |
|---|
| 267 | !jm! 98-10-23 BLACK - MODIFIED FOR CURRENT VERSION OF MODEL |
|---|
| 268 | !jm! 01-03-21 BLACK - CONVERTED TO WRF FORMAT |
|---|
| 269 | !jm! |
|---|
| 270 | !jm! USAGE: CALL GOSSIP FROM MAIN PROGRAM EBU |
|---|
| 271 | !jm! INPUT ARGUMENT LIST: |
|---|
| 272 | !jm! IMS - TASKS'S STARTING I ADDRESS |
|---|
| 273 | !jm! IME - TASKS'S ENDING I ADDRESS |
|---|
| 274 | !jm! JMS - TASKS'S STARTING J ADDRESS |
|---|
| 275 | !jm! JME - TASKS'S ENDING J ADDRESS |
|---|
| 276 | !jm! KMS - TASKS'S STARTING K ADDRESS |
|---|
| 277 | !jm! KME - TASKS'S ENDING K ADDRESS |
|---|
| 278 | !jm! |
|---|
| 279 | !jm! OUTPUT ARGUMENT LIST: |
|---|
| 280 | !jm! NONE |
|---|
| 281 | !jm! |
|---|
| 282 | !jm! OUTPUT FILES: |
|---|
| 283 | !jm! NONE |
|---|
| 284 | !jm! |
|---|
| 285 | !jm! SUBPROGRAMS CALLED: |
|---|
| 286 | !jm! |
|---|
| 287 | !jm! UNIQUE: EXCH |
|---|
| 288 | !jm! |
|---|
| 289 | !jm! LIBRARY: NONE |
|---|
| 290 | !jm! |
|---|
| 291 | !jm! ATTRIBUTES: |
|---|
| 292 | !jm! LANGUAGE: FORTRAN 90 |
|---|
| 293 | !jm! MACHINE : IBM SP |
|---|
| 294 | !jm!$$$ |
|---|
| 295 | !jm!********************************************************************** |
|---|
| 296 | !jm!---------------------------------------------------------------------- |
|---|
| 297 | !jm! |
|---|
| 298 | !jm IMPLICIT NONE |
|---|
| 299 | !jm! |
|---|
| 300 | !jm!---------------------------------------------------------------------- |
|---|
| 301 | !jm INTEGER,INTENT(IN) :: IDS,IDE,JDS,JDE,KDS,KDE & |
|---|
| 302 | !jm ,IMS,IME,JMS,JME,KMS,KME & |
|---|
| 303 | !jm ,ITS,ITE,JTS,JTE,KTS,KTE |
|---|
| 304 | !jm! |
|---|
| 305 | !jm INTEGER :: J |
|---|
| 306 | !jm!---------------------------------------------------------------------- |
|---|
| 307 | !jm!********************************************************************** |
|---|
| 308 | !jm! |
|---|
| 309 | !jm!*** THE NHB ARRAYS |
|---|
| 310 | !jm! |
|---|
| 311 | !jm CALL EXCH(LMH,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 312 | !jm CALL EXCH(LMV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 313 | !jm CALL EXCH(HBM2,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 314 | !jm CALL EXCH(HBM3,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 315 | !jm CALL EXCH(VBM2,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 316 | !jm CALL EXCH(VBM3,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 317 | !jm CALL EXCH(SM,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 318 | !jm CALL EXCH(SICE,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 319 | !jm CALL EXCH(HTM,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 320 | !jm CALL EXCH(VTM,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 321 | !jm CALL EXCH(DX,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 322 | !jm CALL EXCH(WPDAR,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 323 | !jm CALL EXCH(CPGFU,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 324 | !jm CALL EXCH(CURV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 325 | !jm CALL EXCH(FCP,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 326 | !jm CALL EXCH(FDIV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 327 | !jm CALL EXCH(FAD,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 328 | !jm CALL EXCH(F,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 329 | !jm CALL EXCH(DDMPU,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 330 | !jm CALL EXCH(DDMPV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 331 | !jm CALL EXCH(GLAT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 332 | !jm CALL EXCH(GLON,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 333 | !jm CALL EXCH(EPSR,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 334 | !jm CALL EXCH(TG,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 335 | !jm CALL EXCH(GFFC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 336 | !jm CALL EXCH(SST,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 337 | !jm CALL EXCH(ALBASE,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 338 | !jm CALL EXCH(HDAC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 339 | !jm CALL EXCH(HDACV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 340 | !jm CALL EXCH(IVGTYP,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 341 | !jm CALL EXCH(ISLTYP,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 342 | !jm CALL EXCH(ISLOPE,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 343 | !jm CALL EXCH(VEGFRC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 344 | !jm! |
|---|
| 345 | !jm!*** THE RESTRT FILE ARRAYS |
|---|
| 346 | !jm! |
|---|
| 347 | !jm CALL EXCH (OMGALF,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 348 | !jm CALL EXCH (PD,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 349 | !jm CALL EXCH (RES,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 350 | !jm CALL EXCH (FIS,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 351 | !jm CALL EXCH (T,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 352 | !jm CALL EXCH (U,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 353 | !jm CALL EXCH (V,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 354 | !jm CALL EXCH (Q,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 355 | !jm CALL EXCH (Q2,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 356 | !jm CALL EXCH (CWM,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 357 | !jm CALL EXCH (TRAIN,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 358 | !jm CALL EXCH (TCUCN,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 359 | !jm CALL EXCH (RSWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 360 | !jm CALL EXCH (RSWOUT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 361 | !jm CALL EXCH (TG,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 362 | !jm CALL EXCH (Z0,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 363 | !jm CALL EXCH (AKMS,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 364 | !jm CALL EXCH (CZEN,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 365 | !jm CALL EXCH (AKHS,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 366 | !jm CALL EXCH (THS,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 367 | !jm CALL EXCH (QS,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 368 | !jm CALL EXCH (TWBS,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 369 | !jm CALL EXCH (QWBS,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 370 | !jm CALL EXCH (HBOT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 371 | !jm CALL EXCH (CFRACL,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 372 | !jm CALL EXCH (THZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 373 | !jm CALL EXCH (QZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 374 | !jm CALL EXCH (UZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 375 | !jm CALL EXCH (VZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 376 | !jm CALL EXCH (USTAR,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 377 | !jm CALL EXCH (HTOP,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 378 | !jm CALL EXCH (CFRACM,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 379 | !jm CALL EXCH (SNO,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 380 | !jm CALL EXCH (SI,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 381 | !jm CALL EXCH (CLDEFI,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 382 | !jm CALL EXCH (RF,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 383 | !jm CALL EXCH (CUPPT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 384 | !jm CALL EXCH (CFRACH,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 385 | !jm CALL EXCH (SOILTB,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 386 | !jm CALL EXCH (SFCEXC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 387 | !jm CALL EXCH (SMSTAV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 388 | !jm CALL EXCH (SMSTOT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 389 | !jm CALL EXCH (GRNFLX,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 390 | !jm CALL EXCH (PCTSNO,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 391 | !jm CALL EXCH (RLWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 392 | !jm CALL EXCH (RADOT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 393 | !jm CALL EXCH (CZMEAN,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 394 | !jm CALL EXCH (SIGT4,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 395 | !jm CALL EXCH (U00,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 396 | !jm CALL EXCH (LC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 397 | !jm CALL EXCH (SR,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 398 | !jm CALL EXCH (PREC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 399 | !jm CALL EXCH (ACPREC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 400 | !jm CALL EXCH (ACCLIQ,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 401 | !jm CALL EXCH (CUPREC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 402 | !jm CALL EXCH (ACFRCV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 403 | !jm CALL EXCH (NCFRCV,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 404 | !jm CALL EXCH (ACFRST,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 405 | !jm CALL EXCH (NCFRST,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 406 | !jm CALL EXCH (ACSNOW,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 407 | !jm CALL EXCH (ACSNOM,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 408 | !jm CALL EXCH (SSROFF,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 409 | !jm CALL EXCH (BGROFF,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 410 | !jm CALL EXCH (SFCSHX,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 411 | !jm CALL EXCH (SFCLHX,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 412 | !jm CALL EXCH (SUBSHX,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 413 | !jm CALL EXCH (SNOPCX,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 414 | !jm CALL EXCH (SFCUVX,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 415 | !jm CALL EXCH (SFCEVP,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 416 | !jm CALL EXCH (POTEVP,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 417 | !jm CALL EXCH (ASWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 418 | !jm CALL EXCH (ASWOUT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 419 | !jm CALL EXCH (ASWTOA,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 420 | !jm CALL EXCH (ALWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 421 | !jm CALL EXCH (ALWOUT,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 422 | !jm CALL EXCH (ALWTOA,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 423 | !jm CALL EXCH (SMC,NSOIL,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 424 | !jm CALL EXCH (CMC,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 425 | !jm CALL EXCH (STC,NSOIL,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 426 | !jm CALL EXCH (SH2O,NSOIL,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 427 | !jm CALL EXCH (ALBEDO,1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 428 | !jm! |
|---|
| 429 | !jm CALL EXCH (PINT,LM+1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 430 | !jm CALL EXCH (Z,LM+1,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 431 | !jm CALL EXCH (DWDT,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 432 | !jm CALL EXCH (TOLD,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 433 | !jm CALL EXCH (UOLD,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 434 | !jm CALL EXCH (VOLD,LM,5,5,IMS,IME,JMS,JME,KMS,KME) |
|---|
| 435 | !jm! |
|---|
| 436 | !jm DO J=MYJS_P4,MYJE_P4 |
|---|
| 437 | !jm IVW(J)=IVWG(J+MY_JS_GLB-1) |
|---|
| 438 | !jm IVE(J)=IVEG(J+MY_JS_GLB-1) |
|---|
| 439 | !jm IHE(J)=IHEG(J+MY_JS_GLB-1) |
|---|
| 440 | !jm IHW(J)=IHWG(J+MY_JS_GLB-1) |
|---|
| 441 | !jm ENDDO |
|---|
| 442 | !jm! |
|---|
| 443 | !jm!---------------------------------------------------------------------- |
|---|
| 444 | !jm END SUBROUTINE GOSSIP |
|---|
| 445 | !---------------------------------------------------------------------- |
|---|
| 446 | END MODULE MODULE_MPPINIT |
|---|
| 447 | |
|---|
