Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [test_pm_arrayInit](@ref test_pm_arrayInit).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arrayInit) routines ! LCOV_EXCL_LINE
28 :
29 : ! \bug
30 : ! There is a viscous Intel compiler 2022 bug where the appearance of the following `use` statements
31 : ! in the body of the implementation include file `test_pm_arrayInit@routines.inc.F90` leads to various
32 : ! mistakes in parsing and preprocessing the contents of the include file.<br>
33 : ! The threshold for the maximum number of `use` statements within the entire submodule appears to be
34 : ! about `55`, because activating more than 55 procedures of the submodule
35 : ! leads to compilation failures due syntax parsing mistakes by the Intel compiler.<br>
36 : use pm_distUnif, only: getUnifRand
37 : use pm_distUnif, only: setUnifRand
38 : use pm_io, only: display_type
39 : use pm_val2str, only: getStr
40 :
41 : implicit none
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : contains
46 :
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define getCoreHalo_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define Arr_ENABLED 1
56 :
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #define D0_ENABLED 1
62 :
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 :
65 : #define SK_ENABLED 1
66 :
67 : #if SK5_ENABLED
68 : module procedure test_getCoreHaloArr_D0_SK5
69 : use pm_kind, only: SKC => SK5
70 : #include "test_pm_arrayInit@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if SK4_ENABLED
75 : module procedure test_getCoreHaloArr_D0_SK4
76 : use pm_kind, only: SKC => SK4
77 : #include "test_pm_arrayInit@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK3_ENABLED
82 : module procedure test_getCoreHaloArr_D0_SK3
83 : use pm_kind, only: SKC => SK3
84 : #include "test_pm_arrayInit@routines.inc.F90"
85 : end procedure
86 : #endif
87 :
88 : #if SK2_ENABLED
89 : module procedure test_getCoreHaloArr_D0_SK2
90 : use pm_kind, only: SKC => SK2
91 : #include "test_pm_arrayInit@routines.inc.F90"
92 : end procedure
93 : #endif
94 :
95 : #if SK1_ENABLED
96 1 : module procedure test_getCoreHaloArr_D0_SK1
97 : use pm_kind, only: SKC => SK1
98 : #include "test_pm_arrayInit@routines.inc.F90"
99 : end procedure
100 : #endif
101 :
102 : #undef SK_ENABLED
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : #undef D0_ENABLED
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 :
112 : #define D1_ENABLED 1
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #define SK_ENABLED 1
117 :
118 : #if SK5_ENABLED
119 : module procedure test_getCoreHaloArr_D1_SK5
120 : use pm_kind, only: SKC => SK5
121 : #include "test_pm_arrayInit@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if SK4_ENABLED
126 : module procedure test_getCoreHaloArr_D1_SK4
127 : use pm_kind, only: SKC => SK4
128 : #include "test_pm_arrayInit@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #if SK3_ENABLED
133 : module procedure test_getCoreHaloArr_D1_SK3
134 : use pm_kind, only: SKC => SK3
135 : #include "test_pm_arrayInit@routines.inc.F90"
136 : end procedure
137 : #endif
138 :
139 : #if SK2_ENABLED
140 : module procedure test_getCoreHaloArr_D1_SK2
141 : use pm_kind, only: SKC => SK2
142 : #include "test_pm_arrayInit@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #if SK1_ENABLED
147 1 : module procedure test_getCoreHaloArr_D1_SK1
148 : use pm_kind, only: SKC => SK1
149 : #include "test_pm_arrayInit@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #undef SK_ENABLED
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : #define IK_ENABLED 1
158 :
159 : #if IK5_ENABLED
160 1 : module procedure test_getCoreHaloArr_D1_IK5
161 : use pm_kind, only: IKC => IK5
162 : #include "test_pm_arrayInit@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if IK4_ENABLED
167 1 : module procedure test_getCoreHaloArr_D1_IK4
168 : use pm_kind, only: IKC => IK4
169 : #include "test_pm_arrayInit@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if IK3_ENABLED
174 1 : module procedure test_getCoreHaloArr_D1_IK3
175 : use pm_kind, only: IKC => IK3
176 : #include "test_pm_arrayInit@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #if IK2_ENABLED
181 1 : module procedure test_getCoreHaloArr_D1_IK2
182 : use pm_kind, only: IKC => IK2
183 : #include "test_pm_arrayInit@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #if IK1_ENABLED
188 1 : module procedure test_getCoreHaloArr_D1_IK1
189 : use pm_kind, only: IKC => IK1
190 : #include "test_pm_arrayInit@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #undef IK_ENABLED
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #define LK_ENABLED 1
199 :
200 : #if LK5_ENABLED
201 1 : module procedure test_getCoreHaloArr_D1_LK5
202 : use pm_kind, only: LKC => LK5
203 : #include "test_pm_arrayInit@routines.inc.F90"
204 : end procedure
205 : #endif
206 :
207 : #if LK4_ENABLED
208 1 : module procedure test_getCoreHaloArr_D1_LK4
209 : use pm_kind, only: LKC => LK4
210 : #include "test_pm_arrayInit@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if LK3_ENABLED
215 1 : module procedure test_getCoreHaloArr_D1_LK3
216 : use pm_kind, only: LKC => LK3
217 : #include "test_pm_arrayInit@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #if LK2_ENABLED
222 1 : module procedure test_getCoreHaloArr_D1_LK2
223 : use pm_kind, only: LKC => LK2
224 : #include "test_pm_arrayInit@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if LK1_ENABLED
229 1 : module procedure test_getCoreHaloArr_D1_LK1
230 : use pm_kind, only: LKC => LK1
231 : #include "test_pm_arrayInit@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #undef LK_ENABLED
236 :
237 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
238 :
239 : #define CK_ENABLED 1
240 :
241 : #if CK5_ENABLED
242 : module procedure test_getCoreHaloArr_D1_CK5
243 : use pm_kind, only: CKC => CK5
244 : #include "test_pm_arrayInit@routines.inc.F90"
245 : end procedure
246 : #endif
247 :
248 : #if CK4_ENABLED
249 1 : module procedure test_getCoreHaloArr_D1_CK4
250 : use pm_kind, only: CKC => CK4
251 : #include "test_pm_arrayInit@routines.inc.F90"
252 : end procedure
253 : #endif
254 :
255 : #if CK3_ENABLED
256 1 : module procedure test_getCoreHaloArr_D1_CK3
257 : use pm_kind, only: CKC => CK3
258 : #include "test_pm_arrayInit@routines.inc.F90"
259 : end procedure
260 : #endif
261 :
262 : #if CK2_ENABLED
263 1 : module procedure test_getCoreHaloArr_D1_CK2
264 : use pm_kind, only: CKC => CK2
265 : #include "test_pm_arrayInit@routines.inc.F90"
266 : end procedure
267 : #endif
268 :
269 : #if CK1_ENABLED
270 1 : module procedure test_getCoreHaloArr_D1_CK1
271 : use pm_kind, only: CKC => CK1
272 : #include "test_pm_arrayInit@routines.inc.F90"
273 : end procedure
274 : #endif
275 :
276 : #undef CK_ENABLED
277 :
278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279 :
280 : #define RK_ENABLED 1
281 :
282 : #if RK5_ENABLED
283 : module procedure test_getCoreHaloArr_D1_RK5
284 : use pm_kind, only: RKC => RK5
285 : #include "test_pm_arrayInit@routines.inc.F90"
286 : end procedure
287 : #endif
288 :
289 : #if RK4_ENABLED
290 1 : module procedure test_getCoreHaloArr_D1_RK4
291 : use pm_kind, only: RKC => RK4
292 : #include "test_pm_arrayInit@routines.inc.F90"
293 : end procedure
294 : #endif
295 :
296 : #if RK3_ENABLED
297 1 : module procedure test_getCoreHaloArr_D1_RK3
298 : use pm_kind, only: RKC => RK3
299 : #include "test_pm_arrayInit@routines.inc.F90"
300 : end procedure
301 : #endif
302 :
303 : #if RK2_ENABLED
304 1 : module procedure test_getCoreHaloArr_D1_RK2
305 : use pm_kind, only: RKC => RK2
306 : #include "test_pm_arrayInit@routines.inc.F90"
307 : end procedure
308 : #endif
309 :
310 : #if RK1_ENABLED
311 1 : module procedure test_getCoreHaloArr_D1_RK1
312 : use pm_kind, only: RKC => RK1
313 : #include "test_pm_arrayInit@routines.inc.F90"
314 : end procedure
315 : #endif
316 :
317 : #undef RK_ENABLED
318 :
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 :
321 : #undef D1_ENABLED
322 :
323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
326 :
327 : #define D2_ENABLED 1
328 :
329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
330 :
331 : #define SK_ENABLED 1
332 :
333 : #if SK5_ENABLED
334 : module procedure test_getCoreHaloArr_D2_SK5
335 : use pm_kind, only: SKC => SK5
336 : #include "test_pm_arrayInit@routines.inc.F90"
337 : end procedure
338 : #endif
339 :
340 : #if SK4_ENABLED
341 : module procedure test_getCoreHaloArr_D2_SK4
342 : use pm_kind, only: SKC => SK4
343 : #include "test_pm_arrayInit@routines.inc.F90"
344 : end procedure
345 : #endif
346 :
347 : #if SK3_ENABLED
348 : module procedure test_getCoreHaloArr_D2_SK3
349 : use pm_kind, only: SKC => SK3
350 : #include "test_pm_arrayInit@routines.inc.F90"
351 : end procedure
352 : #endif
353 :
354 : #if SK2_ENABLED
355 : module procedure test_getCoreHaloArr_D2_SK2
356 : use pm_kind, only: SKC => SK2
357 : #include "test_pm_arrayInit@routines.inc.F90"
358 : end procedure
359 : #endif
360 :
361 : #if SK1_ENABLED
362 1 : module procedure test_getCoreHaloArr_D2_SK1
363 : use pm_kind, only: SKC => SK1
364 : #include "test_pm_arrayInit@routines.inc.F90"
365 : end procedure
366 : #endif
367 :
368 : #undef SK_ENABLED
369 :
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 :
372 : #define IK_ENABLED 1
373 :
374 : #if IK5_ENABLED
375 1 : module procedure test_getCoreHaloArr_D2_IK5
376 : use pm_kind, only: IKC => IK5
377 : #include "test_pm_arrayInit@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if IK4_ENABLED
382 1 : module procedure test_getCoreHaloArr_D2_IK4
383 : use pm_kind, only: IKC => IK4
384 : #include "test_pm_arrayInit@routines.inc.F90"
385 : end procedure
386 : #endif
387 :
388 : #if IK3_ENABLED
389 1 : module procedure test_getCoreHaloArr_D2_IK3
390 : use pm_kind, only: IKC => IK3
391 : #include "test_pm_arrayInit@routines.inc.F90"
392 : end procedure
393 : #endif
394 :
395 : #if IK2_ENABLED
396 1 : module procedure test_getCoreHaloArr_D2_IK2
397 : use pm_kind, only: IKC => IK2
398 : #include "test_pm_arrayInit@routines.inc.F90"
399 : end procedure
400 : #endif
401 :
402 : #if IK1_ENABLED
403 1 : module procedure test_getCoreHaloArr_D2_IK1
404 : use pm_kind, only: IKC => IK1
405 : #include "test_pm_arrayInit@routines.inc.F90"
406 : end procedure
407 : #endif
408 :
409 : #undef IK_ENABLED
410 :
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 :
413 : #define LK_ENABLED 1
414 :
415 : #if LK5_ENABLED
416 1 : module procedure test_getCoreHaloArr_D2_LK5
417 : use pm_kind, only: LKC => LK5
418 : #include "test_pm_arrayInit@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #if LK4_ENABLED
423 1 : module procedure test_getCoreHaloArr_D2_LK4
424 : use pm_kind, only: LKC => LK4
425 : #include "test_pm_arrayInit@routines.inc.F90"
426 : end procedure
427 : #endif
428 :
429 : #if LK3_ENABLED
430 1 : module procedure test_getCoreHaloArr_D2_LK3
431 : use pm_kind, only: LKC => LK3
432 : #include "test_pm_arrayInit@routines.inc.F90"
433 : end procedure
434 : #endif
435 :
436 : #if LK2_ENABLED
437 1 : module procedure test_getCoreHaloArr_D2_LK2
438 : use pm_kind, only: LKC => LK2
439 : #include "test_pm_arrayInit@routines.inc.F90"
440 : end procedure
441 : #endif
442 :
443 : #if LK1_ENABLED
444 1 : module procedure test_getCoreHaloArr_D2_LK1
445 : use pm_kind, only: LKC => LK1
446 : #include "test_pm_arrayInit@routines.inc.F90"
447 : end procedure
448 : #endif
449 :
450 : #undef LK_ENABLED
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 :
454 : #define CK_ENABLED 1
455 :
456 : #if CK5_ENABLED
457 : module procedure test_getCoreHaloArr_D2_CK5
458 : use pm_kind, only: CKC => CK5
459 : #include "test_pm_arrayInit@routines.inc.F90"
460 : end procedure
461 : #endif
462 :
463 : #if CK4_ENABLED
464 1 : module procedure test_getCoreHaloArr_D2_CK4
465 : use pm_kind, only: CKC => CK4
466 : #include "test_pm_arrayInit@routines.inc.F90"
467 : end procedure
468 : #endif
469 :
470 : #if CK3_ENABLED
471 1 : module procedure test_getCoreHaloArr_D2_CK3
472 : use pm_kind, only: CKC => CK3
473 : #include "test_pm_arrayInit@routines.inc.F90"
474 : end procedure
475 : #endif
476 :
477 : #if CK2_ENABLED
478 1 : module procedure test_getCoreHaloArr_D2_CK2
479 : use pm_kind, only: CKC => CK2
480 : #include "test_pm_arrayInit@routines.inc.F90"
481 : end procedure
482 : #endif
483 :
484 : #if CK1_ENABLED
485 1 : module procedure test_getCoreHaloArr_D2_CK1
486 : use pm_kind, only: CKC => CK1
487 : #include "test_pm_arrayInit@routines.inc.F90"
488 : end procedure
489 : #endif
490 :
491 : #undef CK_ENABLED
492 :
493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494 :
495 : #define RK_ENABLED 1
496 :
497 : #if RK5_ENABLED
498 : module procedure test_getCoreHaloArr_D2_RK5
499 : use pm_kind, only: RKC => RK5
500 : #include "test_pm_arrayInit@routines.inc.F90"
501 : end procedure
502 : #endif
503 :
504 : #if RK4_ENABLED
505 1 : module procedure test_getCoreHaloArr_D2_RK4
506 : use pm_kind, only: RKC => RK4
507 : #include "test_pm_arrayInit@routines.inc.F90"
508 : end procedure
509 : #endif
510 :
511 : #if RK3_ENABLED
512 1 : module procedure test_getCoreHaloArr_D2_RK3
513 : use pm_kind, only: RKC => RK3
514 : #include "test_pm_arrayInit@routines.inc.F90"
515 : end procedure
516 : #endif
517 :
518 : #if RK2_ENABLED
519 1 : module procedure test_getCoreHaloArr_D2_RK2
520 : use pm_kind, only: RKC => RK2
521 : #include "test_pm_arrayInit@routines.inc.F90"
522 : end procedure
523 : #endif
524 :
525 : #if RK1_ENABLED
526 1 : module procedure test_getCoreHaloArr_D2_RK1
527 : use pm_kind, only: RKC => RK1
528 : #include "test_pm_arrayInit@routines.inc.F90"
529 : end procedure
530 : #endif
531 :
532 : #undef RK_ENABLED
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #undef D2_ENABLED
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 :
542 : #define D3_ENABLED 1
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #define SK_ENABLED 1
547 :
548 : #if SK5_ENABLED
549 : module procedure test_getCoreHaloArr_D3_SK5
550 : use pm_kind, only: SKC => SK5
551 : #include "test_pm_arrayInit@routines.inc.F90"
552 : end procedure
553 : #endif
554 :
555 : #if SK4_ENABLED
556 : module procedure test_getCoreHaloArr_D3_SK4
557 : use pm_kind, only: SKC => SK4
558 : #include "test_pm_arrayInit@routines.inc.F90"
559 : end procedure
560 : #endif
561 :
562 : #if SK3_ENABLED
563 : module procedure test_getCoreHaloArr_D3_SK3
564 : use pm_kind, only: SKC => SK3
565 : #include "test_pm_arrayInit@routines.inc.F90"
566 : end procedure
567 : #endif
568 :
569 : #if SK2_ENABLED
570 : module procedure test_getCoreHaloArr_D3_SK2
571 : use pm_kind, only: SKC => SK2
572 : #include "test_pm_arrayInit@routines.inc.F90"
573 : end procedure
574 : #endif
575 :
576 : #if SK1_ENABLED
577 1 : module procedure test_getCoreHaloArr_D3_SK1
578 : use pm_kind, only: SKC => SK1
579 : #include "test_pm_arrayInit@routines.inc.F90"
580 : end procedure
581 : #endif
582 :
583 : #undef SK_ENABLED
584 :
585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
586 :
587 : #define IK_ENABLED 1
588 :
589 : #if IK5_ENABLED
590 1 : module procedure test_getCoreHaloArr_D3_IK5
591 : use pm_kind, only: IKC => IK5
592 : #include "test_pm_arrayInit@routines.inc.F90"
593 : end procedure
594 : #endif
595 :
596 : #if IK4_ENABLED
597 1 : module procedure test_getCoreHaloArr_D3_IK4
598 : use pm_kind, only: IKC => IK4
599 : #include "test_pm_arrayInit@routines.inc.F90"
600 : end procedure
601 : #endif
602 :
603 : #if IK3_ENABLED
604 1 : module procedure test_getCoreHaloArr_D3_IK3
605 : use pm_kind, only: IKC => IK3
606 : #include "test_pm_arrayInit@routines.inc.F90"
607 : end procedure
608 : #endif
609 :
610 : #if IK2_ENABLED
611 1 : module procedure test_getCoreHaloArr_D3_IK2
612 : use pm_kind, only: IKC => IK2
613 : #include "test_pm_arrayInit@routines.inc.F90"
614 : end procedure
615 : #endif
616 :
617 : #if IK1_ENABLED
618 1 : module procedure test_getCoreHaloArr_D3_IK1
619 : use pm_kind, only: IKC => IK1
620 : #include "test_pm_arrayInit@routines.inc.F90"
621 : end procedure
622 : #endif
623 :
624 : #undef IK_ENABLED
625 :
626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
627 :
628 : #define LK_ENABLED 1
629 :
630 : #if LK5_ENABLED
631 1 : module procedure test_getCoreHaloArr_D3_LK5
632 : use pm_kind, only: LKC => LK5
633 : #include "test_pm_arrayInit@routines.inc.F90"
634 : end procedure
635 : #endif
636 :
637 : #if LK4_ENABLED
638 1 : module procedure test_getCoreHaloArr_D3_LK4
639 : use pm_kind, only: LKC => LK4
640 : #include "test_pm_arrayInit@routines.inc.F90"
641 : end procedure
642 : #endif
643 :
644 : #if LK3_ENABLED
645 1 : module procedure test_getCoreHaloArr_D3_LK3
646 : use pm_kind, only: LKC => LK3
647 : #include "test_pm_arrayInit@routines.inc.F90"
648 : end procedure
649 : #endif
650 :
651 : #if LK2_ENABLED
652 1 : module procedure test_getCoreHaloArr_D3_LK2
653 : use pm_kind, only: LKC => LK2
654 : #include "test_pm_arrayInit@routines.inc.F90"
655 : end procedure
656 : #endif
657 :
658 : #if LK1_ENABLED
659 1 : module procedure test_getCoreHaloArr_D3_LK1
660 : use pm_kind, only: LKC => LK1
661 : #include "test_pm_arrayInit@routines.inc.F90"
662 : end procedure
663 : #endif
664 :
665 : #undef LK_ENABLED
666 :
667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
668 :
669 : #define CK_ENABLED 1
670 :
671 : #if CK5_ENABLED
672 : module procedure test_getCoreHaloArr_D3_CK5
673 : use pm_kind, only: CKC => CK5
674 : #include "test_pm_arrayInit@routines.inc.F90"
675 : end procedure
676 : #endif
677 :
678 : #if CK4_ENABLED
679 1 : module procedure test_getCoreHaloArr_D3_CK4
680 : use pm_kind, only: CKC => CK4
681 : #include "test_pm_arrayInit@routines.inc.F90"
682 : end procedure
683 : #endif
684 :
685 : #if CK3_ENABLED
686 1 : module procedure test_getCoreHaloArr_D3_CK3
687 : use pm_kind, only: CKC => CK3
688 : #include "test_pm_arrayInit@routines.inc.F90"
689 : end procedure
690 : #endif
691 :
692 : #if CK2_ENABLED
693 1 : module procedure test_getCoreHaloArr_D3_CK2
694 : use pm_kind, only: CKC => CK2
695 : #include "test_pm_arrayInit@routines.inc.F90"
696 : end procedure
697 : #endif
698 :
699 : #if CK1_ENABLED
700 1 : module procedure test_getCoreHaloArr_D3_CK1
701 : use pm_kind, only: CKC => CK1
702 : #include "test_pm_arrayInit@routines.inc.F90"
703 : end procedure
704 : #endif
705 :
706 : #undef CK_ENABLED
707 :
708 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
709 :
710 : #define RK_ENABLED 1
711 :
712 : #if RK5_ENABLED
713 : module procedure test_getCoreHaloArr_D3_RK5
714 : use pm_kind, only: RKC => RK5
715 : #include "test_pm_arrayInit@routines.inc.F90"
716 : end procedure
717 : #endif
718 :
719 : #if RK4_ENABLED
720 1 : module procedure test_getCoreHaloArr_D3_RK4
721 : use pm_kind, only: RKC => RK4
722 : #include "test_pm_arrayInit@routines.inc.F90"
723 : end procedure
724 : #endif
725 :
726 : #if RK3_ENABLED
727 1 : module procedure test_getCoreHaloArr_D3_RK3
728 : use pm_kind, only: RKC => RK3
729 : #include "test_pm_arrayInit@routines.inc.F90"
730 : end procedure
731 : #endif
732 :
733 : #if RK2_ENABLED
734 1 : module procedure test_getCoreHaloArr_D3_RK2
735 : use pm_kind, only: RKC => RK2
736 : #include "test_pm_arrayInit@routines.inc.F90"
737 : end procedure
738 : #endif
739 :
740 : #if RK1_ENABLED
741 1 : module procedure test_getCoreHaloArr_D3_RK1
742 : use pm_kind, only: RKC => RK1
743 : #include "test_pm_arrayInit@routines.inc.F90"
744 : end procedure
745 : #endif
746 :
747 : #undef RK_ENABLED
748 :
749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750 :
751 : #undef D3_ENABLED
752 :
753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
756 :
757 : #undef Arr_ENABLED
758 :
759 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 :
763 : #undef getCoreHalo_ENABLED
764 :
765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
766 :
767 : #define setCoreHalo_ENABLED 1
768 :
769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
772 :
773 : #define Arr_ENABLED 1
774 :
775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
778 :
779 : #define D0_ENABLED 1
780 :
781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
782 :
783 : #define SK_ENABLED 1
784 :
785 : #if SK5_ENABLED
786 : module procedure test_setCoreHaloArr_D0_SK5
787 : use pm_kind, only: SKC => SK5
788 : #include "test_pm_arrayInit@routines.inc.F90"
789 : end procedure
790 : #endif
791 :
792 : #if SK4_ENABLED
793 : module procedure test_setCoreHaloArr_D0_SK4
794 : use pm_kind, only: SKC => SK4
795 : #include "test_pm_arrayInit@routines.inc.F90"
796 : end procedure
797 : #endif
798 :
799 : #if SK3_ENABLED
800 : module procedure test_setCoreHaloArr_D0_SK3
801 : use pm_kind, only: SKC => SK3
802 : #include "test_pm_arrayInit@routines.inc.F90"
803 : end procedure
804 : #endif
805 :
806 : #if SK2_ENABLED
807 : module procedure test_setCoreHaloArr_D0_SK2
808 : use pm_kind, only: SKC => SK2
809 : #include "test_pm_arrayInit@routines.inc.F90"
810 : end procedure
811 : #endif
812 :
813 : #if SK1_ENABLED
814 1 : module procedure test_setCoreHaloArr_D0_SK1
815 : use pm_kind, only: SKC => SK1
816 : #include "test_pm_arrayInit@routines.inc.F90"
817 : end procedure
818 : #endif
819 :
820 : #undef SK_ENABLED
821 :
822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
823 :
824 : #undef D0_ENABLED
825 :
826 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
829 :
830 : #define D1_ENABLED 1
831 :
832 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
833 :
834 : #define SK_ENABLED 1
835 :
836 : #if SK5_ENABLED
837 : module procedure test_setCoreHaloArr_D1_SK5
838 : use pm_kind, only: SKC => SK5
839 : #include "test_pm_arrayInit@routines.inc.F90"
840 : end procedure
841 : #endif
842 :
843 : #if SK4_ENABLED
844 : module procedure test_setCoreHaloArr_D1_SK4
845 : use pm_kind, only: SKC => SK4
846 : #include "test_pm_arrayInit@routines.inc.F90"
847 : end procedure
848 : #endif
849 :
850 : #if SK3_ENABLED
851 : module procedure test_setCoreHaloArr_D1_SK3
852 : use pm_kind, only: SKC => SK3
853 : #include "test_pm_arrayInit@routines.inc.F90"
854 : end procedure
855 : #endif
856 :
857 : #if SK2_ENABLED
858 : module procedure test_setCoreHaloArr_D1_SK2
859 : use pm_kind, only: SKC => SK2
860 : #include "test_pm_arrayInit@routines.inc.F90"
861 : end procedure
862 : #endif
863 :
864 : #if SK1_ENABLED
865 1 : module procedure test_setCoreHaloArr_D1_SK1
866 : use pm_kind, only: SKC => SK1
867 : #include "test_pm_arrayInit@routines.inc.F90"
868 : end procedure
869 : #endif
870 :
871 : #undef SK_ENABLED
872 :
873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
874 :
875 : #define IK_ENABLED 1
876 :
877 : #if IK5_ENABLED
878 1 : module procedure test_setCoreHaloArr_D1_IK5
879 : use pm_kind, only: IKC => IK5
880 : #include "test_pm_arrayInit@routines.inc.F90"
881 : end procedure
882 : #endif
883 :
884 : #if IK4_ENABLED
885 1 : module procedure test_setCoreHaloArr_D1_IK4
886 : use pm_kind, only: IKC => IK4
887 : #include "test_pm_arrayInit@routines.inc.F90"
888 : end procedure
889 : #endif
890 :
891 : #if IK3_ENABLED
892 1 : module procedure test_setCoreHaloArr_D1_IK3
893 : use pm_kind, only: IKC => IK3
894 : #include "test_pm_arrayInit@routines.inc.F90"
895 : end procedure
896 : #endif
897 :
898 : #if IK2_ENABLED
899 1 : module procedure test_setCoreHaloArr_D1_IK2
900 : use pm_kind, only: IKC => IK2
901 : #include "test_pm_arrayInit@routines.inc.F90"
902 : end procedure
903 : #endif
904 :
905 : #if IK1_ENABLED
906 1 : module procedure test_setCoreHaloArr_D1_IK1
907 : use pm_kind, only: IKC => IK1
908 : #include "test_pm_arrayInit@routines.inc.F90"
909 : end procedure
910 : #endif
911 :
912 : #undef IK_ENABLED
913 :
914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
915 :
916 : #define LK_ENABLED 1
917 :
918 : #if LK5_ENABLED
919 1 : module procedure test_setCoreHaloArr_D1_LK5
920 : use pm_kind, only: LKC => LK5
921 : #include "test_pm_arrayInit@routines.inc.F90"
922 : end procedure
923 : #endif
924 :
925 : #if LK4_ENABLED
926 1 : module procedure test_setCoreHaloArr_D1_LK4
927 : use pm_kind, only: LKC => LK4
928 : #include "test_pm_arrayInit@routines.inc.F90"
929 : end procedure
930 : #endif
931 :
932 : #if LK3_ENABLED
933 1 : module procedure test_setCoreHaloArr_D1_LK3
934 : use pm_kind, only: LKC => LK3
935 : #include "test_pm_arrayInit@routines.inc.F90"
936 : end procedure
937 : #endif
938 :
939 : #if LK2_ENABLED
940 1 : module procedure test_setCoreHaloArr_D1_LK2
941 : use pm_kind, only: LKC => LK2
942 : #include "test_pm_arrayInit@routines.inc.F90"
943 : end procedure
944 : #endif
945 :
946 : #if LK1_ENABLED
947 1 : module procedure test_setCoreHaloArr_D1_LK1
948 : use pm_kind, only: LKC => LK1
949 : #include "test_pm_arrayInit@routines.inc.F90"
950 : end procedure
951 : #endif
952 :
953 : #undef LK_ENABLED
954 :
955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
956 :
957 : #define CK_ENABLED 1
958 :
959 : #if CK5_ENABLED
960 : module procedure test_setCoreHaloArr_D1_CK5
961 : use pm_kind, only: CKC => CK5
962 : #include "test_pm_arrayInit@routines.inc.F90"
963 : end procedure
964 : #endif
965 :
966 : #if CK4_ENABLED
967 1 : module procedure test_setCoreHaloArr_D1_CK4
968 : use pm_kind, only: CKC => CK4
969 : #include "test_pm_arrayInit@routines.inc.F90"
970 : end procedure
971 : #endif
972 :
973 : #if CK3_ENABLED
974 1 : module procedure test_setCoreHaloArr_D1_CK3
975 : use pm_kind, only: CKC => CK3
976 : #include "test_pm_arrayInit@routines.inc.F90"
977 : end procedure
978 : #endif
979 :
980 : #if CK2_ENABLED
981 1 : module procedure test_setCoreHaloArr_D1_CK2
982 : use pm_kind, only: CKC => CK2
983 : #include "test_pm_arrayInit@routines.inc.F90"
984 : end procedure
985 : #endif
986 :
987 : #if CK1_ENABLED
988 1 : module procedure test_setCoreHaloArr_D1_CK1
989 : use pm_kind, only: CKC => CK1
990 : #include "test_pm_arrayInit@routines.inc.F90"
991 : end procedure
992 : #endif
993 :
994 : #undef CK_ENABLED
995 :
996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997 :
998 : #define RK_ENABLED 1
999 :
1000 : #if RK5_ENABLED
1001 : module procedure test_setCoreHaloArr_D1_RK5
1002 : use pm_kind, only: RKC => RK5
1003 : #include "test_pm_arrayInit@routines.inc.F90"
1004 : end procedure
1005 : #endif
1006 :
1007 : #if RK4_ENABLED
1008 1 : module procedure test_setCoreHaloArr_D1_RK4
1009 : use pm_kind, only: RKC => RK4
1010 : #include "test_pm_arrayInit@routines.inc.F90"
1011 : end procedure
1012 : #endif
1013 :
1014 : #if RK3_ENABLED
1015 1 : module procedure test_setCoreHaloArr_D1_RK3
1016 : use pm_kind, only: RKC => RK3
1017 : #include "test_pm_arrayInit@routines.inc.F90"
1018 : end procedure
1019 : #endif
1020 :
1021 : #if RK2_ENABLED
1022 1 : module procedure test_setCoreHaloArr_D1_RK2
1023 : use pm_kind, only: RKC => RK2
1024 : #include "test_pm_arrayInit@routines.inc.F90"
1025 : end procedure
1026 : #endif
1027 :
1028 : #if RK1_ENABLED
1029 1 : module procedure test_setCoreHaloArr_D1_RK1
1030 : use pm_kind, only: RKC => RK1
1031 : #include "test_pm_arrayInit@routines.inc.F90"
1032 : end procedure
1033 : #endif
1034 :
1035 : #undef RK_ENABLED
1036 :
1037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1038 :
1039 : #undef D1_ENABLED
1040 :
1041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1044 :
1045 : #define D2_ENABLED 1
1046 :
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 :
1049 : #define SK_ENABLED 1
1050 :
1051 : #if SK5_ENABLED
1052 : module procedure test_setCoreHaloArr_D2_SK5
1053 : use pm_kind, only: SKC => SK5
1054 : #include "test_pm_arrayInit@routines.inc.F90"
1055 : end procedure
1056 : #endif
1057 :
1058 : #if SK4_ENABLED
1059 : module procedure test_setCoreHaloArr_D2_SK4
1060 : use pm_kind, only: SKC => SK4
1061 : #include "test_pm_arrayInit@routines.inc.F90"
1062 : end procedure
1063 : #endif
1064 :
1065 : #if SK3_ENABLED
1066 : module procedure test_setCoreHaloArr_D2_SK3
1067 : use pm_kind, only: SKC => SK3
1068 : #include "test_pm_arrayInit@routines.inc.F90"
1069 : end procedure
1070 : #endif
1071 :
1072 : #if SK2_ENABLED
1073 : module procedure test_setCoreHaloArr_D2_SK2
1074 : use pm_kind, only: SKC => SK2
1075 : #include "test_pm_arrayInit@routines.inc.F90"
1076 : end procedure
1077 : #endif
1078 :
1079 : #if SK1_ENABLED
1080 1 : module procedure test_setCoreHaloArr_D2_SK1
1081 : use pm_kind, only: SKC => SK1
1082 : #include "test_pm_arrayInit@routines.inc.F90"
1083 : end procedure
1084 : #endif
1085 :
1086 : #undef SK_ENABLED
1087 :
1088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1089 :
1090 : #define IK_ENABLED 1
1091 :
1092 : #if IK5_ENABLED
1093 1 : module procedure test_setCoreHaloArr_D2_IK5
1094 : use pm_kind, only: IKC => IK5
1095 : #include "test_pm_arrayInit@routines.inc.F90"
1096 : end procedure
1097 : #endif
1098 :
1099 : #if IK4_ENABLED
1100 1 : module procedure test_setCoreHaloArr_D2_IK4
1101 : use pm_kind, only: IKC => IK4
1102 : #include "test_pm_arrayInit@routines.inc.F90"
1103 : end procedure
1104 : #endif
1105 :
1106 : #if IK3_ENABLED
1107 1 : module procedure test_setCoreHaloArr_D2_IK3
1108 : use pm_kind, only: IKC => IK3
1109 : #include "test_pm_arrayInit@routines.inc.F90"
1110 : end procedure
1111 : #endif
1112 :
1113 : #if IK2_ENABLED
1114 1 : module procedure test_setCoreHaloArr_D2_IK2
1115 : use pm_kind, only: IKC => IK2
1116 : #include "test_pm_arrayInit@routines.inc.F90"
1117 : end procedure
1118 : #endif
1119 :
1120 : #if IK1_ENABLED
1121 1 : module procedure test_setCoreHaloArr_D2_IK1
1122 : use pm_kind, only: IKC => IK1
1123 : #include "test_pm_arrayInit@routines.inc.F90"
1124 : end procedure
1125 : #endif
1126 :
1127 : #undef IK_ENABLED
1128 :
1129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1130 :
1131 : #define LK_ENABLED 1
1132 :
1133 : #if LK5_ENABLED
1134 1 : module procedure test_setCoreHaloArr_D2_LK5
1135 : use pm_kind, only: LKC => LK5
1136 : #include "test_pm_arrayInit@routines.inc.F90"
1137 : end procedure
1138 : #endif
1139 :
1140 : #if LK4_ENABLED
1141 1 : module procedure test_setCoreHaloArr_D2_LK4
1142 : use pm_kind, only: LKC => LK4
1143 : #include "test_pm_arrayInit@routines.inc.F90"
1144 : end procedure
1145 : #endif
1146 :
1147 : #if LK3_ENABLED
1148 1 : module procedure test_setCoreHaloArr_D2_LK3
1149 : use pm_kind, only: LKC => LK3
1150 : #include "test_pm_arrayInit@routines.inc.F90"
1151 : end procedure
1152 : #endif
1153 :
1154 : #if LK2_ENABLED
1155 1 : module procedure test_setCoreHaloArr_D2_LK2
1156 : use pm_kind, only: LKC => LK2
1157 : #include "test_pm_arrayInit@routines.inc.F90"
1158 : end procedure
1159 : #endif
1160 :
1161 : #if LK1_ENABLED
1162 1 : module procedure test_setCoreHaloArr_D2_LK1
1163 : use pm_kind, only: LKC => LK1
1164 : #include "test_pm_arrayInit@routines.inc.F90"
1165 : end procedure
1166 : #endif
1167 :
1168 : #undef LK_ENABLED
1169 :
1170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1171 :
1172 : #define CK_ENABLED 1
1173 :
1174 : #if CK5_ENABLED
1175 : module procedure test_setCoreHaloArr_D2_CK5
1176 : use pm_kind, only: CKC => CK5
1177 : #include "test_pm_arrayInit@routines.inc.F90"
1178 : end procedure
1179 : #endif
1180 :
1181 : #if CK4_ENABLED
1182 1 : module procedure test_setCoreHaloArr_D2_CK4
1183 : use pm_kind, only: CKC => CK4
1184 : #include "test_pm_arrayInit@routines.inc.F90"
1185 : end procedure
1186 : #endif
1187 :
1188 : #if CK3_ENABLED
1189 1 : module procedure test_setCoreHaloArr_D2_CK3
1190 : use pm_kind, only: CKC => CK3
1191 : #include "test_pm_arrayInit@routines.inc.F90"
1192 : end procedure
1193 : #endif
1194 :
1195 : #if CK2_ENABLED
1196 1 : module procedure test_setCoreHaloArr_D2_CK2
1197 : use pm_kind, only: CKC => CK2
1198 : #include "test_pm_arrayInit@routines.inc.F90"
1199 : end procedure
1200 : #endif
1201 :
1202 : #if CK1_ENABLED
1203 1 : module procedure test_setCoreHaloArr_D2_CK1
1204 : use pm_kind, only: CKC => CK1
1205 : #include "test_pm_arrayInit@routines.inc.F90"
1206 : end procedure
1207 : #endif
1208 :
1209 : #undef CK_ENABLED
1210 :
1211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212 :
1213 : #define RK_ENABLED 1
1214 :
1215 : #if RK5_ENABLED
1216 : module procedure test_setCoreHaloArr_D2_RK5
1217 : use pm_kind, only: RKC => RK5
1218 : #include "test_pm_arrayInit@routines.inc.F90"
1219 : end procedure
1220 : #endif
1221 :
1222 : #if RK4_ENABLED
1223 1 : module procedure test_setCoreHaloArr_D2_RK4
1224 : use pm_kind, only: RKC => RK4
1225 : #include "test_pm_arrayInit@routines.inc.F90"
1226 : end procedure
1227 : #endif
1228 :
1229 : #if RK3_ENABLED
1230 1 : module procedure test_setCoreHaloArr_D2_RK3
1231 : use pm_kind, only: RKC => RK3
1232 : #include "test_pm_arrayInit@routines.inc.F90"
1233 : end procedure
1234 : #endif
1235 :
1236 : #if RK2_ENABLED
1237 1 : module procedure test_setCoreHaloArr_D2_RK2
1238 : use pm_kind, only: RKC => RK2
1239 : #include "test_pm_arrayInit@routines.inc.F90"
1240 : end procedure
1241 : #endif
1242 :
1243 : #if RK1_ENABLED
1244 1 : module procedure test_setCoreHaloArr_D2_RK1
1245 : use pm_kind, only: RKC => RK1
1246 : #include "test_pm_arrayInit@routines.inc.F90"
1247 : end procedure
1248 : #endif
1249 :
1250 : #undef RK_ENABLED
1251 :
1252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 :
1254 : #undef D2_ENABLED
1255 :
1256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1259 :
1260 : #define D3_ENABLED 1
1261 :
1262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1263 :
1264 : #define SK_ENABLED 1
1265 :
1266 : #if SK5_ENABLED
1267 : module procedure test_setCoreHaloArr_D3_SK5
1268 : use pm_kind, only: SKC => SK5
1269 : #include "test_pm_arrayInit@routines.inc.F90"
1270 : end procedure
1271 : #endif
1272 :
1273 : #if SK4_ENABLED
1274 : module procedure test_setCoreHaloArr_D3_SK4
1275 : use pm_kind, only: SKC => SK4
1276 : #include "test_pm_arrayInit@routines.inc.F90"
1277 : end procedure
1278 : #endif
1279 :
1280 : #if SK3_ENABLED
1281 : module procedure test_setCoreHaloArr_D3_SK3
1282 : use pm_kind, only: SKC => SK3
1283 : #include "test_pm_arrayInit@routines.inc.F90"
1284 : end procedure
1285 : #endif
1286 :
1287 : #if SK2_ENABLED
1288 : module procedure test_setCoreHaloArr_D3_SK2
1289 : use pm_kind, only: SKC => SK2
1290 : #include "test_pm_arrayInit@routines.inc.F90"
1291 : end procedure
1292 : #endif
1293 :
1294 : #if SK1_ENABLED
1295 1 : module procedure test_setCoreHaloArr_D3_SK1
1296 : use pm_kind, only: SKC => SK1
1297 : #include "test_pm_arrayInit@routines.inc.F90"
1298 : end procedure
1299 : #endif
1300 :
1301 : #undef SK_ENABLED
1302 :
1303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1304 :
1305 : #define IK_ENABLED 1
1306 :
1307 : #if IK5_ENABLED
1308 1 : module procedure test_setCoreHaloArr_D3_IK5
1309 : use pm_kind, only: IKC => IK5
1310 : #include "test_pm_arrayInit@routines.inc.F90"
1311 : end procedure
1312 : #endif
1313 :
1314 : #if IK4_ENABLED
1315 1 : module procedure test_setCoreHaloArr_D3_IK4
1316 : use pm_kind, only: IKC => IK4
1317 : #include "test_pm_arrayInit@routines.inc.F90"
1318 : end procedure
1319 : #endif
1320 :
1321 : #if IK3_ENABLED
1322 1 : module procedure test_setCoreHaloArr_D3_IK3
1323 : use pm_kind, only: IKC => IK3
1324 : #include "test_pm_arrayInit@routines.inc.F90"
1325 : end procedure
1326 : #endif
1327 :
1328 : #if IK2_ENABLED
1329 1 : module procedure test_setCoreHaloArr_D3_IK2
1330 : use pm_kind, only: IKC => IK2
1331 : #include "test_pm_arrayInit@routines.inc.F90"
1332 : end procedure
1333 : #endif
1334 :
1335 : #if IK1_ENABLED
1336 1 : module procedure test_setCoreHaloArr_D3_IK1
1337 : use pm_kind, only: IKC => IK1
1338 : #include "test_pm_arrayInit@routines.inc.F90"
1339 : end procedure
1340 : #endif
1341 :
1342 : #undef IK_ENABLED
1343 :
1344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1345 :
1346 : #define LK_ENABLED 1
1347 :
1348 : #if LK5_ENABLED
1349 1 : module procedure test_setCoreHaloArr_D3_LK5
1350 : use pm_kind, only: LKC => LK5
1351 : #include "test_pm_arrayInit@routines.inc.F90"
1352 : end procedure
1353 : #endif
1354 :
1355 : #if LK4_ENABLED
1356 1 : module procedure test_setCoreHaloArr_D3_LK4
1357 : use pm_kind, only: LKC => LK4
1358 : #include "test_pm_arrayInit@routines.inc.F90"
1359 : end procedure
1360 : #endif
1361 :
1362 : #if LK3_ENABLED
1363 1 : module procedure test_setCoreHaloArr_D3_LK3
1364 : use pm_kind, only: LKC => LK3
1365 : #include "test_pm_arrayInit@routines.inc.F90"
1366 : end procedure
1367 : #endif
1368 :
1369 : #if LK2_ENABLED
1370 1 : module procedure test_setCoreHaloArr_D3_LK2
1371 : use pm_kind, only: LKC => LK2
1372 : #include "test_pm_arrayInit@routines.inc.F90"
1373 : end procedure
1374 : #endif
1375 :
1376 : #if LK1_ENABLED
1377 1 : module procedure test_setCoreHaloArr_D3_LK1
1378 : use pm_kind, only: LKC => LK1
1379 : #include "test_pm_arrayInit@routines.inc.F90"
1380 : end procedure
1381 : #endif
1382 :
1383 : #undef LK_ENABLED
1384 :
1385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1386 :
1387 : #define CK_ENABLED 1
1388 :
1389 : #if CK5_ENABLED
1390 : module procedure test_setCoreHaloArr_D3_CK5
1391 : use pm_kind, only: CKC => CK5
1392 : #include "test_pm_arrayInit@routines.inc.F90"
1393 : end procedure
1394 : #endif
1395 :
1396 : #if CK4_ENABLED
1397 1 : module procedure test_setCoreHaloArr_D3_CK4
1398 : use pm_kind, only: CKC => CK4
1399 : #include "test_pm_arrayInit@routines.inc.F90"
1400 : end procedure
1401 : #endif
1402 :
1403 : #if CK3_ENABLED
1404 1 : module procedure test_setCoreHaloArr_D3_CK3
1405 : use pm_kind, only: CKC => CK3
1406 : #include "test_pm_arrayInit@routines.inc.F90"
1407 : end procedure
1408 : #endif
1409 :
1410 : #if CK2_ENABLED
1411 1 : module procedure test_setCoreHaloArr_D3_CK2
1412 : use pm_kind, only: CKC => CK2
1413 : #include "test_pm_arrayInit@routines.inc.F90"
1414 : end procedure
1415 : #endif
1416 :
1417 : #if CK1_ENABLED
1418 1 : module procedure test_setCoreHaloArr_D3_CK1
1419 : use pm_kind, only: CKC => CK1
1420 : #include "test_pm_arrayInit@routines.inc.F90"
1421 : end procedure
1422 : #endif
1423 :
1424 : #undef CK_ENABLED
1425 :
1426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1427 :
1428 : #define RK_ENABLED 1
1429 :
1430 : #if RK5_ENABLED
1431 : module procedure test_setCoreHaloArr_D3_RK5
1432 : use pm_kind, only: RKC => RK5
1433 : #include "test_pm_arrayInit@routines.inc.F90"
1434 : end procedure
1435 : #endif
1436 :
1437 : #if RK4_ENABLED
1438 1 : module procedure test_setCoreHaloArr_D3_RK4
1439 : use pm_kind, only: RKC => RK4
1440 : #include "test_pm_arrayInit@routines.inc.F90"
1441 : end procedure
1442 : #endif
1443 :
1444 : #if RK3_ENABLED
1445 1 : module procedure test_setCoreHaloArr_D3_RK3
1446 : use pm_kind, only: RKC => RK3
1447 : #include "test_pm_arrayInit@routines.inc.F90"
1448 : end procedure
1449 : #endif
1450 :
1451 : #if RK2_ENABLED
1452 1 : module procedure test_setCoreHaloArr_D3_RK2
1453 : use pm_kind, only: RKC => RK2
1454 : #include "test_pm_arrayInit@routines.inc.F90"
1455 : end procedure
1456 : #endif
1457 :
1458 : #if RK1_ENABLED
1459 1 : module procedure test_setCoreHaloArr_D3_RK1
1460 : use pm_kind, only: RKC => RK1
1461 : #include "test_pm_arrayInit@routines.inc.F90"
1462 : end procedure
1463 : #endif
1464 :
1465 : #undef RK_ENABLED
1466 :
1467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1468 :
1469 : #undef D3_ENABLED
1470 :
1471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1474 :
1475 : #undef Arr_ENABLED
1476 :
1477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1480 :
1481 : #define Sca_ENABLED 1
1482 :
1483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1486 :
1487 : #define D0_ENABLED 1
1488 :
1489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1490 :
1491 : #define SK_ENABLED 1
1492 :
1493 : #if SK5_ENABLED
1494 : module procedure test_setCoreHaloSca_D0_SK5
1495 : use pm_kind, only: SKC => SK5
1496 : #include "test_pm_arrayInit@routines.inc.F90"
1497 : end procedure
1498 : #endif
1499 :
1500 : #if SK4_ENABLED
1501 : module procedure test_setCoreHaloSca_D0_SK4
1502 : use pm_kind, only: SKC => SK4
1503 : #include "test_pm_arrayInit@routines.inc.F90"
1504 : end procedure
1505 : #endif
1506 :
1507 : #if SK3_ENABLED
1508 : module procedure test_setCoreHaloSca_D0_SK3
1509 : use pm_kind, only: SKC => SK3
1510 : #include "test_pm_arrayInit@routines.inc.F90"
1511 : end procedure
1512 : #endif
1513 :
1514 : #if SK2_ENABLED
1515 : module procedure test_setCoreHaloSca_D0_SK2
1516 : use pm_kind, only: SKC => SK2
1517 : #include "test_pm_arrayInit@routines.inc.F90"
1518 : end procedure
1519 : #endif
1520 :
1521 : #if SK1_ENABLED
1522 1 : module procedure test_setCoreHaloSca_D0_SK1
1523 : use pm_kind, only: SKC => SK1
1524 : #include "test_pm_arrayInit@routines.inc.F90"
1525 : end procedure
1526 : #endif
1527 :
1528 : #undef SK_ENABLED
1529 :
1530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1531 :
1532 : #undef D0_ENABLED
1533 :
1534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1537 :
1538 : #define D1_ENABLED 1
1539 :
1540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1541 :
1542 : #define SK_ENABLED 1
1543 :
1544 : #if SK5_ENABLED
1545 : module procedure test_setCoreHaloSca_D1_SK5
1546 : use pm_kind, only: SKC => SK5
1547 : #include "test_pm_arrayInit@routines.inc.F90"
1548 : end procedure
1549 : #endif
1550 :
1551 : #if SK4_ENABLED
1552 : module procedure test_setCoreHaloSca_D1_SK4
1553 : use pm_kind, only: SKC => SK4
1554 : #include "test_pm_arrayInit@routines.inc.F90"
1555 : end procedure
1556 : #endif
1557 :
1558 : #if SK3_ENABLED
1559 : module procedure test_setCoreHaloSca_D1_SK3
1560 : use pm_kind, only: SKC => SK3
1561 : #include "test_pm_arrayInit@routines.inc.F90"
1562 : end procedure
1563 : #endif
1564 :
1565 : #if SK2_ENABLED
1566 : module procedure test_setCoreHaloSca_D1_SK2
1567 : use pm_kind, only: SKC => SK2
1568 : #include "test_pm_arrayInit@routines.inc.F90"
1569 : end procedure
1570 : #endif
1571 :
1572 : #if SK1_ENABLED
1573 1 : module procedure test_setCoreHaloSca_D1_SK1
1574 : use pm_kind, only: SKC => SK1
1575 : #include "test_pm_arrayInit@routines.inc.F90"
1576 : end procedure
1577 : #endif
1578 :
1579 : #undef SK_ENABLED
1580 :
1581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1582 :
1583 : #define IK_ENABLED 1
1584 :
1585 : #if IK5_ENABLED
1586 1 : module procedure test_setCoreHaloSca_D1_IK5
1587 : use pm_kind, only: IKC => IK5
1588 : #include "test_pm_arrayInit@routines.inc.F90"
1589 : end procedure
1590 : #endif
1591 :
1592 : #if IK4_ENABLED
1593 1 : module procedure test_setCoreHaloSca_D1_IK4
1594 : use pm_kind, only: IKC => IK4
1595 : #include "test_pm_arrayInit@routines.inc.F90"
1596 : end procedure
1597 : #endif
1598 :
1599 : #if IK3_ENABLED
1600 1 : module procedure test_setCoreHaloSca_D1_IK3
1601 : use pm_kind, only: IKC => IK3
1602 : #include "test_pm_arrayInit@routines.inc.F90"
1603 : end procedure
1604 : #endif
1605 :
1606 : #if IK2_ENABLED
1607 1 : module procedure test_setCoreHaloSca_D1_IK2
1608 : use pm_kind, only: IKC => IK2
1609 : #include "test_pm_arrayInit@routines.inc.F90"
1610 : end procedure
1611 : #endif
1612 :
1613 : #if IK1_ENABLED
1614 1 : module procedure test_setCoreHaloSca_D1_IK1
1615 : use pm_kind, only: IKC => IK1
1616 : #include "test_pm_arrayInit@routines.inc.F90"
1617 : end procedure
1618 : #endif
1619 :
1620 : #undef IK_ENABLED
1621 :
1622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1623 :
1624 : #define LK_ENABLED 1
1625 :
1626 : #if LK5_ENABLED
1627 1 : module procedure test_setCoreHaloSca_D1_LK5
1628 : use pm_kind, only: LKC => LK5
1629 : #include "test_pm_arrayInit@routines.inc.F90"
1630 : end procedure
1631 : #endif
1632 :
1633 : #if LK4_ENABLED
1634 1 : module procedure test_setCoreHaloSca_D1_LK4
1635 : use pm_kind, only: LKC => LK4
1636 : #include "test_pm_arrayInit@routines.inc.F90"
1637 : end procedure
1638 : #endif
1639 :
1640 : #if LK3_ENABLED
1641 1 : module procedure test_setCoreHaloSca_D1_LK3
1642 : use pm_kind, only: LKC => LK3
1643 : #include "test_pm_arrayInit@routines.inc.F90"
1644 : end procedure
1645 : #endif
1646 :
1647 : #if LK2_ENABLED
1648 1 : module procedure test_setCoreHaloSca_D1_LK2
1649 : use pm_kind, only: LKC => LK2
1650 : #include "test_pm_arrayInit@routines.inc.F90"
1651 : end procedure
1652 : #endif
1653 :
1654 : #if LK1_ENABLED
1655 1 : module procedure test_setCoreHaloSca_D1_LK1
1656 : use pm_kind, only: LKC => LK1
1657 : #include "test_pm_arrayInit@routines.inc.F90"
1658 : end procedure
1659 : #endif
1660 :
1661 : #undef LK_ENABLED
1662 :
1663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1664 :
1665 : #define CK_ENABLED 1
1666 :
1667 : #if CK5_ENABLED
1668 : module procedure test_setCoreHaloSca_D1_CK5
1669 : use pm_kind, only: CKC => CK5
1670 : #include "test_pm_arrayInit@routines.inc.F90"
1671 : end procedure
1672 : #endif
1673 :
1674 : #if CK4_ENABLED
1675 1 : module procedure test_setCoreHaloSca_D1_CK4
1676 : use pm_kind, only: CKC => CK4
1677 : #include "test_pm_arrayInit@routines.inc.F90"
1678 : end procedure
1679 : #endif
1680 :
1681 : #if CK3_ENABLED
1682 1 : module procedure test_setCoreHaloSca_D1_CK3
1683 : use pm_kind, only: CKC => CK3
1684 : #include "test_pm_arrayInit@routines.inc.F90"
1685 : end procedure
1686 : #endif
1687 :
1688 : #if CK2_ENABLED
1689 1 : module procedure test_setCoreHaloSca_D1_CK2
1690 : use pm_kind, only: CKC => CK2
1691 : #include "test_pm_arrayInit@routines.inc.F90"
1692 : end procedure
1693 : #endif
1694 :
1695 : #if CK1_ENABLED
1696 1 : module procedure test_setCoreHaloSca_D1_CK1
1697 : use pm_kind, only: CKC => CK1
1698 : #include "test_pm_arrayInit@routines.inc.F90"
1699 : end procedure
1700 : #endif
1701 :
1702 : #undef CK_ENABLED
1703 :
1704 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1705 :
1706 : #define RK_ENABLED 1
1707 :
1708 : #if RK5_ENABLED
1709 : module procedure test_setCoreHaloSca_D1_RK5
1710 : use pm_kind, only: RKC => RK5
1711 : #include "test_pm_arrayInit@routines.inc.F90"
1712 : end procedure
1713 : #endif
1714 :
1715 : #if RK4_ENABLED
1716 1 : module procedure test_setCoreHaloSca_D1_RK4
1717 : use pm_kind, only: RKC => RK4
1718 : #include "test_pm_arrayInit@routines.inc.F90"
1719 : end procedure
1720 : #endif
1721 :
1722 : #if RK3_ENABLED
1723 1 : module procedure test_setCoreHaloSca_D1_RK3
1724 : use pm_kind, only: RKC => RK3
1725 : #include "test_pm_arrayInit@routines.inc.F90"
1726 : end procedure
1727 : #endif
1728 :
1729 : #if RK2_ENABLED
1730 1 : module procedure test_setCoreHaloSca_D1_RK2
1731 : use pm_kind, only: RKC => RK2
1732 : #include "test_pm_arrayInit@routines.inc.F90"
1733 : end procedure
1734 : #endif
1735 :
1736 : #if RK1_ENABLED
1737 1 : module procedure test_setCoreHaloSca_D1_RK1
1738 : use pm_kind, only: RKC => RK1
1739 : #include "test_pm_arrayInit@routines.inc.F90"
1740 : end procedure
1741 : #endif
1742 :
1743 : #undef RK_ENABLED
1744 :
1745 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1746 :
1747 : #undef D1_ENABLED
1748 :
1749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1752 :
1753 : #define D2_ENABLED 1
1754 :
1755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1756 :
1757 : #define SK_ENABLED 1
1758 :
1759 : #if SK5_ENABLED
1760 : module procedure test_setCoreHaloSca_D2_SK5
1761 : use pm_kind, only: SKC => SK5
1762 : #include "test_pm_arrayInit@routines.inc.F90"
1763 : end procedure
1764 : #endif
1765 :
1766 : #if SK4_ENABLED
1767 : module procedure test_setCoreHaloSca_D2_SK4
1768 : use pm_kind, only: SKC => SK4
1769 : #include "test_pm_arrayInit@routines.inc.F90"
1770 : end procedure
1771 : #endif
1772 :
1773 : #if SK3_ENABLED
1774 : module procedure test_setCoreHaloSca_D2_SK3
1775 : use pm_kind, only: SKC => SK3
1776 : #include "test_pm_arrayInit@routines.inc.F90"
1777 : end procedure
1778 : #endif
1779 :
1780 : #if SK2_ENABLED
1781 : module procedure test_setCoreHaloSca_D2_SK2
1782 : use pm_kind, only: SKC => SK2
1783 : #include "test_pm_arrayInit@routines.inc.F90"
1784 : end procedure
1785 : #endif
1786 :
1787 : #if SK1_ENABLED
1788 1 : module procedure test_setCoreHaloSca_D2_SK1
1789 : use pm_kind, only: SKC => SK1
1790 : #include "test_pm_arrayInit@routines.inc.F90"
1791 : end procedure
1792 : #endif
1793 :
1794 : #undef SK_ENABLED
1795 :
1796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1797 :
1798 : #define IK_ENABLED 1
1799 :
1800 : #if IK5_ENABLED
1801 1 : module procedure test_setCoreHaloSca_D2_IK5
1802 : use pm_kind, only: IKC => IK5
1803 : #include "test_pm_arrayInit@routines.inc.F90"
1804 : end procedure
1805 : #endif
1806 :
1807 : #if IK4_ENABLED
1808 1 : module procedure test_setCoreHaloSca_D2_IK4
1809 : use pm_kind, only: IKC => IK4
1810 : #include "test_pm_arrayInit@routines.inc.F90"
1811 : end procedure
1812 : #endif
1813 :
1814 : #if IK3_ENABLED
1815 1 : module procedure test_setCoreHaloSca_D2_IK3
1816 : use pm_kind, only: IKC => IK3
1817 : #include "test_pm_arrayInit@routines.inc.F90"
1818 : end procedure
1819 : #endif
1820 :
1821 : #if IK2_ENABLED
1822 1 : module procedure test_setCoreHaloSca_D2_IK2
1823 : use pm_kind, only: IKC => IK2
1824 : #include "test_pm_arrayInit@routines.inc.F90"
1825 : end procedure
1826 : #endif
1827 :
1828 : #if IK1_ENABLED
1829 1 : module procedure test_setCoreHaloSca_D2_IK1
1830 : use pm_kind, only: IKC => IK1
1831 : #include "test_pm_arrayInit@routines.inc.F90"
1832 : end procedure
1833 : #endif
1834 :
1835 : #undef IK_ENABLED
1836 :
1837 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1838 :
1839 : #define LK_ENABLED 1
1840 :
1841 : #if LK5_ENABLED
1842 1 : module procedure test_setCoreHaloSca_D2_LK5
1843 : use pm_kind, only: LKC => LK5
1844 : #include "test_pm_arrayInit@routines.inc.F90"
1845 : end procedure
1846 : #endif
1847 :
1848 : #if LK4_ENABLED
1849 1 : module procedure test_setCoreHaloSca_D2_LK4
1850 : use pm_kind, only: LKC => LK4
1851 : #include "test_pm_arrayInit@routines.inc.F90"
1852 : end procedure
1853 : #endif
1854 :
1855 : #if LK3_ENABLED
1856 1 : module procedure test_setCoreHaloSca_D2_LK3
1857 : use pm_kind, only: LKC => LK3
1858 : #include "test_pm_arrayInit@routines.inc.F90"
1859 : end procedure
1860 : #endif
1861 :
1862 : #if LK2_ENABLED
1863 1 : module procedure test_setCoreHaloSca_D2_LK2
1864 : use pm_kind, only: LKC => LK2
1865 : #include "test_pm_arrayInit@routines.inc.F90"
1866 : end procedure
1867 : #endif
1868 :
1869 : #if LK1_ENABLED
1870 1 : module procedure test_setCoreHaloSca_D2_LK1
1871 : use pm_kind, only: LKC => LK1
1872 : #include "test_pm_arrayInit@routines.inc.F90"
1873 : end procedure
1874 : #endif
1875 :
1876 : #undef LK_ENABLED
1877 :
1878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1879 :
1880 : #define CK_ENABLED 1
1881 :
1882 : #if CK5_ENABLED
1883 : module procedure test_setCoreHaloSca_D2_CK5
1884 : use pm_kind, only: CKC => CK5
1885 : #include "test_pm_arrayInit@routines.inc.F90"
1886 : end procedure
1887 : #endif
1888 :
1889 : #if CK4_ENABLED
1890 1 : module procedure test_setCoreHaloSca_D2_CK4
1891 : use pm_kind, only: CKC => CK4
1892 : #include "test_pm_arrayInit@routines.inc.F90"
1893 : end procedure
1894 : #endif
1895 :
1896 : #if CK3_ENABLED
1897 1 : module procedure test_setCoreHaloSca_D2_CK3
1898 : use pm_kind, only: CKC => CK3
1899 : #include "test_pm_arrayInit@routines.inc.F90"
1900 : end procedure
1901 : #endif
1902 :
1903 : #if CK2_ENABLED
1904 1 : module procedure test_setCoreHaloSca_D2_CK2
1905 : use pm_kind, only: CKC => CK2
1906 : #include "test_pm_arrayInit@routines.inc.F90"
1907 : end procedure
1908 : #endif
1909 :
1910 : #if CK1_ENABLED
1911 1 : module procedure test_setCoreHaloSca_D2_CK1
1912 : use pm_kind, only: CKC => CK1
1913 : #include "test_pm_arrayInit@routines.inc.F90"
1914 : end procedure
1915 : #endif
1916 :
1917 : #undef CK_ENABLED
1918 :
1919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1920 :
1921 : #define RK_ENABLED 1
1922 :
1923 : #if RK5_ENABLED
1924 : module procedure test_setCoreHaloSca_D2_RK5
1925 : use pm_kind, only: RKC => RK5
1926 : #include "test_pm_arrayInit@routines.inc.F90"
1927 : end procedure
1928 : #endif
1929 :
1930 : #if RK4_ENABLED
1931 1 : module procedure test_setCoreHaloSca_D2_RK4
1932 : use pm_kind, only: RKC => RK4
1933 : #include "test_pm_arrayInit@routines.inc.F90"
1934 : end procedure
1935 : #endif
1936 :
1937 : #if RK3_ENABLED
1938 1 : module procedure test_setCoreHaloSca_D2_RK3
1939 : use pm_kind, only: RKC => RK3
1940 : #include "test_pm_arrayInit@routines.inc.F90"
1941 : end procedure
1942 : #endif
1943 :
1944 : #if RK2_ENABLED
1945 1 : module procedure test_setCoreHaloSca_D2_RK2
1946 : use pm_kind, only: RKC => RK2
1947 : #include "test_pm_arrayInit@routines.inc.F90"
1948 : end procedure
1949 : #endif
1950 :
1951 : #if RK1_ENABLED
1952 1 : module procedure test_setCoreHaloSca_D2_RK1
1953 : use pm_kind, only: RKC => RK1
1954 : #include "test_pm_arrayInit@routines.inc.F90"
1955 : end procedure
1956 : #endif
1957 :
1958 : #undef RK_ENABLED
1959 :
1960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1961 :
1962 : #undef D2_ENABLED
1963 :
1964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1967 :
1968 : #define D3_ENABLED 1
1969 :
1970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1971 :
1972 : #define SK_ENABLED 1
1973 :
1974 : #if SK5_ENABLED
1975 : module procedure test_setCoreHaloSca_D3_SK5
1976 : use pm_kind, only: SKC => SK5
1977 : #include "test_pm_arrayInit@routines.inc.F90"
1978 : end procedure
1979 : #endif
1980 :
1981 : #if SK4_ENABLED
1982 : module procedure test_setCoreHaloSca_D3_SK4
1983 : use pm_kind, only: SKC => SK4
1984 : #include "test_pm_arrayInit@routines.inc.F90"
1985 : end procedure
1986 : #endif
1987 :
1988 : #if SK3_ENABLED
1989 : module procedure test_setCoreHaloSca_D3_SK3
1990 : use pm_kind, only: SKC => SK3
1991 : #include "test_pm_arrayInit@routines.inc.F90"
1992 : end procedure
1993 : #endif
1994 :
1995 : #if SK2_ENABLED
1996 : module procedure test_setCoreHaloSca_D3_SK2
1997 : use pm_kind, only: SKC => SK2
1998 : #include "test_pm_arrayInit@routines.inc.F90"
1999 : end procedure
2000 : #endif
2001 :
2002 : #if SK1_ENABLED
2003 1 : module procedure test_setCoreHaloSca_D3_SK1
2004 : use pm_kind, only: SKC => SK1
2005 : #include "test_pm_arrayInit@routines.inc.F90"
2006 : end procedure
2007 : #endif
2008 :
2009 : #undef SK_ENABLED
2010 :
2011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2012 :
2013 : #define IK_ENABLED 1
2014 :
2015 : #if IK5_ENABLED
2016 1 : module procedure test_setCoreHaloSca_D3_IK5
2017 : use pm_kind, only: IKC => IK5
2018 : #include "test_pm_arrayInit@routines.inc.F90"
2019 : end procedure
2020 : #endif
2021 :
2022 : #if IK4_ENABLED
2023 1 : module procedure test_setCoreHaloSca_D3_IK4
2024 : use pm_kind, only: IKC => IK4
2025 : #include "test_pm_arrayInit@routines.inc.F90"
2026 : end procedure
2027 : #endif
2028 :
2029 : #if IK3_ENABLED
2030 1 : module procedure test_setCoreHaloSca_D3_IK3
2031 : use pm_kind, only: IKC => IK3
2032 : #include "test_pm_arrayInit@routines.inc.F90"
2033 : end procedure
2034 : #endif
2035 :
2036 : #if IK2_ENABLED
2037 1 : module procedure test_setCoreHaloSca_D3_IK2
2038 : use pm_kind, only: IKC => IK2
2039 : #include "test_pm_arrayInit@routines.inc.F90"
2040 : end procedure
2041 : #endif
2042 :
2043 : #if IK1_ENABLED
2044 1 : module procedure test_setCoreHaloSca_D3_IK1
2045 : use pm_kind, only: IKC => IK1
2046 : #include "test_pm_arrayInit@routines.inc.F90"
2047 : end procedure
2048 : #endif
2049 :
2050 : #undef IK_ENABLED
2051 :
2052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2053 :
2054 : #define LK_ENABLED 1
2055 :
2056 : #if LK5_ENABLED
2057 1 : module procedure test_setCoreHaloSca_D3_LK5
2058 : use pm_kind, only: LKC => LK5
2059 : #include "test_pm_arrayInit@routines.inc.F90"
2060 : end procedure
2061 : #endif
2062 :
2063 : #if LK4_ENABLED
2064 1 : module procedure test_setCoreHaloSca_D3_LK4
2065 : use pm_kind, only: LKC => LK4
2066 : #include "test_pm_arrayInit@routines.inc.F90"
2067 : end procedure
2068 : #endif
2069 :
2070 : #if LK3_ENABLED
2071 1 : module procedure test_setCoreHaloSca_D3_LK3
2072 : use pm_kind, only: LKC => LK3
2073 : #include "test_pm_arrayInit@routines.inc.F90"
2074 : end procedure
2075 : #endif
2076 :
2077 : #if LK2_ENABLED
2078 1 : module procedure test_setCoreHaloSca_D3_LK2
2079 : use pm_kind, only: LKC => LK2
2080 : #include "test_pm_arrayInit@routines.inc.F90"
2081 : end procedure
2082 : #endif
2083 :
2084 : #if LK1_ENABLED
2085 1 : module procedure test_setCoreHaloSca_D3_LK1
2086 : use pm_kind, only: LKC => LK1
2087 : #include "test_pm_arrayInit@routines.inc.F90"
2088 : end procedure
2089 : #endif
2090 :
2091 : #undef LK_ENABLED
2092 :
2093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2094 :
2095 : #define CK_ENABLED 1
2096 :
2097 : #if CK5_ENABLED
2098 : module procedure test_setCoreHaloSca_D3_CK5
2099 : use pm_kind, only: CKC => CK5
2100 : #include "test_pm_arrayInit@routines.inc.F90"
2101 : end procedure
2102 : #endif
2103 :
2104 : #if CK4_ENABLED
2105 1 : module procedure test_setCoreHaloSca_D3_CK4
2106 : use pm_kind, only: CKC => CK4
2107 : #include "test_pm_arrayInit@routines.inc.F90"
2108 : end procedure
2109 : #endif
2110 :
2111 : #if CK3_ENABLED
2112 1 : module procedure test_setCoreHaloSca_D3_CK3
2113 : use pm_kind, only: CKC => CK3
2114 : #include "test_pm_arrayInit@routines.inc.F90"
2115 : end procedure
2116 : #endif
2117 :
2118 : #if CK2_ENABLED
2119 1 : module procedure test_setCoreHaloSca_D3_CK2
2120 : use pm_kind, only: CKC => CK2
2121 : #include "test_pm_arrayInit@routines.inc.F90"
2122 : end procedure
2123 : #endif
2124 :
2125 : #if CK1_ENABLED
2126 1 : module procedure test_setCoreHaloSca_D3_CK1
2127 : use pm_kind, only: CKC => CK1
2128 : #include "test_pm_arrayInit@routines.inc.F90"
2129 : end procedure
2130 : #endif
2131 :
2132 : #undef CK_ENABLED
2133 :
2134 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2135 :
2136 : #define RK_ENABLED 1
2137 :
2138 : #if RK5_ENABLED
2139 : module procedure test_setCoreHaloSca_D3_RK5
2140 : use pm_kind, only: RKC => RK5
2141 : #include "test_pm_arrayInit@routines.inc.F90"
2142 : end procedure
2143 : #endif
2144 :
2145 : #if RK4_ENABLED
2146 1 : module procedure test_setCoreHaloSca_D3_RK4
2147 : use pm_kind, only: RKC => RK4
2148 : #include "test_pm_arrayInit@routines.inc.F90"
2149 : end procedure
2150 : #endif
2151 :
2152 : #if RK3_ENABLED
2153 1 : module procedure test_setCoreHaloSca_D3_RK3
2154 : use pm_kind, only: RKC => RK3
2155 : #include "test_pm_arrayInit@routines.inc.F90"
2156 : end procedure
2157 : #endif
2158 :
2159 : #if RK2_ENABLED
2160 1 : module procedure test_setCoreHaloSca_D3_RK2
2161 : use pm_kind, only: RKC => RK2
2162 : #include "test_pm_arrayInit@routines.inc.F90"
2163 : end procedure
2164 : #endif
2165 :
2166 : #if RK1_ENABLED
2167 1 : module procedure test_setCoreHaloSca_D3_RK1
2168 : use pm_kind, only: RKC => RK1
2169 : #include "test_pm_arrayInit@routines.inc.F90"
2170 : end procedure
2171 : #endif
2172 :
2173 : #undef RK_ENABLED
2174 :
2175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2176 :
2177 : #undef D3_ENABLED
2178 :
2179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2182 :
2183 : #undef Sca_ENABLED
2184 :
2185 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2188 :
2189 : #undef setCoreHalo_ENABLED
2190 :
2191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2192 :
2193 : end submodule routines
|
