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 [pm_sampleVar](@ref pm_sampleVar).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Monday March 6, 2017, 2:48 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin.<br>
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_sampleVar) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : use pm_sampleMean, only: getMean
40 : use pm_complexMinMax, only: minval, maxval
41 : use pm_complexCompareAll, only: operator(<=)
42 : implicit none
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : contains
47 :
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 :
50 : #define getVarCorrection_ENABLED 1
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 :
56 : #define Freq_ENABLED 1
57 :
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 :
60 : #define RK_ENABLED 1
61 :
62 : #if RK5_ENABLED
63 : module procedure getVarCorrectionFreq_RK5
64 : use pm_kind, only: TKC => RK5
65 : #include "pm_sampleVar@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if RK4_ENABLED
70 2110 : module procedure getVarCorrectionFreq_RK4
71 : use pm_kind, only: TKC => RK4
72 : #include "pm_sampleVar@routines.inc.F90"
73 2110 : end procedure
74 : #endif
75 :
76 : #if RK3_ENABLED
77 2110 : module procedure getVarCorrectionFreq_RK3
78 : use pm_kind, only: TKC => RK3
79 : #include "pm_sampleVar@routines.inc.F90"
80 2110 : end procedure
81 : #endif
82 :
83 : #if RK2_ENABLED
84 3110 : module procedure getVarCorrectionFreq_RK2
85 : use pm_kind, only: TKC => RK2
86 : #include "pm_sampleVar@routines.inc.F90"
87 3110 : end procedure
88 : #endif
89 :
90 : #if RK1_ENABLED
91 2145 : module procedure getVarCorrectionFreq_RK1
92 : use pm_kind, only: TKC => RK1
93 : #include "pm_sampleVar@routines.inc.F90"
94 2145 : end procedure
95 : #endif
96 :
97 : #undef RK_ENABLED
98 :
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 :
101 : #undef Freq_ENABLED
102 :
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
106 :
107 : #define Reli_ENABLED 1
108 :
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 :
111 : #define RK_ENABLED 1
112 :
113 : #if RK5_ENABLED
114 : module procedure getVarCorrectionReli_RK5
115 : use pm_kind, only: TKC => RK5
116 : #include "pm_sampleVar@routines.inc.F90"
117 : end procedure
118 : #endif
119 :
120 : #if RK4_ENABLED
121 1210 : module procedure getVarCorrectionReli_RK4
122 : use pm_kind, only: TKC => RK4
123 : #include "pm_sampleVar@routines.inc.F90"
124 1210 : end procedure
125 : #endif
126 :
127 : #if RK3_ENABLED
128 1210 : module procedure getVarCorrectionReli_RK3
129 : use pm_kind, only: TKC => RK3
130 : #include "pm_sampleVar@routines.inc.F90"
131 1210 : end procedure
132 : #endif
133 :
134 : #if RK2_ENABLED
135 1210 : module procedure getVarCorrectionReli_RK2
136 : use pm_kind, only: TKC => RK2
137 : #include "pm_sampleVar@routines.inc.F90"
138 1210 : end procedure
139 : #endif
140 :
141 : #if RK1_ENABLED
142 1225 : module procedure getVarCorrectionReli_RK1
143 : use pm_kind, only: TKC => RK1
144 : #include "pm_sampleVar@routines.inc.F90"
145 1225 : end procedure
146 : #endif
147 :
148 : #undef RK_ENABLED
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : #undef Reli_ENABLED
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #undef getVarCorrection_ENABLED
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 :
162 : #define getVar_ENABLED 1
163 :
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 :
168 : #define ALL_ENABLED 1
169 :
170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 :
174 : #define WNO_ENABLED 1
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179 :
180 : #define D1_ENABLED 1
181 :
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 :
184 : #define CK_ENABLED 1
185 :
186 : #if CK5_ENABLED
187 : module procedure getVarALL_WNO_D1_CK5
188 : use pm_kind, only: TKC => CK5
189 : #include "pm_sampleVar@routines.inc.F90"
190 : end procedure
191 : #endif
192 :
193 : #if CK4_ENABLED
194 150 : module procedure getVarALL_WNO_D1_CK4
195 : use pm_kind, only: TKC => CK4
196 : #include "pm_sampleVar@routines.inc.F90"
197 150 : end procedure
198 : #endif
199 :
200 : #if CK3_ENABLED
201 150 : module procedure getVarALL_WNO_D1_CK3
202 : use pm_kind, only: TKC => CK3
203 : #include "pm_sampleVar@routines.inc.F90"
204 150 : end procedure
205 : #endif
206 :
207 : #if CK2_ENABLED
208 150 : module procedure getVarALL_WNO_D1_CK2
209 : use pm_kind, only: TKC => CK2
210 : #include "pm_sampleVar@routines.inc.F90"
211 150 : end procedure
212 : #endif
213 :
214 : #if CK1_ENABLED
215 196 : module procedure getVarALL_WNO_D1_CK1
216 : use pm_kind, only: TKC => CK1
217 : #include "pm_sampleVar@routines.inc.F90"
218 196 : end procedure
219 : #endif
220 :
221 : #undef CK_ENABLED
222 :
223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224 :
225 : #define RK_ENABLED 1
226 :
227 : #if RK5_ENABLED
228 : module procedure getVarALL_WNO_D1_RK5
229 : use pm_kind, only: TKC => RK5
230 : #include "pm_sampleVar@routines.inc.F90"
231 : end procedure
232 : #endif
233 :
234 : #if RK4_ENABLED
235 150 : module procedure getVarALL_WNO_D1_RK4
236 : use pm_kind, only: TKC => RK4
237 : #include "pm_sampleVar@routines.inc.F90"
238 150 : end procedure
239 : #endif
240 :
241 : #if RK3_ENABLED
242 150 : module procedure getVarALL_WNO_D1_RK3
243 : use pm_kind, only: TKC => RK3
244 : #include "pm_sampleVar@routines.inc.F90"
245 150 : end procedure
246 : #endif
247 :
248 : #if RK2_ENABLED
249 196 : module procedure getVarALL_WNO_D1_RK2
250 : use pm_kind, only: TKC => RK2
251 : #include "pm_sampleVar@routines.inc.F90"
252 196 : end procedure
253 : #endif
254 :
255 : #if RK1_ENABLED
256 229 : module procedure getVarALL_WNO_D1_RK1
257 : use pm_kind, only: TKC => RK1
258 : #include "pm_sampleVar@routines.inc.F90"
259 229 : end procedure
260 : #endif
261 :
262 : #undef RK_ENABLED
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #undef D1_ENABLED
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : #define D2_ENABLED 1
273 :
274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275 :
276 : #define CK_ENABLED 1
277 :
278 : #if CK5_ENABLED
279 : module procedure getVarALL_WNO_D2_CK5
280 : use pm_kind, only: TKC => CK5
281 : #include "pm_sampleVar@routines.inc.F90"
282 : end procedure
283 : #endif
284 :
285 : #if CK4_ENABLED
286 150 : module procedure getVarALL_WNO_D2_CK4
287 : use pm_kind, only: TKC => CK4
288 : #include "pm_sampleVar@routines.inc.F90"
289 150 : end procedure
290 : #endif
291 :
292 : #if CK3_ENABLED
293 150 : module procedure getVarALL_WNO_D2_CK3
294 : use pm_kind, only: TKC => CK3
295 : #include "pm_sampleVar@routines.inc.F90"
296 150 : end procedure
297 : #endif
298 :
299 : #if CK2_ENABLED
300 150 : module procedure getVarALL_WNO_D2_CK2
301 : use pm_kind, only: TKC => CK2
302 : #include "pm_sampleVar@routines.inc.F90"
303 150 : end procedure
304 : #endif
305 :
306 : #if CK1_ENABLED
307 154 : module procedure getVarALL_WNO_D2_CK1
308 : use pm_kind, only: TKC => CK1
309 : #include "pm_sampleVar@routines.inc.F90"
310 154 : end procedure
311 : #endif
312 :
313 : #undef CK_ENABLED
314 :
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 :
317 : #define RK_ENABLED 1
318 :
319 : #if RK5_ENABLED
320 : module procedure getVarALL_WNO_D2_RK5
321 : use pm_kind, only: TKC => RK5
322 : #include "pm_sampleVar@routines.inc.F90"
323 : end procedure
324 : #endif
325 :
326 : #if RK4_ENABLED
327 150 : module procedure getVarALL_WNO_D2_RK4
328 : use pm_kind, only: TKC => RK4
329 : #include "pm_sampleVar@routines.inc.F90"
330 150 : end procedure
331 : #endif
332 :
333 : #if RK3_ENABLED
334 150 : module procedure getVarALL_WNO_D2_RK3
335 : use pm_kind, only: TKC => RK3
336 : #include "pm_sampleVar@routines.inc.F90"
337 150 : end procedure
338 : #endif
339 :
340 : #if RK2_ENABLED
341 150 : module procedure getVarALL_WNO_D2_RK2
342 : use pm_kind, only: TKC => RK2
343 : #include "pm_sampleVar@routines.inc.F90"
344 150 : end procedure
345 : #endif
346 :
347 : #if RK1_ENABLED
348 154 : module procedure getVarALL_WNO_D2_RK1
349 : use pm_kind, only: TKC => RK1
350 : #include "pm_sampleVar@routines.inc.F90"
351 154 : end procedure
352 : #endif
353 :
354 : #undef RK_ENABLED
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 :
358 : #undef D2_ENABLED
359 :
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 :
364 : #undef WNO_ENABLED
365 :
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 :
370 : #define WTI_ENABLED 1
371 :
372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375 :
376 : #define D1_ENABLED 1
377 :
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 :
380 : #define CK_ENABLED 1
381 :
382 : #if CK5_ENABLED
383 : module procedure getVarALL_WTI_D1_CK5
384 : use pm_kind, only: TKC => CK5
385 : #include "pm_sampleVar@routines.inc.F90"
386 : end procedure
387 : #endif
388 :
389 : #if CK4_ENABLED
390 150 : module procedure getVarALL_WTI_D1_CK4
391 : use pm_kind, only: TKC => CK4
392 : #include "pm_sampleVar@routines.inc.F90"
393 150 : end procedure
394 : #endif
395 :
396 : #if CK3_ENABLED
397 150 : module procedure getVarALL_WTI_D1_CK3
398 : use pm_kind, only: TKC => CK3
399 : #include "pm_sampleVar@routines.inc.F90"
400 150 : end procedure
401 : #endif
402 :
403 : #if CK2_ENABLED
404 150 : module procedure getVarALL_WTI_D1_CK2
405 : use pm_kind, only: TKC => CK2
406 : #include "pm_sampleVar@routines.inc.F90"
407 150 : end procedure
408 : #endif
409 :
410 : #if CK1_ENABLED
411 180 : module procedure getVarALL_WTI_D1_CK1
412 : use pm_kind, only: TKC => CK1
413 : #include "pm_sampleVar@routines.inc.F90"
414 180 : end procedure
415 : #endif
416 :
417 : #undef CK_ENABLED
418 :
419 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420 :
421 : #define RK_ENABLED 1
422 :
423 : #if RK5_ENABLED
424 : module procedure getVarALL_WTI_D1_RK5
425 : use pm_kind, only: TKC => RK5
426 : #include "pm_sampleVar@routines.inc.F90"
427 : end procedure
428 : #endif
429 :
430 : #if RK4_ENABLED
431 150 : module procedure getVarALL_WTI_D1_RK4
432 : use pm_kind, only: TKC => RK4
433 : #include "pm_sampleVar@routines.inc.F90"
434 150 : end procedure
435 : #endif
436 :
437 : #if RK3_ENABLED
438 150 : module procedure getVarALL_WTI_D1_RK3
439 : use pm_kind, only: TKC => RK3
440 : #include "pm_sampleVar@routines.inc.F90"
441 150 : end procedure
442 : #endif
443 :
444 : #if RK2_ENABLED
445 150 : module procedure getVarALL_WTI_D1_RK2
446 : use pm_kind, only: TKC => RK2
447 : #include "pm_sampleVar@routines.inc.F90"
448 150 : end procedure
449 : #endif
450 :
451 : #if RK1_ENABLED
452 210 : module procedure getVarALL_WTI_D1_RK1
453 : use pm_kind, only: TKC => RK1
454 : #include "pm_sampleVar@routines.inc.F90"
455 210 : end procedure
456 : #endif
457 :
458 : #undef RK_ENABLED
459 :
460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461 :
462 : #undef D1_ENABLED
463 :
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #define D2_ENABLED 1
469 :
470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471 :
472 : #define CK_ENABLED 1
473 :
474 : #if CK5_ENABLED
475 : module procedure getVarALL_WTI_D2_CK5
476 : use pm_kind, only: TKC => CK5
477 : #include "pm_sampleVar@routines.inc.F90"
478 : end procedure
479 : #endif
480 :
481 : #if CK4_ENABLED
482 150 : module procedure getVarALL_WTI_D2_CK4
483 : use pm_kind, only: TKC => CK4
484 : #include "pm_sampleVar@routines.inc.F90"
485 150 : end procedure
486 : #endif
487 :
488 : #if CK3_ENABLED
489 150 : module procedure getVarALL_WTI_D2_CK3
490 : use pm_kind, only: TKC => CK3
491 : #include "pm_sampleVar@routines.inc.F90"
492 150 : end procedure
493 : #endif
494 :
495 : #if CK2_ENABLED
496 150 : module procedure getVarALL_WTI_D2_CK2
497 : use pm_kind, only: TKC => CK2
498 : #include "pm_sampleVar@routines.inc.F90"
499 150 : end procedure
500 : #endif
501 :
502 : #if CK1_ENABLED
503 150 : module procedure getVarALL_WTI_D2_CK1
504 : use pm_kind, only: TKC => CK1
505 : #include "pm_sampleVar@routines.inc.F90"
506 150 : end procedure
507 : #endif
508 :
509 : #undef CK_ENABLED
510 :
511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 :
513 : #define RK_ENABLED 1
514 :
515 : #if RK5_ENABLED
516 : module procedure getVarALL_WTI_D2_RK5
517 : use pm_kind, only: TKC => RK5
518 : #include "pm_sampleVar@routines.inc.F90"
519 : end procedure
520 : #endif
521 :
522 : #if RK4_ENABLED
523 150 : module procedure getVarALL_WTI_D2_RK4
524 : use pm_kind, only: TKC => RK4
525 : #include "pm_sampleVar@routines.inc.F90"
526 150 : end procedure
527 : #endif
528 :
529 : #if RK3_ENABLED
530 150 : module procedure getVarALL_WTI_D2_RK3
531 : use pm_kind, only: TKC => RK3
532 : #include "pm_sampleVar@routines.inc.F90"
533 150 : end procedure
534 : #endif
535 :
536 : #if RK2_ENABLED
537 150 : module procedure getVarALL_WTI_D2_RK2
538 : use pm_kind, only: TKC => RK2
539 : #include "pm_sampleVar@routines.inc.F90"
540 150 : end procedure
541 : #endif
542 :
543 : #if RK1_ENABLED
544 151 : module procedure getVarALL_WTI_D2_RK1
545 : use pm_kind, only: TKC => RK1
546 : #include "pm_sampleVar@routines.inc.F90"
547 151 : end procedure
548 : #endif
549 :
550 : #undef RK_ENABLED
551 :
552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 :
554 : #undef D2_ENABLED
555 :
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 :
560 : #undef WTI_ENABLED
561 :
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
565 :
566 : #define WTR_ENABLED 1
567 :
568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
571 :
572 : #define D1_ENABLED 1
573 :
574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575 :
576 : #define CK_ENABLED 1
577 :
578 : #if CK5_ENABLED
579 : module procedure getVarALL_WTR_D1_CK5
580 : use pm_kind, only: TKC => CK5
581 : #include "pm_sampleVar@routines.inc.F90"
582 : end procedure
583 : #endif
584 :
585 : #if CK4_ENABLED
586 150 : module procedure getVarALL_WTR_D1_CK4
587 : use pm_kind, only: TKC => CK4
588 : #include "pm_sampleVar@routines.inc.F90"
589 150 : end procedure
590 : #endif
591 :
592 : #if CK3_ENABLED
593 150 : module procedure getVarALL_WTR_D1_CK3
594 : use pm_kind, only: TKC => CK3
595 : #include "pm_sampleVar@routines.inc.F90"
596 150 : end procedure
597 : #endif
598 :
599 : #if CK2_ENABLED
600 150 : module procedure getVarALL_WTR_D1_CK2
601 : use pm_kind, only: TKC => CK2
602 : #include "pm_sampleVar@routines.inc.F90"
603 150 : end procedure
604 : #endif
605 :
606 : #if CK1_ENABLED
607 181 : module procedure getVarALL_WTR_D1_CK1
608 : use pm_kind, only: TKC => CK1
609 : #include "pm_sampleVar@routines.inc.F90"
610 181 : end procedure
611 : #endif
612 :
613 : #undef CK_ENABLED
614 :
615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
616 :
617 : #define RK_ENABLED 1
618 :
619 : #if RK5_ENABLED
620 : module procedure getVarALL_WTR_D1_RK5
621 : use pm_kind, only: TKC => RK5
622 : #include "pm_sampleVar@routines.inc.F90"
623 : end procedure
624 : #endif
625 :
626 : #if RK4_ENABLED
627 150 : module procedure getVarALL_WTR_D1_RK4
628 : use pm_kind, only: TKC => RK4
629 : #include "pm_sampleVar@routines.inc.F90"
630 150 : end procedure
631 : #endif
632 :
633 : #if RK3_ENABLED
634 150 : module procedure getVarALL_WTR_D1_RK3
635 : use pm_kind, only: TKC => RK3
636 : #include "pm_sampleVar@routines.inc.F90"
637 150 : end procedure
638 : #endif
639 :
640 : #if RK2_ENABLED
641 150 : module procedure getVarALL_WTR_D1_RK2
642 : use pm_kind, only: TKC => RK2
643 : #include "pm_sampleVar@routines.inc.F90"
644 150 : end procedure
645 : #endif
646 :
647 : #if RK1_ENABLED
648 214 : module procedure getVarALL_WTR_D1_RK1
649 : use pm_kind, only: TKC => RK1
650 : #include "pm_sampleVar@routines.inc.F90"
651 214 : end procedure
652 : #endif
653 :
654 : #undef RK_ENABLED
655 :
656 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
657 :
658 : #undef D1_ENABLED
659 :
660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 :
664 : #define D2_ENABLED 1
665 :
666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 :
668 : #define CK_ENABLED 1
669 :
670 : #if CK5_ENABLED
671 : module procedure getVarALL_WTR_D2_CK5
672 : use pm_kind, only: TKC => CK5
673 : #include "pm_sampleVar@routines.inc.F90"
674 : end procedure
675 : #endif
676 :
677 : #if CK4_ENABLED
678 150 : module procedure getVarALL_WTR_D2_CK4
679 : use pm_kind, only: TKC => CK4
680 : #include "pm_sampleVar@routines.inc.F90"
681 150 : end procedure
682 : #endif
683 :
684 : #if CK3_ENABLED
685 150 : module procedure getVarALL_WTR_D2_CK3
686 : use pm_kind, only: TKC => CK3
687 : #include "pm_sampleVar@routines.inc.F90"
688 150 : end procedure
689 : #endif
690 :
691 : #if CK2_ENABLED
692 150 : module procedure getVarALL_WTR_D2_CK2
693 : use pm_kind, only: TKC => CK2
694 : #include "pm_sampleVar@routines.inc.F90"
695 150 : end procedure
696 : #endif
697 :
698 : #if CK1_ENABLED
699 150 : module procedure getVarALL_WTR_D2_CK1
700 : use pm_kind, only: TKC => CK1
701 : #include "pm_sampleVar@routines.inc.F90"
702 150 : end procedure
703 : #endif
704 :
705 : #undef CK_ENABLED
706 :
707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
708 :
709 : #define RK_ENABLED 1
710 :
711 : #if RK5_ENABLED
712 : module procedure getVarALL_WTR_D2_RK5
713 : use pm_kind, only: TKC => RK5
714 : #include "pm_sampleVar@routines.inc.F90"
715 : end procedure
716 : #endif
717 :
718 : #if RK4_ENABLED
719 150 : module procedure getVarALL_WTR_D2_RK4
720 : use pm_kind, only: TKC => RK4
721 : #include "pm_sampleVar@routines.inc.F90"
722 150 : end procedure
723 : #endif
724 :
725 : #if RK3_ENABLED
726 150 : module procedure getVarALL_WTR_D2_RK3
727 : use pm_kind, only: TKC => RK3
728 : #include "pm_sampleVar@routines.inc.F90"
729 150 : end procedure
730 : #endif
731 :
732 : #if RK2_ENABLED
733 150 : module procedure getVarALL_WTR_D2_RK2
734 : use pm_kind, only: TKC => RK2
735 : #include "pm_sampleVar@routines.inc.F90"
736 150 : end procedure
737 : #endif
738 :
739 : #if RK1_ENABLED
740 154 : module procedure getVarALL_WTR_D2_RK1
741 : use pm_kind, only: TKC => RK1
742 : #include "pm_sampleVar@routines.inc.F90"
743 154 : end procedure
744 : #endif
745 :
746 : #undef RK_ENABLED
747 :
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 :
750 : #undef D2_ENABLED
751 :
752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755 :
756 : #undef WTR_ENABLED
757 :
758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
759 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 :
762 : #undef ALL_ENABLED
763 :
764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 :
768 : #undef getVar_ENABLED
769 :
770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771 :
772 : #define getVar_ENABLED 1
773 :
774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 :
778 : #define DIM_ENABLED 1
779 :
780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
783 :
784 : #define WNO_ENABLED 1
785 :
786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 :
790 : #define D1_ENABLED 1
791 :
792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
793 :
794 : #define CK_ENABLED 1
795 :
796 : #if CK5_ENABLED
797 : module procedure getVarDIM_WNO_D1_CK5
798 : use pm_kind, only: TKC => CK5
799 : #include "pm_sampleVar@routines.inc.F90"
800 : end procedure
801 : #endif
802 :
803 : #if CK4_ENABLED
804 150 : module procedure getVarDIM_WNO_D1_CK4
805 : use pm_kind, only: TKC => CK4
806 : #include "pm_sampleVar@routines.inc.F90"
807 150 : end procedure
808 : #endif
809 :
810 : #if CK3_ENABLED
811 150 : module procedure getVarDIM_WNO_D1_CK3
812 : use pm_kind, only: TKC => CK3
813 : #include "pm_sampleVar@routines.inc.F90"
814 150 : end procedure
815 : #endif
816 :
817 : #if CK2_ENABLED
818 150 : module procedure getVarDIM_WNO_D1_CK2
819 : use pm_kind, only: TKC => CK2
820 : #include "pm_sampleVar@routines.inc.F90"
821 150 : end procedure
822 : #endif
823 :
824 : #if CK1_ENABLED
825 154 : module procedure getVarDIM_WNO_D1_CK1
826 : use pm_kind, only: TKC => CK1
827 : #include "pm_sampleVar@routines.inc.F90"
828 154 : end procedure
829 : #endif
830 :
831 : #undef CK_ENABLED
832 :
833 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
834 :
835 : #define RK_ENABLED 1
836 :
837 : #if RK5_ENABLED
838 : module procedure getVarDIM_WNO_D1_RK5
839 : use pm_kind, only: TKC => RK5
840 : #include "pm_sampleVar@routines.inc.F90"
841 : end procedure
842 : #endif
843 :
844 : #if RK4_ENABLED
845 150 : module procedure getVarDIM_WNO_D1_RK4
846 : use pm_kind, only: TKC => RK4
847 : #include "pm_sampleVar@routines.inc.F90"
848 150 : end procedure
849 : #endif
850 :
851 : #if RK3_ENABLED
852 150 : module procedure getVarDIM_WNO_D1_RK3
853 : use pm_kind, only: TKC => RK3
854 : #include "pm_sampleVar@routines.inc.F90"
855 150 : end procedure
856 : #endif
857 :
858 : #if RK2_ENABLED
859 150 : module procedure getVarDIM_WNO_D1_RK2
860 : use pm_kind, only: TKC => RK2
861 : #include "pm_sampleVar@routines.inc.F90"
862 150 : end procedure
863 : #endif
864 :
865 : #if RK1_ENABLED
866 154 : module procedure getVarDIM_WNO_D1_RK1
867 : use pm_kind, only: TKC => RK1
868 : #include "pm_sampleVar@routines.inc.F90"
869 154 : end procedure
870 : #endif
871 :
872 : #undef RK_ENABLED
873 :
874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
875 :
876 : #undef D1_ENABLED
877 :
878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
879 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
881 :
882 : #define D2_ENABLED 1
883 :
884 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
885 :
886 : #define CK_ENABLED 1
887 :
888 : #if CK5_ENABLED
889 : module procedure getVarDIM_WNO_D2_CK5
890 : use pm_kind, only: TKC => CK5
891 : #include "pm_sampleVar@routines.inc.F90"
892 : end procedure
893 : #endif
894 :
895 : #if CK4_ENABLED
896 1050 : module procedure getVarDIM_WNO_D2_CK4
897 : use pm_kind, only: TKC => CK4
898 : #include "pm_sampleVar@routines.inc.F90"
899 1050 : end procedure
900 : #endif
901 :
902 : #if CK3_ENABLED
903 1050 : module procedure getVarDIM_WNO_D2_CK3
904 : use pm_kind, only: TKC => CK3
905 : #include "pm_sampleVar@routines.inc.F90"
906 1050 : end procedure
907 : #endif
908 :
909 : #if CK2_ENABLED
910 1050 : module procedure getVarDIM_WNO_D2_CK2
911 : use pm_kind, only: TKC => CK2
912 : #include "pm_sampleVar@routines.inc.F90"
913 1050 : end procedure
914 : #endif
915 :
916 : #if CK1_ENABLED
917 1111 : module procedure getVarDIM_WNO_D2_CK1
918 : use pm_kind, only: TKC => CK1
919 : #include "pm_sampleVar@routines.inc.F90"
920 1111 : end procedure
921 : #endif
922 :
923 : #undef CK_ENABLED
924 :
925 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
926 :
927 : #define RK_ENABLED 1
928 :
929 : #if RK5_ENABLED
930 : module procedure getVarDIM_WNO_D2_RK5
931 : use pm_kind, only: TKC => RK5
932 : #include "pm_sampleVar@routines.inc.F90"
933 : end procedure
934 : #endif
935 :
936 : #if RK4_ENABLED
937 1050 : module procedure getVarDIM_WNO_D2_RK4
938 : use pm_kind, only: TKC => RK4
939 : #include "pm_sampleVar@routines.inc.F90"
940 1050 : end procedure
941 : #endif
942 :
943 : #if RK3_ENABLED
944 1050 : module procedure getVarDIM_WNO_D2_RK3
945 : use pm_kind, only: TKC => RK3
946 : #include "pm_sampleVar@routines.inc.F90"
947 1050 : end procedure
948 : #endif
949 :
950 : #if RK2_ENABLED
951 1050 : module procedure getVarDIM_WNO_D2_RK2
952 : use pm_kind, only: TKC => RK2
953 : #include "pm_sampleVar@routines.inc.F90"
954 1050 : end procedure
955 : #endif
956 :
957 : #if RK1_ENABLED
958 1139 : module procedure getVarDIM_WNO_D2_RK1
959 : use pm_kind, only: TKC => RK1
960 : #include "pm_sampleVar@routines.inc.F90"
961 1139 : end procedure
962 : #endif
963 :
964 : #undef RK_ENABLED
965 :
966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
967 :
968 : #undef D2_ENABLED
969 :
970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973 :
974 : #undef WNO_ENABLED
975 :
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
978 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
979 :
980 : #define WTI_ENABLED 1
981 :
982 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
985 :
986 : #define D1_ENABLED 1
987 :
988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
989 :
990 : #define CK_ENABLED 1
991 :
992 : #if CK5_ENABLED
993 : module procedure getVarDIM_WTI_D1_CK5
994 : use pm_kind, only: TKC => CK5
995 : #include "pm_sampleVar@routines.inc.F90"
996 : end procedure
997 : #endif
998 :
999 : #if CK4_ENABLED
1000 150 : module procedure getVarDIM_WTI_D1_CK4
1001 : use pm_kind, only: TKC => CK4
1002 : #include "pm_sampleVar@routines.inc.F90"
1003 150 : end procedure
1004 : #endif
1005 :
1006 : #if CK3_ENABLED
1007 150 : module procedure getVarDIM_WTI_D1_CK3
1008 : use pm_kind, only: TKC => CK3
1009 : #include "pm_sampleVar@routines.inc.F90"
1010 150 : end procedure
1011 : #endif
1012 :
1013 : #if CK2_ENABLED
1014 150 : module procedure getVarDIM_WTI_D1_CK2
1015 : use pm_kind, only: TKC => CK2
1016 : #include "pm_sampleVar@routines.inc.F90"
1017 150 : end procedure
1018 : #endif
1019 :
1020 : #if CK1_ENABLED
1021 150 : module procedure getVarDIM_WTI_D1_CK1
1022 : use pm_kind, only: TKC => CK1
1023 : #include "pm_sampleVar@routines.inc.F90"
1024 150 : end procedure
1025 : #endif
1026 :
1027 : #undef CK_ENABLED
1028 :
1029 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1030 :
1031 : #define RK_ENABLED 1
1032 :
1033 : #if RK5_ENABLED
1034 : module procedure getVarDIM_WTI_D1_RK5
1035 : use pm_kind, only: TKC => RK5
1036 : #include "pm_sampleVar@routines.inc.F90"
1037 : end procedure
1038 : #endif
1039 :
1040 : #if RK4_ENABLED
1041 150 : module procedure getVarDIM_WTI_D1_RK4
1042 : use pm_kind, only: TKC => RK4
1043 : #include "pm_sampleVar@routines.inc.F90"
1044 150 : end procedure
1045 : #endif
1046 :
1047 : #if RK3_ENABLED
1048 150 : module procedure getVarDIM_WTI_D1_RK3
1049 : use pm_kind, only: TKC => RK3
1050 : #include "pm_sampleVar@routines.inc.F90"
1051 150 : end procedure
1052 : #endif
1053 :
1054 : #if RK2_ENABLED
1055 150 : module procedure getVarDIM_WTI_D1_RK2
1056 : use pm_kind, only: TKC => RK2
1057 : #include "pm_sampleVar@routines.inc.F90"
1058 150 : end procedure
1059 : #endif
1060 :
1061 : #if RK1_ENABLED
1062 150 : module procedure getVarDIM_WTI_D1_RK1
1063 : use pm_kind, only: TKC => RK1
1064 : #include "pm_sampleVar@routines.inc.F90"
1065 150 : end procedure
1066 : #endif
1067 :
1068 : #undef RK_ENABLED
1069 :
1070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1071 :
1072 : #undef D1_ENABLED
1073 :
1074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1076 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1077 :
1078 : #define D2_ENABLED 1
1079 :
1080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1081 :
1082 : #define CK_ENABLED 1
1083 :
1084 : #if CK5_ENABLED
1085 : module procedure getVarDIM_WTI_D2_CK5
1086 : use pm_kind, only: TKC => CK5
1087 : #include "pm_sampleVar@routines.inc.F90"
1088 : end procedure
1089 : #endif
1090 :
1091 : #if CK4_ENABLED
1092 150 : module procedure getVarDIM_WTI_D2_CK4
1093 : use pm_kind, only: TKC => CK4
1094 : #include "pm_sampleVar@routines.inc.F90"
1095 150 : end procedure
1096 : #endif
1097 :
1098 : #if CK3_ENABLED
1099 150 : module procedure getVarDIM_WTI_D2_CK3
1100 : use pm_kind, only: TKC => CK3
1101 : #include "pm_sampleVar@routines.inc.F90"
1102 150 : end procedure
1103 : #endif
1104 :
1105 : #if CK2_ENABLED
1106 150 : module procedure getVarDIM_WTI_D2_CK2
1107 : use pm_kind, only: TKC => CK2
1108 : #include "pm_sampleVar@routines.inc.F90"
1109 150 : end procedure
1110 : #endif
1111 :
1112 : #if CK1_ENABLED
1113 185 : module procedure getVarDIM_WTI_D2_CK1
1114 : use pm_kind, only: TKC => CK1
1115 : #include "pm_sampleVar@routines.inc.F90"
1116 185 : end procedure
1117 : #endif
1118 :
1119 : #undef CK_ENABLED
1120 :
1121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1122 :
1123 : #define RK_ENABLED 1
1124 :
1125 : #if RK5_ENABLED
1126 : module procedure getVarDIM_WTI_D2_RK5
1127 : use pm_kind, only: TKC => RK5
1128 : #include "pm_sampleVar@routines.inc.F90"
1129 : end procedure
1130 : #endif
1131 :
1132 : #if RK4_ENABLED
1133 150 : module procedure getVarDIM_WTI_D2_RK4
1134 : use pm_kind, only: TKC => RK4
1135 : #include "pm_sampleVar@routines.inc.F90"
1136 150 : end procedure
1137 : #endif
1138 :
1139 : #if RK3_ENABLED
1140 150 : module procedure getVarDIM_WTI_D2_RK3
1141 : use pm_kind, only: TKC => RK3
1142 : #include "pm_sampleVar@routines.inc.F90"
1143 150 : end procedure
1144 : #endif
1145 :
1146 : #if RK2_ENABLED
1147 150 : module procedure getVarDIM_WTI_D2_RK2
1148 : use pm_kind, only: TKC => RK2
1149 : #include "pm_sampleVar@routines.inc.F90"
1150 150 : end procedure
1151 : #endif
1152 :
1153 : #if RK1_ENABLED
1154 217 : module procedure getVarDIM_WTI_D2_RK1
1155 : use pm_kind, only: TKC => RK1
1156 : #include "pm_sampleVar@routines.inc.F90"
1157 217 : end procedure
1158 : #endif
1159 :
1160 : #undef RK_ENABLED
1161 :
1162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1163 :
1164 : #undef D2_ENABLED
1165 :
1166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1169 :
1170 : #undef WTI_ENABLED
1171 :
1172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1175 :
1176 : #define WTR_ENABLED 1
1177 :
1178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1181 :
1182 : #define D1_ENABLED 1
1183 :
1184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1185 :
1186 : #define CK_ENABLED 1
1187 :
1188 : #if CK5_ENABLED
1189 : module procedure getVarDIM_WTR_D1_CK5
1190 : use pm_kind, only: TKC => CK5
1191 : #include "pm_sampleVar@routines.inc.F90"
1192 : end procedure
1193 : #endif
1194 :
1195 : #if CK4_ENABLED
1196 150 : module procedure getVarDIM_WTR_D1_CK4
1197 : use pm_kind, only: TKC => CK4
1198 : #include "pm_sampleVar@routines.inc.F90"
1199 150 : end procedure
1200 : #endif
1201 :
1202 : #if CK3_ENABLED
1203 150 : module procedure getVarDIM_WTR_D1_CK3
1204 : use pm_kind, only: TKC => CK3
1205 : #include "pm_sampleVar@routines.inc.F90"
1206 150 : end procedure
1207 : #endif
1208 :
1209 : #if CK2_ENABLED
1210 150 : module procedure getVarDIM_WTR_D1_CK2
1211 : use pm_kind, only: TKC => CK2
1212 : #include "pm_sampleVar@routines.inc.F90"
1213 150 : end procedure
1214 : #endif
1215 :
1216 : #if CK1_ENABLED
1217 151 : module procedure getVarDIM_WTR_D1_CK1
1218 : use pm_kind, only: TKC => CK1
1219 : #include "pm_sampleVar@routines.inc.F90"
1220 151 : end procedure
1221 : #endif
1222 :
1223 : #undef CK_ENABLED
1224 :
1225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1226 :
1227 : #define RK_ENABLED 1
1228 :
1229 : #if RK5_ENABLED
1230 : module procedure getVarDIM_WTR_D1_RK5
1231 : use pm_kind, only: TKC => RK5
1232 : #include "pm_sampleVar@routines.inc.F90"
1233 : end procedure
1234 : #endif
1235 :
1236 : #if RK4_ENABLED
1237 150 : module procedure getVarDIM_WTR_D1_RK4
1238 : use pm_kind, only: TKC => RK4
1239 : #include "pm_sampleVar@routines.inc.F90"
1240 150 : end procedure
1241 : #endif
1242 :
1243 : #if RK3_ENABLED
1244 150 : module procedure getVarDIM_WTR_D1_RK3
1245 : use pm_kind, only: TKC => RK3
1246 : #include "pm_sampleVar@routines.inc.F90"
1247 150 : end procedure
1248 : #endif
1249 :
1250 : #if RK2_ENABLED
1251 150 : module procedure getVarDIM_WTR_D1_RK2
1252 : use pm_kind, only: TKC => RK2
1253 : #include "pm_sampleVar@routines.inc.F90"
1254 150 : end procedure
1255 : #endif
1256 :
1257 : #if RK1_ENABLED
1258 154 : module procedure getVarDIM_WTR_D1_RK1
1259 : use pm_kind, only: TKC => RK1
1260 : #include "pm_sampleVar@routines.inc.F90"
1261 154 : end procedure
1262 : #endif
1263 :
1264 : #undef RK_ENABLED
1265 :
1266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1267 :
1268 : #undef D1_ENABLED
1269 :
1270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1273 :
1274 : #define D2_ENABLED 1
1275 :
1276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1277 :
1278 : #define CK_ENABLED 1
1279 :
1280 : #if CK5_ENABLED
1281 : module procedure getVarDIM_WTR_D2_CK5
1282 : use pm_kind, only: TKC => CK5
1283 : #include "pm_sampleVar@routines.inc.F90"
1284 : end procedure
1285 : #endif
1286 :
1287 : #if CK4_ENABLED
1288 150 : module procedure getVarDIM_WTR_D2_CK4
1289 : use pm_kind, only: TKC => CK4
1290 : #include "pm_sampleVar@routines.inc.F90"
1291 150 : end procedure
1292 : #endif
1293 :
1294 : #if CK3_ENABLED
1295 150 : module procedure getVarDIM_WTR_D2_CK3
1296 : use pm_kind, only: TKC => CK3
1297 : #include "pm_sampleVar@routines.inc.F90"
1298 150 : end procedure
1299 : #endif
1300 :
1301 : #if CK2_ENABLED
1302 150 : module procedure getVarDIM_WTR_D2_CK2
1303 : use pm_kind, only: TKC => CK2
1304 : #include "pm_sampleVar@routines.inc.F90"
1305 150 : end procedure
1306 : #endif
1307 :
1308 : #if CK1_ENABLED
1309 185 : module procedure getVarDIM_WTR_D2_CK1
1310 : use pm_kind, only: TKC => CK1
1311 : #include "pm_sampleVar@routines.inc.F90"
1312 185 : end procedure
1313 : #endif
1314 :
1315 : #undef CK_ENABLED
1316 :
1317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1318 :
1319 : #define RK_ENABLED 1
1320 :
1321 : #if RK5_ENABLED
1322 : module procedure getVarDIM_WTR_D2_RK5
1323 : use pm_kind, only: TKC => RK5
1324 : #include "pm_sampleVar@routines.inc.F90"
1325 : end procedure
1326 : #endif
1327 :
1328 : #if RK4_ENABLED
1329 150 : module procedure getVarDIM_WTR_D2_RK4
1330 : use pm_kind, only: TKC => RK4
1331 : #include "pm_sampleVar@routines.inc.F90"
1332 150 : end procedure
1333 : #endif
1334 :
1335 : #if RK3_ENABLED
1336 150 : module procedure getVarDIM_WTR_D2_RK3
1337 : use pm_kind, only: TKC => RK3
1338 : #include "pm_sampleVar@routines.inc.F90"
1339 150 : end procedure
1340 : #endif
1341 :
1342 : #if RK2_ENABLED
1343 150 : module procedure getVarDIM_WTR_D2_RK2
1344 : use pm_kind, only: TKC => RK2
1345 : #include "pm_sampleVar@routines.inc.F90"
1346 150 : end procedure
1347 : #endif
1348 :
1349 : #if RK1_ENABLED
1350 221 : module procedure getVarDIM_WTR_D2_RK1
1351 : use pm_kind, only: TKC => RK1
1352 : #include "pm_sampleVar@routines.inc.F90"
1353 221 : end procedure
1354 : #endif
1355 :
1356 : #undef RK_ENABLED
1357 :
1358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1359 :
1360 : #undef D2_ENABLED
1361 :
1362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1365 :
1366 : #undef WTR_ENABLED
1367 :
1368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1371 :
1372 : #undef DIM_ENABLED
1373 :
1374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1377 :
1378 : #undef getVar_ENABLED
1379 :
1380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1381 :
1382 : #define setVar_ENABLED 1
1383 :
1384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1387 :
1388 : #define ALL_ENABLED 1
1389 :
1390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1393 :
1394 : #define Avg_ENABLED 1
1395 :
1396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1399 :
1400 : #define WNO_ENABLED 1
1401 :
1402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1405 :
1406 : #define D1_ENABLED 1
1407 :
1408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1409 :
1410 : #define CK_ENABLED 1
1411 :
1412 : #if CK5_ENABLED
1413 : module procedure setVarAvgALL_WNO_D1_CK5
1414 : use pm_kind, only: TKC => CK5
1415 : #include "pm_sampleVar@routines.inc.F90"
1416 : end procedure
1417 : #endif
1418 :
1419 : #if CK4_ENABLED
1420 250 : module procedure setVarAvgALL_WNO_D1_CK4
1421 : use pm_kind, only: TKC => CK4
1422 : #include "pm_sampleVar@routines.inc.F90"
1423 250 : end procedure
1424 : #endif
1425 :
1426 : #if CK3_ENABLED
1427 250 : module procedure setVarAvgALL_WNO_D1_CK3
1428 : use pm_kind, only: TKC => CK3
1429 : #include "pm_sampleVar@routines.inc.F90"
1430 250 : end procedure
1431 : #endif
1432 :
1433 : #if CK2_ENABLED
1434 250 : module procedure setVarAvgALL_WNO_D1_CK2
1435 : use pm_kind, only: TKC => CK2
1436 : #include "pm_sampleVar@routines.inc.F90"
1437 250 : end procedure
1438 : #endif
1439 :
1440 : #if CK1_ENABLED
1441 297 : module procedure setVarAvgALL_WNO_D1_CK1
1442 : use pm_kind, only: TKC => CK1
1443 : #include "pm_sampleVar@routines.inc.F90"
1444 297 : end procedure
1445 : #endif
1446 :
1447 : #undef CK_ENABLED
1448 :
1449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1450 :
1451 : #define RK_ENABLED 1
1452 :
1453 : #if RK5_ENABLED
1454 : module procedure setVarAvgALL_WNO_D1_RK5
1455 : use pm_kind, only: TKC => RK5
1456 : #include "pm_sampleVar@routines.inc.F90"
1457 : end procedure
1458 : #endif
1459 :
1460 : #if RK4_ENABLED
1461 250 : module procedure setVarAvgALL_WNO_D1_RK4
1462 : use pm_kind, only: TKC => RK4
1463 : #include "pm_sampleVar@routines.inc.F90"
1464 250 : end procedure
1465 : #endif
1466 :
1467 : #if RK3_ENABLED
1468 250 : module procedure setVarAvgALL_WNO_D1_RK3
1469 : use pm_kind, only: TKC => RK3
1470 : #include "pm_sampleVar@routines.inc.F90"
1471 250 : end procedure
1472 : #endif
1473 :
1474 : #if RK2_ENABLED
1475 296 : module procedure setVarAvgALL_WNO_D1_RK2
1476 : use pm_kind, only: TKC => RK2
1477 : #include "pm_sampleVar@routines.inc.F90"
1478 296 : end procedure
1479 : #endif
1480 :
1481 : #if RK1_ENABLED
1482 330 : module procedure setVarAvgALL_WNO_D1_RK1
1483 : use pm_kind, only: TKC => RK1
1484 : #include "pm_sampleVar@routines.inc.F90"
1485 330 : end procedure
1486 : #endif
1487 :
1488 : #undef RK_ENABLED
1489 :
1490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1491 :
1492 : #undef D1_ENABLED
1493 :
1494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1497 :
1498 : #define D2_ENABLED 1
1499 :
1500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1501 :
1502 : #define CK_ENABLED 1
1503 :
1504 : #if CK5_ENABLED
1505 : module procedure setVarAvgALL_WNO_D2_CK5
1506 : use pm_kind, only: TKC => CK5
1507 : #include "pm_sampleVar@routines.inc.F90"
1508 : end procedure
1509 : #endif
1510 :
1511 : #if CK4_ENABLED
1512 250 : module procedure setVarAvgALL_WNO_D2_CK4
1513 : use pm_kind, only: TKC => CK4
1514 : #include "pm_sampleVar@routines.inc.F90"
1515 250 : end procedure
1516 : #endif
1517 :
1518 : #if CK3_ENABLED
1519 250 : module procedure setVarAvgALL_WNO_D2_CK3
1520 : use pm_kind, only: TKC => CK3
1521 : #include "pm_sampleVar@routines.inc.F90"
1522 250 : end procedure
1523 : #endif
1524 :
1525 : #if CK2_ENABLED
1526 250 : module procedure setVarAvgALL_WNO_D2_CK2
1527 : use pm_kind, only: TKC => CK2
1528 : #include "pm_sampleVar@routines.inc.F90"
1529 250 : end procedure
1530 : #endif
1531 :
1532 : #if CK1_ENABLED
1533 255 : module procedure setVarAvgALL_WNO_D2_CK1
1534 : use pm_kind, only: TKC => CK1
1535 : #include "pm_sampleVar@routines.inc.F90"
1536 255 : end procedure
1537 : #endif
1538 :
1539 : #undef CK_ENABLED
1540 :
1541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1542 :
1543 : #define RK_ENABLED 1
1544 :
1545 : #if RK5_ENABLED
1546 : module procedure setVarAvgALL_WNO_D2_RK5
1547 : use pm_kind, only: TKC => RK5
1548 : #include "pm_sampleVar@routines.inc.F90"
1549 : end procedure
1550 : #endif
1551 :
1552 : #if RK4_ENABLED
1553 250 : module procedure setVarAvgALL_WNO_D2_RK4
1554 : use pm_kind, only: TKC => RK4
1555 : #include "pm_sampleVar@routines.inc.F90"
1556 250 : end procedure
1557 : #endif
1558 :
1559 : #if RK3_ENABLED
1560 250 : module procedure setVarAvgALL_WNO_D2_RK3
1561 : use pm_kind, only: TKC => RK3
1562 : #include "pm_sampleVar@routines.inc.F90"
1563 250 : end procedure
1564 : #endif
1565 :
1566 : #if RK2_ENABLED
1567 250 : module procedure setVarAvgALL_WNO_D2_RK2
1568 : use pm_kind, only: TKC => RK2
1569 : #include "pm_sampleVar@routines.inc.F90"
1570 250 : end procedure
1571 : #endif
1572 :
1573 : #if RK1_ENABLED
1574 255 : module procedure setVarAvgALL_WNO_D2_RK1
1575 : use pm_kind, only: TKC => RK1
1576 : #include "pm_sampleVar@routines.inc.F90"
1577 255 : end procedure
1578 : #endif
1579 :
1580 : #undef RK_ENABLED
1581 :
1582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1583 :
1584 : #undef D2_ENABLED
1585 :
1586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1589 :
1590 : #undef WNO_ENABLED
1591 :
1592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1594 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1595 :
1596 : #define WTI_ENABLED 1
1597 :
1598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1600 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1601 :
1602 : #define D1_ENABLED 1
1603 :
1604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1605 :
1606 : #define CK_ENABLED 1
1607 :
1608 : #if CK5_ENABLED
1609 : module procedure setVarAvgALL_WTI_D1_CK5
1610 : use pm_kind, only: TKC => CK5
1611 : #include "pm_sampleVar@routines.inc.F90"
1612 : end procedure
1613 : #endif
1614 :
1615 : #if CK4_ENABLED
1616 250 : module procedure setVarAvgALL_WTI_D1_CK4
1617 : use pm_kind, only: TKC => CK4
1618 : #include "pm_sampleVar@routines.inc.F90"
1619 250 : end procedure
1620 : #endif
1621 :
1622 : #if CK3_ENABLED
1623 250 : module procedure setVarAvgALL_WTI_D1_CK3
1624 : use pm_kind, only: TKC => CK3
1625 : #include "pm_sampleVar@routines.inc.F90"
1626 250 : end procedure
1627 : #endif
1628 :
1629 : #if CK2_ENABLED
1630 250 : module procedure setVarAvgALL_WTI_D1_CK2
1631 : use pm_kind, only: TKC => CK2
1632 : #include "pm_sampleVar@routines.inc.F90"
1633 250 : end procedure
1634 : #endif
1635 :
1636 : #if CK1_ENABLED
1637 280 : module procedure setVarAvgALL_WTI_D1_CK1
1638 : use pm_kind, only: TKC => CK1
1639 : #include "pm_sampleVar@routines.inc.F90"
1640 280 : end procedure
1641 : #endif
1642 :
1643 : #undef CK_ENABLED
1644 :
1645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1646 :
1647 : #define RK_ENABLED 1
1648 :
1649 : #if RK5_ENABLED
1650 : module procedure setVarAvgALL_WTI_D1_RK5
1651 : use pm_kind, only: TKC => RK5
1652 : #include "pm_sampleVar@routines.inc.F90"
1653 : end procedure
1654 : #endif
1655 :
1656 : #if RK4_ENABLED
1657 250 : module procedure setVarAvgALL_WTI_D1_RK4
1658 : use pm_kind, only: TKC => RK4
1659 : #include "pm_sampleVar@routines.inc.F90"
1660 250 : end procedure
1661 : #endif
1662 :
1663 : #if RK3_ENABLED
1664 250 : module procedure setVarAvgALL_WTI_D1_RK3
1665 : use pm_kind, only: TKC => RK3
1666 : #include "pm_sampleVar@routines.inc.F90"
1667 250 : end procedure
1668 : #endif
1669 :
1670 : #if RK2_ENABLED
1671 250 : module procedure setVarAvgALL_WTI_D1_RK2
1672 : use pm_kind, only: TKC => RK2
1673 : #include "pm_sampleVar@routines.inc.F90"
1674 250 : end procedure
1675 : #endif
1676 :
1677 : #if RK1_ENABLED
1678 310 : module procedure setVarAvgALL_WTI_D1_RK1
1679 : use pm_kind, only: TKC => RK1
1680 : #include "pm_sampleVar@routines.inc.F90"
1681 310 : end procedure
1682 : #endif
1683 :
1684 : #undef RK_ENABLED
1685 :
1686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1687 :
1688 : #undef D1_ENABLED
1689 :
1690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1693 :
1694 : #define D2_ENABLED 1
1695 :
1696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1697 :
1698 : #define CK_ENABLED 1
1699 :
1700 : #if CK5_ENABLED
1701 : module procedure setVarAvgALL_WTI_D2_CK5
1702 : use pm_kind, only: TKC => CK5
1703 : #include "pm_sampleVar@routines.inc.F90"
1704 : end procedure
1705 : #endif
1706 :
1707 : #if CK4_ENABLED
1708 250 : module procedure setVarAvgALL_WTI_D2_CK4
1709 : use pm_kind, only: TKC => CK4
1710 : #include "pm_sampleVar@routines.inc.F90"
1711 250 : end procedure
1712 : #endif
1713 :
1714 : #if CK3_ENABLED
1715 250 : module procedure setVarAvgALL_WTI_D2_CK3
1716 : use pm_kind, only: TKC => CK3
1717 : #include "pm_sampleVar@routines.inc.F90"
1718 250 : end procedure
1719 : #endif
1720 :
1721 : #if CK2_ENABLED
1722 250 : module procedure setVarAvgALL_WTI_D2_CK2
1723 : use pm_kind, only: TKC => CK2
1724 : #include "pm_sampleVar@routines.inc.F90"
1725 250 : end procedure
1726 : #endif
1727 :
1728 : #if CK1_ENABLED
1729 250 : module procedure setVarAvgALL_WTI_D2_CK1
1730 : use pm_kind, only: TKC => CK1
1731 : #include "pm_sampleVar@routines.inc.F90"
1732 250 : end procedure
1733 : #endif
1734 :
1735 : #undef CK_ENABLED
1736 :
1737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1738 :
1739 : #define RK_ENABLED 1
1740 :
1741 : #if RK5_ENABLED
1742 : module procedure setVarAvgALL_WTI_D2_RK5
1743 : use pm_kind, only: TKC => RK5
1744 : #include "pm_sampleVar@routines.inc.F90"
1745 : end procedure
1746 : #endif
1747 :
1748 : #if RK4_ENABLED
1749 250 : module procedure setVarAvgALL_WTI_D2_RK4
1750 : use pm_kind, only: TKC => RK4
1751 : #include "pm_sampleVar@routines.inc.F90"
1752 250 : end procedure
1753 : #endif
1754 :
1755 : #if RK3_ENABLED
1756 250 : module procedure setVarAvgALL_WTI_D2_RK3
1757 : use pm_kind, only: TKC => RK3
1758 : #include "pm_sampleVar@routines.inc.F90"
1759 250 : end procedure
1760 : #endif
1761 :
1762 : #if RK2_ENABLED
1763 250 : module procedure setVarAvgALL_WTI_D2_RK2
1764 : use pm_kind, only: TKC => RK2
1765 : #include "pm_sampleVar@routines.inc.F90"
1766 250 : end procedure
1767 : #endif
1768 :
1769 : #if RK1_ENABLED
1770 251 : module procedure setVarAvgALL_WTI_D2_RK1
1771 : use pm_kind, only: TKC => RK1
1772 : #include "pm_sampleVar@routines.inc.F90"
1773 251 : end procedure
1774 : #endif
1775 :
1776 : #undef RK_ENABLED
1777 :
1778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1779 :
1780 : #undef D2_ENABLED
1781 :
1782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1785 :
1786 : #undef WTI_ENABLED
1787 :
1788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1791 :
1792 : #define WTR_ENABLED 1
1793 :
1794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1797 :
1798 : #define D1_ENABLED 1
1799 :
1800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1801 :
1802 : #define CK_ENABLED 1
1803 :
1804 : #if CK5_ENABLED
1805 : module procedure setVarAvgALL_WTR_D1_CK5
1806 : use pm_kind, only: TKC => CK5
1807 : #include "pm_sampleVar@routines.inc.F90"
1808 : end procedure
1809 : #endif
1810 :
1811 : #if CK4_ENABLED
1812 250 : module procedure setVarAvgALL_WTR_D1_CK4
1813 : use pm_kind, only: TKC => CK4
1814 : #include "pm_sampleVar@routines.inc.F90"
1815 250 : end procedure
1816 : #endif
1817 :
1818 : #if CK3_ENABLED
1819 250 : module procedure setVarAvgALL_WTR_D1_CK3
1820 : use pm_kind, only: TKC => CK3
1821 : #include "pm_sampleVar@routines.inc.F90"
1822 250 : end procedure
1823 : #endif
1824 :
1825 : #if CK2_ENABLED
1826 250 : module procedure setVarAvgALL_WTR_D1_CK2
1827 : use pm_kind, only: TKC => CK2
1828 : #include "pm_sampleVar@routines.inc.F90"
1829 250 : end procedure
1830 : #endif
1831 :
1832 : #if CK1_ENABLED
1833 282 : module procedure setVarAvgALL_WTR_D1_CK1
1834 : use pm_kind, only: TKC => CK1
1835 : #include "pm_sampleVar@routines.inc.F90"
1836 282 : end procedure
1837 : #endif
1838 :
1839 : #undef CK_ENABLED
1840 :
1841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1842 :
1843 : #define RK_ENABLED 1
1844 :
1845 : #if RK5_ENABLED
1846 : module procedure setVarAvgALL_WTR_D1_RK5
1847 : use pm_kind, only: TKC => RK5
1848 : #include "pm_sampleVar@routines.inc.F90"
1849 : end procedure
1850 : #endif
1851 :
1852 : #if RK4_ENABLED
1853 250 : module procedure setVarAvgALL_WTR_D1_RK4
1854 : use pm_kind, only: TKC => RK4
1855 : #include "pm_sampleVar@routines.inc.F90"
1856 250 : end procedure
1857 : #endif
1858 :
1859 : #if RK3_ENABLED
1860 250 : module procedure setVarAvgALL_WTR_D1_RK3
1861 : use pm_kind, only: TKC => RK3
1862 : #include "pm_sampleVar@routines.inc.F90"
1863 250 : end procedure
1864 : #endif
1865 :
1866 : #if RK2_ENABLED
1867 250 : module procedure setVarAvgALL_WTR_D1_RK2
1868 : use pm_kind, only: TKC => RK2
1869 : #include "pm_sampleVar@routines.inc.F90"
1870 250 : end procedure
1871 : #endif
1872 :
1873 : #if RK1_ENABLED
1874 315 : module procedure setVarAvgALL_WTR_D1_RK1
1875 : use pm_kind, only: TKC => RK1
1876 : #include "pm_sampleVar@routines.inc.F90"
1877 315 : end procedure
1878 : #endif
1879 :
1880 : #undef RK_ENABLED
1881 :
1882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1883 :
1884 : #undef D1_ENABLED
1885 :
1886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1888 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1889 :
1890 : #define D2_ENABLED 1
1891 :
1892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1893 :
1894 : #define CK_ENABLED 1
1895 :
1896 : #if CK5_ENABLED
1897 : module procedure setVarAvgALL_WTR_D2_CK5
1898 : use pm_kind, only: TKC => CK5
1899 : #include "pm_sampleVar@routines.inc.F90"
1900 : end procedure
1901 : #endif
1902 :
1903 : #if CK4_ENABLED
1904 250 : module procedure setVarAvgALL_WTR_D2_CK4
1905 : use pm_kind, only: TKC => CK4
1906 : #include "pm_sampleVar@routines.inc.F90"
1907 250 : end procedure
1908 : #endif
1909 :
1910 : #if CK3_ENABLED
1911 250 : module procedure setVarAvgALL_WTR_D2_CK3
1912 : use pm_kind, only: TKC => CK3
1913 : #include "pm_sampleVar@routines.inc.F90"
1914 250 : end procedure
1915 : #endif
1916 :
1917 : #if CK2_ENABLED
1918 250 : module procedure setVarAvgALL_WTR_D2_CK2
1919 : use pm_kind, only: TKC => CK2
1920 : #include "pm_sampleVar@routines.inc.F90"
1921 250 : end procedure
1922 : #endif
1923 :
1924 : #if CK1_ENABLED
1925 250 : module procedure setVarAvgALL_WTR_D2_CK1
1926 : use pm_kind, only: TKC => CK1
1927 : #include "pm_sampleVar@routines.inc.F90"
1928 250 : end procedure
1929 : #endif
1930 :
1931 : #undef CK_ENABLED
1932 :
1933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1934 :
1935 : #define RK_ENABLED 1
1936 :
1937 : #if RK5_ENABLED
1938 : module procedure setVarAvgALL_WTR_D2_RK5
1939 : use pm_kind, only: TKC => RK5
1940 : #include "pm_sampleVar@routines.inc.F90"
1941 : end procedure
1942 : #endif
1943 :
1944 : #if RK4_ENABLED
1945 250 : module procedure setVarAvgALL_WTR_D2_RK4
1946 : use pm_kind, only: TKC => RK4
1947 : #include "pm_sampleVar@routines.inc.F90"
1948 250 : end procedure
1949 : #endif
1950 :
1951 : #if RK3_ENABLED
1952 250 : module procedure setVarAvgALL_WTR_D2_RK3
1953 : use pm_kind, only: TKC => RK3
1954 : #include "pm_sampleVar@routines.inc.F90"
1955 250 : end procedure
1956 : #endif
1957 :
1958 : #if RK2_ENABLED
1959 250 : module procedure setVarAvgALL_WTR_D2_RK2
1960 : use pm_kind, only: TKC => RK2
1961 : #include "pm_sampleVar@routines.inc.F90"
1962 250 : end procedure
1963 : #endif
1964 :
1965 : #if RK1_ENABLED
1966 254 : module procedure setVarAvgALL_WTR_D2_RK1
1967 : use pm_kind, only: TKC => RK1
1968 : #include "pm_sampleVar@routines.inc.F90"
1969 254 : end procedure
1970 : #endif
1971 :
1972 : #undef RK_ENABLED
1973 :
1974 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1975 :
1976 : #undef D2_ENABLED
1977 :
1978 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1981 :
1982 : #undef WTR_ENABLED
1983 :
1984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1987 :
1988 : #undef Avg_ENABLED
1989 :
1990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1993 :
1994 : #define Org_ENABLED 1
1995 :
1996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1999 :
2000 : #define WNO_ENABLED 1
2001 :
2002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2003 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2005 :
2006 : #define D1_ENABLED 1
2007 :
2008 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2009 :
2010 : #define CK_ENABLED 1
2011 :
2012 : #if CK5_ENABLED
2013 : module procedure setVarOrgALL_WNO_D1_CK5
2014 : use pm_kind, only: TKC => CK5
2015 : #include "pm_sampleVar@routines.inc.F90"
2016 : end procedure
2017 : #endif
2018 :
2019 : #if CK4_ENABLED
2020 50 : module procedure setVarOrgALL_WNO_D1_CK4
2021 : use pm_kind, only: TKC => CK4
2022 : #include "pm_sampleVar@routines.inc.F90"
2023 50 : end procedure
2024 : #endif
2025 :
2026 : #if CK3_ENABLED
2027 50 : module procedure setVarOrgALL_WNO_D1_CK3
2028 : use pm_kind, only: TKC => CK3
2029 : #include "pm_sampleVar@routines.inc.F90"
2030 50 : end procedure
2031 : #endif
2032 :
2033 : #if CK2_ENABLED
2034 50 : module procedure setVarOrgALL_WNO_D1_CK2
2035 : use pm_kind, only: TKC => CK2
2036 : #include "pm_sampleVar@routines.inc.F90"
2037 50 : end procedure
2038 : #endif
2039 :
2040 : #if CK1_ENABLED
2041 51 : module procedure setVarOrgALL_WNO_D1_CK1
2042 : use pm_kind, only: TKC => CK1
2043 : #include "pm_sampleVar@routines.inc.F90"
2044 51 : end procedure
2045 : #endif
2046 :
2047 : #undef CK_ENABLED
2048 :
2049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2050 :
2051 : #define RK_ENABLED 1
2052 :
2053 : #if RK5_ENABLED
2054 : module procedure setVarOrgALL_WNO_D1_RK5
2055 : use pm_kind, only: TKC => RK5
2056 : #include "pm_sampleVar@routines.inc.F90"
2057 : end procedure
2058 : #endif
2059 :
2060 : #if RK4_ENABLED
2061 50 : module procedure setVarOrgALL_WNO_D1_RK4
2062 : use pm_kind, only: TKC => RK4
2063 : #include "pm_sampleVar@routines.inc.F90"
2064 50 : end procedure
2065 : #endif
2066 :
2067 : #if RK3_ENABLED
2068 50 : module procedure setVarOrgALL_WNO_D1_RK3
2069 : use pm_kind, only: TKC => RK3
2070 : #include "pm_sampleVar@routines.inc.F90"
2071 50 : end procedure
2072 : #endif
2073 :
2074 : #if RK2_ENABLED
2075 50 : module procedure setVarOrgALL_WNO_D1_RK2
2076 : use pm_kind, only: TKC => RK2
2077 : #include "pm_sampleVar@routines.inc.F90"
2078 50 : end procedure
2079 : #endif
2080 :
2081 : #if RK1_ENABLED
2082 51 : module procedure setVarOrgALL_WNO_D1_RK1
2083 : use pm_kind, only: TKC => RK1
2084 : #include "pm_sampleVar@routines.inc.F90"
2085 51 : end procedure
2086 : #endif
2087 :
2088 : #undef RK_ENABLED
2089 :
2090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2091 :
2092 : #undef D1_ENABLED
2093 :
2094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2097 :
2098 : #define D2_ENABLED 1
2099 :
2100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2101 :
2102 : #define CK_ENABLED 1
2103 :
2104 : #if CK5_ENABLED
2105 : module procedure setVarOrgALL_WNO_D2_CK5
2106 : use pm_kind, only: TKC => CK5
2107 : #include "pm_sampleVar@routines.inc.F90"
2108 : end procedure
2109 : #endif
2110 :
2111 : #if CK4_ENABLED
2112 50 : module procedure setVarOrgALL_WNO_D2_CK4
2113 : use pm_kind, only: TKC => CK4
2114 : #include "pm_sampleVar@routines.inc.F90"
2115 50 : end procedure
2116 : #endif
2117 :
2118 : #if CK3_ENABLED
2119 50 : module procedure setVarOrgALL_WNO_D2_CK3
2120 : use pm_kind, only: TKC => CK3
2121 : #include "pm_sampleVar@routines.inc.F90"
2122 50 : end procedure
2123 : #endif
2124 :
2125 : #if CK2_ENABLED
2126 50 : module procedure setVarOrgALL_WNO_D2_CK2
2127 : use pm_kind, only: TKC => CK2
2128 : #include "pm_sampleVar@routines.inc.F90"
2129 50 : end procedure
2130 : #endif
2131 :
2132 : #if CK1_ENABLED
2133 51 : module procedure setVarOrgALL_WNO_D2_CK1
2134 : use pm_kind, only: TKC => CK1
2135 : #include "pm_sampleVar@routines.inc.F90"
2136 51 : end procedure
2137 : #endif
2138 :
2139 : #undef CK_ENABLED
2140 :
2141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2142 :
2143 : #define RK_ENABLED 1
2144 :
2145 : #if RK5_ENABLED
2146 : module procedure setVarOrgALL_WNO_D2_RK5
2147 : use pm_kind, only: TKC => RK5
2148 : #include "pm_sampleVar@routines.inc.F90"
2149 : end procedure
2150 : #endif
2151 :
2152 : #if RK4_ENABLED
2153 50 : module procedure setVarOrgALL_WNO_D2_RK4
2154 : use pm_kind, only: TKC => RK4
2155 : #include "pm_sampleVar@routines.inc.F90"
2156 50 : end procedure
2157 : #endif
2158 :
2159 : #if RK3_ENABLED
2160 50 : module procedure setVarOrgALL_WNO_D2_RK3
2161 : use pm_kind, only: TKC => RK3
2162 : #include "pm_sampleVar@routines.inc.F90"
2163 50 : end procedure
2164 : #endif
2165 :
2166 : #if RK2_ENABLED
2167 50 : module procedure setVarOrgALL_WNO_D2_RK2
2168 : use pm_kind, only: TKC => RK2
2169 : #include "pm_sampleVar@routines.inc.F90"
2170 50 : end procedure
2171 : #endif
2172 :
2173 : #if RK1_ENABLED
2174 51 : module procedure setVarOrgALL_WNO_D2_RK1
2175 : use pm_kind, only: TKC => RK1
2176 : #include "pm_sampleVar@routines.inc.F90"
2177 51 : end procedure
2178 : #endif
2179 :
2180 : #undef RK_ENABLED
2181 :
2182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2183 :
2184 : #undef D2_ENABLED
2185 :
2186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2189 :
2190 : #undef WNO_ENABLED
2191 :
2192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2195 :
2196 : #define WTI_ENABLED 1
2197 :
2198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2201 :
2202 : #define D1_ENABLED 1
2203 :
2204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2205 :
2206 : #define CK_ENABLED 1
2207 :
2208 : #if CK5_ENABLED
2209 : module procedure setVarOrgALL_WTI_D1_CK5
2210 : use pm_kind, only: TKC => CK5
2211 : #include "pm_sampleVar@routines.inc.F90"
2212 : end procedure
2213 : #endif
2214 :
2215 : #if CK4_ENABLED
2216 50 : module procedure setVarOrgALL_WTI_D1_CK4
2217 : use pm_kind, only: TKC => CK4
2218 : #include "pm_sampleVar@routines.inc.F90"
2219 50 : end procedure
2220 : #endif
2221 :
2222 : #if CK3_ENABLED
2223 50 : module procedure setVarOrgALL_WTI_D1_CK3
2224 : use pm_kind, only: TKC => CK3
2225 : #include "pm_sampleVar@routines.inc.F90"
2226 50 : end procedure
2227 : #endif
2228 :
2229 : #if CK2_ENABLED
2230 50 : module procedure setVarOrgALL_WTI_D1_CK2
2231 : use pm_kind, only: TKC => CK2
2232 : #include "pm_sampleVar@routines.inc.F90"
2233 50 : end procedure
2234 : #endif
2235 :
2236 : #if CK1_ENABLED
2237 50 : module procedure setVarOrgALL_WTI_D1_CK1
2238 : use pm_kind, only: TKC => CK1
2239 : #include "pm_sampleVar@routines.inc.F90"
2240 50 : end procedure
2241 : #endif
2242 :
2243 : #undef CK_ENABLED
2244 :
2245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2246 :
2247 : #define RK_ENABLED 1
2248 :
2249 : #if RK5_ENABLED
2250 : module procedure setVarOrgALL_WTI_D1_RK5
2251 : use pm_kind, only: TKC => RK5
2252 : #include "pm_sampleVar@routines.inc.F90"
2253 : end procedure
2254 : #endif
2255 :
2256 : #if RK4_ENABLED
2257 50 : module procedure setVarOrgALL_WTI_D1_RK4
2258 : use pm_kind, only: TKC => RK4
2259 : #include "pm_sampleVar@routines.inc.F90"
2260 50 : end procedure
2261 : #endif
2262 :
2263 : #if RK3_ENABLED
2264 50 : module procedure setVarOrgALL_WTI_D1_RK3
2265 : use pm_kind, only: TKC => RK3
2266 : #include "pm_sampleVar@routines.inc.F90"
2267 50 : end procedure
2268 : #endif
2269 :
2270 : #if RK2_ENABLED
2271 50 : module procedure setVarOrgALL_WTI_D1_RK2
2272 : use pm_kind, only: TKC => RK2
2273 : #include "pm_sampleVar@routines.inc.F90"
2274 50 : end procedure
2275 : #endif
2276 :
2277 : #if RK1_ENABLED
2278 50 : module procedure setVarOrgALL_WTI_D1_RK1
2279 : use pm_kind, only: TKC => RK1
2280 : #include "pm_sampleVar@routines.inc.F90"
2281 50 : end procedure
2282 : #endif
2283 :
2284 : #undef RK_ENABLED
2285 :
2286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2287 :
2288 : #undef D1_ENABLED
2289 :
2290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2293 :
2294 : #define D2_ENABLED 1
2295 :
2296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2297 :
2298 : #define CK_ENABLED 1
2299 :
2300 : #if CK5_ENABLED
2301 : module procedure setVarOrgALL_WTI_D2_CK5
2302 : use pm_kind, only: TKC => CK5
2303 : #include "pm_sampleVar@routines.inc.F90"
2304 : end procedure
2305 : #endif
2306 :
2307 : #if CK4_ENABLED
2308 50 : module procedure setVarOrgALL_WTI_D2_CK4
2309 : use pm_kind, only: TKC => CK4
2310 : #include "pm_sampleVar@routines.inc.F90"
2311 50 : end procedure
2312 : #endif
2313 :
2314 : #if CK3_ENABLED
2315 50 : module procedure setVarOrgALL_WTI_D2_CK3
2316 : use pm_kind, only: TKC => CK3
2317 : #include "pm_sampleVar@routines.inc.F90"
2318 50 : end procedure
2319 : #endif
2320 :
2321 : #if CK2_ENABLED
2322 50 : module procedure setVarOrgALL_WTI_D2_CK2
2323 : use pm_kind, only: TKC => CK2
2324 : #include "pm_sampleVar@routines.inc.F90"
2325 50 : end procedure
2326 : #endif
2327 :
2328 : #if CK1_ENABLED
2329 50 : module procedure setVarOrgALL_WTI_D2_CK1
2330 : use pm_kind, only: TKC => CK1
2331 : #include "pm_sampleVar@routines.inc.F90"
2332 50 : end procedure
2333 : #endif
2334 :
2335 : #undef CK_ENABLED
2336 :
2337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2338 :
2339 : #define RK_ENABLED 1
2340 :
2341 : #if RK5_ENABLED
2342 : module procedure setVarOrgALL_WTI_D2_RK5
2343 : use pm_kind, only: TKC => RK5
2344 : #include "pm_sampleVar@routines.inc.F90"
2345 : end procedure
2346 : #endif
2347 :
2348 : #if RK4_ENABLED
2349 50 : module procedure setVarOrgALL_WTI_D2_RK4
2350 : use pm_kind, only: TKC => RK4
2351 : #include "pm_sampleVar@routines.inc.F90"
2352 50 : end procedure
2353 : #endif
2354 :
2355 : #if RK3_ENABLED
2356 50 : module procedure setVarOrgALL_WTI_D2_RK3
2357 : use pm_kind, only: TKC => RK3
2358 : #include "pm_sampleVar@routines.inc.F90"
2359 50 : end procedure
2360 : #endif
2361 :
2362 : #if RK2_ENABLED
2363 50 : module procedure setVarOrgALL_WTI_D2_RK2
2364 : use pm_kind, only: TKC => RK2
2365 : #include "pm_sampleVar@routines.inc.F90"
2366 50 : end procedure
2367 : #endif
2368 :
2369 : #if RK1_ENABLED
2370 50 : module procedure setVarOrgALL_WTI_D2_RK1
2371 : use pm_kind, only: TKC => RK1
2372 : #include "pm_sampleVar@routines.inc.F90"
2373 50 : end procedure
2374 : #endif
2375 :
2376 : #undef RK_ENABLED
2377 :
2378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2379 :
2380 : #undef D2_ENABLED
2381 :
2382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2385 :
2386 : #undef WTI_ENABLED
2387 :
2388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2391 :
2392 : #define WTR_ENABLED 1
2393 :
2394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2397 :
2398 : #define D1_ENABLED 1
2399 :
2400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2401 :
2402 : #define CK_ENABLED 1
2403 :
2404 : #if CK5_ENABLED
2405 : module procedure setVarOrgALL_WTR_D1_CK5
2406 : use pm_kind, only: TKC => CK5
2407 : #include "pm_sampleVar@routines.inc.F90"
2408 : end procedure
2409 : #endif
2410 :
2411 : #if CK4_ENABLED
2412 50 : module procedure setVarOrgALL_WTR_D1_CK4
2413 : use pm_kind, only: TKC => CK4
2414 : #include "pm_sampleVar@routines.inc.F90"
2415 50 : end procedure
2416 : #endif
2417 :
2418 : #if CK3_ENABLED
2419 50 : module procedure setVarOrgALL_WTR_D1_CK3
2420 : use pm_kind, only: TKC => CK3
2421 : #include "pm_sampleVar@routines.inc.F90"
2422 50 : end procedure
2423 : #endif
2424 :
2425 : #if CK2_ENABLED
2426 50 : module procedure setVarOrgALL_WTR_D1_CK2
2427 : use pm_kind, only: TKC => CK2
2428 : #include "pm_sampleVar@routines.inc.F90"
2429 50 : end procedure
2430 : #endif
2431 :
2432 : #if CK1_ENABLED
2433 51 : module procedure setVarOrgALL_WTR_D1_CK1
2434 : use pm_kind, only: TKC => CK1
2435 : #include "pm_sampleVar@routines.inc.F90"
2436 51 : end procedure
2437 : #endif
2438 :
2439 : #undef CK_ENABLED
2440 :
2441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2442 :
2443 : #define RK_ENABLED 1
2444 :
2445 : #if RK5_ENABLED
2446 : module procedure setVarOrgALL_WTR_D1_RK5
2447 : use pm_kind, only: TKC => RK5
2448 : #include "pm_sampleVar@routines.inc.F90"
2449 : end procedure
2450 : #endif
2451 :
2452 : #if RK4_ENABLED
2453 50 : module procedure setVarOrgALL_WTR_D1_RK4
2454 : use pm_kind, only: TKC => RK4
2455 : #include "pm_sampleVar@routines.inc.F90"
2456 50 : end procedure
2457 : #endif
2458 :
2459 : #if RK3_ENABLED
2460 50 : module procedure setVarOrgALL_WTR_D1_RK3
2461 : use pm_kind, only: TKC => RK3
2462 : #include "pm_sampleVar@routines.inc.F90"
2463 50 : end procedure
2464 : #endif
2465 :
2466 : #if RK2_ENABLED
2467 50 : module procedure setVarOrgALL_WTR_D1_RK2
2468 : use pm_kind, only: TKC => RK2
2469 : #include "pm_sampleVar@routines.inc.F90"
2470 50 : end procedure
2471 : #endif
2472 :
2473 : #if RK1_ENABLED
2474 51 : module procedure setVarOrgALL_WTR_D1_RK1
2475 : use pm_kind, only: TKC => RK1
2476 : #include "pm_sampleVar@routines.inc.F90"
2477 51 : end procedure
2478 : #endif
2479 :
2480 : #undef RK_ENABLED
2481 :
2482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2483 :
2484 : #undef D1_ENABLED
2485 :
2486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2489 :
2490 : #define D2_ENABLED 1
2491 :
2492 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2493 :
2494 : #define CK_ENABLED 1
2495 :
2496 : #if CK5_ENABLED
2497 : module procedure setVarOrgALL_WTR_D2_CK5
2498 : use pm_kind, only: TKC => CK5
2499 : #include "pm_sampleVar@routines.inc.F90"
2500 : end procedure
2501 : #endif
2502 :
2503 : #if CK4_ENABLED
2504 50 : module procedure setVarOrgALL_WTR_D2_CK4
2505 : use pm_kind, only: TKC => CK4
2506 : #include "pm_sampleVar@routines.inc.F90"
2507 50 : end procedure
2508 : #endif
2509 :
2510 : #if CK3_ENABLED
2511 50 : module procedure setVarOrgALL_WTR_D2_CK3
2512 : use pm_kind, only: TKC => CK3
2513 : #include "pm_sampleVar@routines.inc.F90"
2514 50 : end procedure
2515 : #endif
2516 :
2517 : #if CK2_ENABLED
2518 50 : module procedure setVarOrgALL_WTR_D2_CK2
2519 : use pm_kind, only: TKC => CK2
2520 : #include "pm_sampleVar@routines.inc.F90"
2521 50 : end procedure
2522 : #endif
2523 :
2524 : #if CK1_ENABLED
2525 50 : module procedure setVarOrgALL_WTR_D2_CK1
2526 : use pm_kind, only: TKC => CK1
2527 : #include "pm_sampleVar@routines.inc.F90"
2528 50 : end procedure
2529 : #endif
2530 :
2531 : #undef CK_ENABLED
2532 :
2533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2534 :
2535 : #define RK_ENABLED 1
2536 :
2537 : #if RK5_ENABLED
2538 : module procedure setVarOrgALL_WTR_D2_RK5
2539 : use pm_kind, only: TKC => RK5
2540 : #include "pm_sampleVar@routines.inc.F90"
2541 : end procedure
2542 : #endif
2543 :
2544 : #if RK4_ENABLED
2545 50 : module procedure setVarOrgALL_WTR_D2_RK4
2546 : use pm_kind, only: TKC => RK4
2547 : #include "pm_sampleVar@routines.inc.F90"
2548 50 : end procedure
2549 : #endif
2550 :
2551 : #if RK3_ENABLED
2552 50 : module procedure setVarOrgALL_WTR_D2_RK3
2553 : use pm_kind, only: TKC => RK3
2554 : #include "pm_sampleVar@routines.inc.F90"
2555 50 : end procedure
2556 : #endif
2557 :
2558 : #if RK2_ENABLED
2559 50 : module procedure setVarOrgALL_WTR_D2_RK2
2560 : use pm_kind, only: TKC => RK2
2561 : #include "pm_sampleVar@routines.inc.F90"
2562 50 : end procedure
2563 : #endif
2564 :
2565 : #if RK1_ENABLED
2566 50 : module procedure setVarOrgALL_WTR_D2_RK1
2567 : use pm_kind, only: TKC => RK1
2568 : #include "pm_sampleVar@routines.inc.F90"
2569 50 : end procedure
2570 : #endif
2571 :
2572 : #undef RK_ENABLED
2573 :
2574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2575 :
2576 : #undef D2_ENABLED
2577 :
2578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2581 :
2582 : #undef WTR_ENABLED
2583 :
2584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2587 :
2588 : #undef Org_ENABLED
2589 :
2590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2593 :
2594 : #undef ALL_ENABLED
2595 :
2596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2599 :
2600 : #undef setVar_ENABLED
2601 :
2602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2603 :
2604 : #define setVar_ENABLED 1
2605 :
2606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2608 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2609 :
2610 : #define DIM_ENABLED 1
2611 :
2612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2615 :
2616 : #define Avg_ENABLED 1
2617 :
2618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2621 :
2622 : #define WNO_ENABLED 1
2623 :
2624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2625 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2627 :
2628 : #define D1_ENABLED 1
2629 :
2630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2631 :
2632 : #define CK_ENABLED 1
2633 :
2634 : #if CK5_ENABLED
2635 : module procedure setVarAvgDIM_WNO_D1_CK5
2636 : use pm_kind, only: TKC => CK5
2637 : #include "pm_sampleVar@routines.inc.F90"
2638 : end procedure
2639 : #endif
2640 :
2641 : #if CK4_ENABLED
2642 250 : module procedure setVarAvgDIM_WNO_D1_CK4
2643 : use pm_kind, only: TKC => CK4
2644 : #include "pm_sampleVar@routines.inc.F90"
2645 250 : end procedure
2646 : #endif
2647 :
2648 : #if CK3_ENABLED
2649 250 : module procedure setVarAvgDIM_WNO_D1_CK3
2650 : use pm_kind, only: TKC => CK3
2651 : #include "pm_sampleVar@routines.inc.F90"
2652 250 : end procedure
2653 : #endif
2654 :
2655 : #if CK2_ENABLED
2656 250 : module procedure setVarAvgDIM_WNO_D1_CK2
2657 : use pm_kind, only: TKC => CK2
2658 : #include "pm_sampleVar@routines.inc.F90"
2659 250 : end procedure
2660 : #endif
2661 :
2662 : #if CK1_ENABLED
2663 255 : module procedure setVarAvgDIM_WNO_D1_CK1
2664 : use pm_kind, only: TKC => CK1
2665 : #include "pm_sampleVar@routines.inc.F90"
2666 255 : end procedure
2667 : #endif
2668 :
2669 : #undef CK_ENABLED
2670 :
2671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2672 :
2673 : #define RK_ENABLED 1
2674 :
2675 : #if RK5_ENABLED
2676 : module procedure setVarAvgDIM_WNO_D1_RK5
2677 : use pm_kind, only: TKC => RK5
2678 : #include "pm_sampleVar@routines.inc.F90"
2679 : end procedure
2680 : #endif
2681 :
2682 : #if RK4_ENABLED
2683 250 : module procedure setVarAvgDIM_WNO_D1_RK4
2684 : use pm_kind, only: TKC => RK4
2685 : #include "pm_sampleVar@routines.inc.F90"
2686 250 : end procedure
2687 : #endif
2688 :
2689 : #if RK3_ENABLED
2690 250 : module procedure setVarAvgDIM_WNO_D1_RK3
2691 : use pm_kind, only: TKC => RK3
2692 : #include "pm_sampleVar@routines.inc.F90"
2693 250 : end procedure
2694 : #endif
2695 :
2696 : #if RK2_ENABLED
2697 250 : module procedure setVarAvgDIM_WNO_D1_RK2
2698 : use pm_kind, only: TKC => RK2
2699 : #include "pm_sampleVar@routines.inc.F90"
2700 250 : end procedure
2701 : #endif
2702 :
2703 : #if RK1_ENABLED
2704 255 : module procedure setVarAvgDIM_WNO_D1_RK1
2705 : use pm_kind, only: TKC => RK1
2706 : #include "pm_sampleVar@routines.inc.F90"
2707 255 : end procedure
2708 : #endif
2709 :
2710 : #undef RK_ENABLED
2711 :
2712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2713 :
2714 : #undef D1_ENABLED
2715 :
2716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2719 :
2720 : #define D2_ENABLED 1
2721 :
2722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2723 :
2724 : #define CK_ENABLED 1
2725 :
2726 : #if CK5_ENABLED
2727 : module procedure setVarAvgDIM_WNO_D2_CK5
2728 : use pm_kind, only: TKC => CK5
2729 : #include "pm_sampleVar@routines.inc.F90"
2730 : end procedure
2731 : #endif
2732 :
2733 : #if CK4_ENABLED
2734 1150 : module procedure setVarAvgDIM_WNO_D2_CK4
2735 : use pm_kind, only: TKC => CK4
2736 : #include "pm_sampleVar@routines.inc.F90"
2737 1150 : end procedure
2738 : #endif
2739 :
2740 : #if CK3_ENABLED
2741 1150 : module procedure setVarAvgDIM_WNO_D2_CK3
2742 : use pm_kind, only: TKC => CK3
2743 : #include "pm_sampleVar@routines.inc.F90"
2744 1150 : end procedure
2745 : #endif
2746 :
2747 : #if CK2_ENABLED
2748 1150 : module procedure setVarAvgDIM_WNO_D2_CK2
2749 : use pm_kind, only: TKC => CK2
2750 : #include "pm_sampleVar@routines.inc.F90"
2751 1150 : end procedure
2752 : #endif
2753 :
2754 : #if CK1_ENABLED
2755 1213 : module procedure setVarAvgDIM_WNO_D2_CK1
2756 : use pm_kind, only: TKC => CK1
2757 : #include "pm_sampleVar@routines.inc.F90"
2758 1213 : end procedure
2759 : #endif
2760 :
2761 : #undef CK_ENABLED
2762 :
2763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2764 :
2765 : #define RK_ENABLED 1
2766 :
2767 : #if RK5_ENABLED
2768 : module procedure setVarAvgDIM_WNO_D2_RK5
2769 : use pm_kind, only: TKC => RK5
2770 : #include "pm_sampleVar@routines.inc.F90"
2771 : end procedure
2772 : #endif
2773 :
2774 : #if RK4_ENABLED
2775 1150 : module procedure setVarAvgDIM_WNO_D2_RK4
2776 : use pm_kind, only: TKC => RK4
2777 : #include "pm_sampleVar@routines.inc.F90"
2778 1150 : end procedure
2779 : #endif
2780 :
2781 : #if RK3_ENABLED
2782 1150 : module procedure setVarAvgDIM_WNO_D2_RK3
2783 : use pm_kind, only: TKC => RK3
2784 : #include "pm_sampleVar@routines.inc.F90"
2785 1150 : end procedure
2786 : #endif
2787 :
2788 : #if RK2_ENABLED
2789 1150 : module procedure setVarAvgDIM_WNO_D2_RK2
2790 : use pm_kind, only: TKC => RK2
2791 : #include "pm_sampleVar@routines.inc.F90"
2792 1150 : end procedure
2793 : #endif
2794 :
2795 : #if RK1_ENABLED
2796 1241 : module procedure setVarAvgDIM_WNO_D2_RK1
2797 : use pm_kind, only: TKC => RK1
2798 : #include "pm_sampleVar@routines.inc.F90"
2799 1241 : end procedure
2800 : #endif
2801 :
2802 : #undef RK_ENABLED
2803 :
2804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2805 :
2806 : #undef D2_ENABLED
2807 :
2808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2809 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2811 :
2812 : #undef WNO_ENABLED
2813 :
2814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2816 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2817 :
2818 : #define WTI_ENABLED 1
2819 :
2820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2823 :
2824 : #define D1_ENABLED 1
2825 :
2826 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2827 :
2828 : #define CK_ENABLED 1
2829 :
2830 : #if CK5_ENABLED
2831 : module procedure setVarAvgDIM_WTI_D1_CK5
2832 : use pm_kind, only: TKC => CK5
2833 : #include "pm_sampleVar@routines.inc.F90"
2834 : end procedure
2835 : #endif
2836 :
2837 : #if CK4_ENABLED
2838 250 : module procedure setVarAvgDIM_WTI_D1_CK4
2839 : use pm_kind, only: TKC => CK4
2840 : #include "pm_sampleVar@routines.inc.F90"
2841 250 : end procedure
2842 : #endif
2843 :
2844 : #if CK3_ENABLED
2845 250 : module procedure setVarAvgDIM_WTI_D1_CK3
2846 : use pm_kind, only: TKC => CK3
2847 : #include "pm_sampleVar@routines.inc.F90"
2848 250 : end procedure
2849 : #endif
2850 :
2851 : #if CK2_ENABLED
2852 250 : module procedure setVarAvgDIM_WTI_D1_CK2
2853 : use pm_kind, only: TKC => CK2
2854 : #include "pm_sampleVar@routines.inc.F90"
2855 250 : end procedure
2856 : #endif
2857 :
2858 : #if CK1_ENABLED
2859 250 : module procedure setVarAvgDIM_WTI_D1_CK1
2860 : use pm_kind, only: TKC => CK1
2861 : #include "pm_sampleVar@routines.inc.F90"
2862 250 : end procedure
2863 : #endif
2864 :
2865 : #undef CK_ENABLED
2866 :
2867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2868 :
2869 : #define RK_ENABLED 1
2870 :
2871 : #if RK5_ENABLED
2872 : module procedure setVarAvgDIM_WTI_D1_RK5
2873 : use pm_kind, only: TKC => RK5
2874 : #include "pm_sampleVar@routines.inc.F90"
2875 : end procedure
2876 : #endif
2877 :
2878 : #if RK4_ENABLED
2879 250 : module procedure setVarAvgDIM_WTI_D1_RK4
2880 : use pm_kind, only: TKC => RK4
2881 : #include "pm_sampleVar@routines.inc.F90"
2882 250 : end procedure
2883 : #endif
2884 :
2885 : #if RK3_ENABLED
2886 250 : module procedure setVarAvgDIM_WTI_D1_RK3
2887 : use pm_kind, only: TKC => RK3
2888 : #include "pm_sampleVar@routines.inc.F90"
2889 250 : end procedure
2890 : #endif
2891 :
2892 : #if RK2_ENABLED
2893 250 : module procedure setVarAvgDIM_WTI_D1_RK2
2894 : use pm_kind, only: TKC => RK2
2895 : #include "pm_sampleVar@routines.inc.F90"
2896 250 : end procedure
2897 : #endif
2898 :
2899 : #if RK1_ENABLED
2900 250 : module procedure setVarAvgDIM_WTI_D1_RK1
2901 : use pm_kind, only: TKC => RK1
2902 : #include "pm_sampleVar@routines.inc.F90"
2903 250 : end procedure
2904 : #endif
2905 :
2906 : #undef RK_ENABLED
2907 :
2908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2909 :
2910 : #undef D1_ENABLED
2911 :
2912 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2913 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2915 :
2916 : #define D2_ENABLED 1
2917 :
2918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2919 :
2920 : #define CK_ENABLED 1
2921 :
2922 : #if CK5_ENABLED
2923 : module procedure setVarAvgDIM_WTI_D2_CK5
2924 : use pm_kind, only: TKC => CK5
2925 : #include "pm_sampleVar@routines.inc.F90"
2926 : end procedure
2927 : #endif
2928 :
2929 : #if CK4_ENABLED
2930 250 : module procedure setVarAvgDIM_WTI_D2_CK4
2931 : use pm_kind, only: TKC => CK4
2932 : #include "pm_sampleVar@routines.inc.F90"
2933 250 : end procedure
2934 : #endif
2935 :
2936 : #if CK3_ENABLED
2937 250 : module procedure setVarAvgDIM_WTI_D2_CK3
2938 : use pm_kind, only: TKC => CK3
2939 : #include "pm_sampleVar@routines.inc.F90"
2940 250 : end procedure
2941 : #endif
2942 :
2943 : #if CK2_ENABLED
2944 250 : module procedure setVarAvgDIM_WTI_D2_CK2
2945 : use pm_kind, only: TKC => CK2
2946 : #include "pm_sampleVar@routines.inc.F90"
2947 250 : end procedure
2948 : #endif
2949 :
2950 : #if CK1_ENABLED
2951 285 : module procedure setVarAvgDIM_WTI_D2_CK1
2952 : use pm_kind, only: TKC => CK1
2953 : #include "pm_sampleVar@routines.inc.F90"
2954 285 : end procedure
2955 : #endif
2956 :
2957 : #undef CK_ENABLED
2958 :
2959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2960 :
2961 : #define RK_ENABLED 1
2962 :
2963 : #if RK5_ENABLED
2964 : module procedure setVarAvgDIM_WTI_D2_RK5
2965 : use pm_kind, only: TKC => RK5
2966 : #include "pm_sampleVar@routines.inc.F90"
2967 : end procedure
2968 : #endif
2969 :
2970 : #if RK4_ENABLED
2971 250 : module procedure setVarAvgDIM_WTI_D2_RK4
2972 : use pm_kind, only: TKC => RK4
2973 : #include "pm_sampleVar@routines.inc.F90"
2974 250 : end procedure
2975 : #endif
2976 :
2977 : #if RK3_ENABLED
2978 250 : module procedure setVarAvgDIM_WTI_D2_RK3
2979 : use pm_kind, only: TKC => RK3
2980 : #include "pm_sampleVar@routines.inc.F90"
2981 250 : end procedure
2982 : #endif
2983 :
2984 : #if RK2_ENABLED
2985 250 : module procedure setVarAvgDIM_WTI_D2_RK2
2986 : use pm_kind, only: TKC => RK2
2987 : #include "pm_sampleVar@routines.inc.F90"
2988 250 : end procedure
2989 : #endif
2990 :
2991 : #if RK1_ENABLED
2992 317 : module procedure setVarAvgDIM_WTI_D2_RK1
2993 : use pm_kind, only: TKC => RK1
2994 : #include "pm_sampleVar@routines.inc.F90"
2995 317 : end procedure
2996 : #endif
2997 :
2998 : #undef RK_ENABLED
2999 :
3000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3001 :
3002 : #undef D2_ENABLED
3003 :
3004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3007 :
3008 : #undef WTI_ENABLED
3009 :
3010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3013 :
3014 : #define WTR_ENABLED 1
3015 :
3016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3019 :
3020 : #define D1_ENABLED 1
3021 :
3022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3023 :
3024 : #define CK_ENABLED 1
3025 :
3026 : #if CK5_ENABLED
3027 : module procedure setVarAvgDIM_WTR_D1_CK5
3028 : use pm_kind, only: TKC => CK5
3029 : #include "pm_sampleVar@routines.inc.F90"
3030 : end procedure
3031 : #endif
3032 :
3033 : #if CK4_ENABLED
3034 250 : module procedure setVarAvgDIM_WTR_D1_CK4
3035 : use pm_kind, only: TKC => CK4
3036 : #include "pm_sampleVar@routines.inc.F90"
3037 250 : end procedure
3038 : #endif
3039 :
3040 : #if CK3_ENABLED
3041 250 : module procedure setVarAvgDIM_WTR_D1_CK3
3042 : use pm_kind, only: TKC => CK3
3043 : #include "pm_sampleVar@routines.inc.F90"
3044 250 : end procedure
3045 : #endif
3046 :
3047 : #if CK2_ENABLED
3048 250 : module procedure setVarAvgDIM_WTR_D1_CK2
3049 : use pm_kind, only: TKC => CK2
3050 : #include "pm_sampleVar@routines.inc.F90"
3051 250 : end procedure
3052 : #endif
3053 :
3054 : #if CK1_ENABLED
3055 252 : module procedure setVarAvgDIM_WTR_D1_CK1
3056 : use pm_kind, only: TKC => CK1
3057 : #include "pm_sampleVar@routines.inc.F90"
3058 252 : end procedure
3059 : #endif
3060 :
3061 : #undef CK_ENABLED
3062 :
3063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3064 :
3065 : #define RK_ENABLED 1
3066 :
3067 : #if RK5_ENABLED
3068 : module procedure setVarAvgDIM_WTR_D1_RK5
3069 : use pm_kind, only: TKC => RK5
3070 : #include "pm_sampleVar@routines.inc.F90"
3071 : end procedure
3072 : #endif
3073 :
3074 : #if RK4_ENABLED
3075 250 : module procedure setVarAvgDIM_WTR_D1_RK4
3076 : use pm_kind, only: TKC => RK4
3077 : #include "pm_sampleVar@routines.inc.F90"
3078 250 : end procedure
3079 : #endif
3080 :
3081 : #if RK3_ENABLED
3082 250 : module procedure setVarAvgDIM_WTR_D1_RK3
3083 : use pm_kind, only: TKC => RK3
3084 : #include "pm_sampleVar@routines.inc.F90"
3085 250 : end procedure
3086 : #endif
3087 :
3088 : #if RK2_ENABLED
3089 250 : module procedure setVarAvgDIM_WTR_D1_RK2
3090 : use pm_kind, only: TKC => RK2
3091 : #include "pm_sampleVar@routines.inc.F90"
3092 250 : end procedure
3093 : #endif
3094 :
3095 : #if RK1_ENABLED
3096 255 : module procedure setVarAvgDIM_WTR_D1_RK1
3097 : use pm_kind, only: TKC => RK1
3098 : #include "pm_sampleVar@routines.inc.F90"
3099 255 : end procedure
3100 : #endif
3101 :
3102 : #undef RK_ENABLED
3103 :
3104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3105 :
3106 : #undef D1_ENABLED
3107 :
3108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3111 :
3112 : #define D2_ENABLED 1
3113 :
3114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3115 :
3116 : #define CK_ENABLED 1
3117 :
3118 : #if CK5_ENABLED
3119 : module procedure setVarAvgDIM_WTR_D2_CK5
3120 : use pm_kind, only: TKC => CK5
3121 : #include "pm_sampleVar@routines.inc.F90"
3122 : end procedure
3123 : #endif
3124 :
3125 : #if CK4_ENABLED
3126 250 : module procedure setVarAvgDIM_WTR_D2_CK4
3127 : use pm_kind, only: TKC => CK4
3128 : #include "pm_sampleVar@routines.inc.F90"
3129 250 : end procedure
3130 : #endif
3131 :
3132 : #if CK3_ENABLED
3133 250 : module procedure setVarAvgDIM_WTR_D2_CK3
3134 : use pm_kind, only: TKC => CK3
3135 : #include "pm_sampleVar@routines.inc.F90"
3136 250 : end procedure
3137 : #endif
3138 :
3139 : #if CK2_ENABLED
3140 250 : module procedure setVarAvgDIM_WTR_D2_CK2
3141 : use pm_kind, only: TKC => CK2
3142 : #include "pm_sampleVar@routines.inc.F90"
3143 250 : end procedure
3144 : #endif
3145 :
3146 : #if CK1_ENABLED
3147 285 : module procedure setVarAvgDIM_WTR_D2_CK1
3148 : use pm_kind, only: TKC => CK1
3149 : #include "pm_sampleVar@routines.inc.F90"
3150 285 : end procedure
3151 : #endif
3152 :
3153 : #undef CK_ENABLED
3154 :
3155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3156 :
3157 : #define RK_ENABLED 1
3158 :
3159 : #if RK5_ENABLED
3160 : module procedure setVarAvgDIM_WTR_D2_RK5
3161 : use pm_kind, only: TKC => RK5
3162 : #include "pm_sampleVar@routines.inc.F90"
3163 : end procedure
3164 : #endif
3165 :
3166 : #if RK4_ENABLED
3167 250 : module procedure setVarAvgDIM_WTR_D2_RK4
3168 : use pm_kind, only: TKC => RK4
3169 : #include "pm_sampleVar@routines.inc.F90"
3170 250 : end procedure
3171 : #endif
3172 :
3173 : #if RK3_ENABLED
3174 250 : module procedure setVarAvgDIM_WTR_D2_RK3
3175 : use pm_kind, only: TKC => RK3
3176 : #include "pm_sampleVar@routines.inc.F90"
3177 250 : end procedure
3178 : #endif
3179 :
3180 : #if RK2_ENABLED
3181 250 : module procedure setVarAvgDIM_WTR_D2_RK2
3182 : use pm_kind, only: TKC => RK2
3183 : #include "pm_sampleVar@routines.inc.F90"
3184 250 : end procedure
3185 : #endif
3186 :
3187 : #if RK1_ENABLED
3188 321 : module procedure setVarAvgDIM_WTR_D2_RK1
3189 : use pm_kind, only: TKC => RK1
3190 : #include "pm_sampleVar@routines.inc.F90"
3191 321 : end procedure
3192 : #endif
3193 :
3194 : #undef RK_ENABLED
3195 :
3196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3197 :
3198 : #undef D2_ENABLED
3199 :
3200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3203 :
3204 : #undef WTR_ENABLED
3205 :
3206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3209 :
3210 : #undef Avg_ENABLED
3211 :
3212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3215 :
3216 : #define Org_ENABLED 1
3217 :
3218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3221 :
3222 : #define WNO_ENABLED 1
3223 :
3224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3227 :
3228 : #define D1_ENABLED 1
3229 :
3230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3231 :
3232 : #define CK_ENABLED 1
3233 :
3234 : #if CK5_ENABLED
3235 : module procedure setVarOrgDIM_WNO_D1_CK5
3236 : use pm_kind, only: TKC => CK5
3237 : #include "pm_sampleVar@routines.inc.F90"
3238 : end procedure
3239 : #endif
3240 :
3241 : #if CK4_ENABLED
3242 50 : module procedure setVarOrgDIM_WNO_D1_CK4
3243 : use pm_kind, only: TKC => CK4
3244 : #include "pm_sampleVar@routines.inc.F90"
3245 50 : end procedure
3246 : #endif
3247 :
3248 : #if CK3_ENABLED
3249 50 : module procedure setVarOrgDIM_WNO_D1_CK3
3250 : use pm_kind, only: TKC => CK3
3251 : #include "pm_sampleVar@routines.inc.F90"
3252 50 : end procedure
3253 : #endif
3254 :
3255 : #if CK2_ENABLED
3256 50 : module procedure setVarOrgDIM_WNO_D1_CK2
3257 : use pm_kind, only: TKC => CK2
3258 : #include "pm_sampleVar@routines.inc.F90"
3259 50 : end procedure
3260 : #endif
3261 :
3262 : #if CK1_ENABLED
3263 51 : module procedure setVarOrgDIM_WNO_D1_CK1
3264 : use pm_kind, only: TKC => CK1
3265 : #include "pm_sampleVar@routines.inc.F90"
3266 51 : end procedure
3267 : #endif
3268 :
3269 : #undef CK_ENABLED
3270 :
3271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3272 :
3273 : #define RK_ENABLED 1
3274 :
3275 : #if RK5_ENABLED
3276 : module procedure setVarOrgDIM_WNO_D1_RK5
3277 : use pm_kind, only: TKC => RK5
3278 : #include "pm_sampleVar@routines.inc.F90"
3279 : end procedure
3280 : #endif
3281 :
3282 : #if RK4_ENABLED
3283 50 : module procedure setVarOrgDIM_WNO_D1_RK4
3284 : use pm_kind, only: TKC => RK4
3285 : #include "pm_sampleVar@routines.inc.F90"
3286 50 : end procedure
3287 : #endif
3288 :
3289 : #if RK3_ENABLED
3290 50 : module procedure setVarOrgDIM_WNO_D1_RK3
3291 : use pm_kind, only: TKC => RK3
3292 : #include "pm_sampleVar@routines.inc.F90"
3293 50 : end procedure
3294 : #endif
3295 :
3296 : #if RK2_ENABLED
3297 50 : module procedure setVarOrgDIM_WNO_D1_RK2
3298 : use pm_kind, only: TKC => RK2
3299 : #include "pm_sampleVar@routines.inc.F90"
3300 50 : end procedure
3301 : #endif
3302 :
3303 : #if RK1_ENABLED
3304 51 : module procedure setVarOrgDIM_WNO_D1_RK1
3305 : use pm_kind, only: TKC => RK1
3306 : #include "pm_sampleVar@routines.inc.F90"
3307 51 : end procedure
3308 : #endif
3309 :
3310 : #undef RK_ENABLED
3311 :
3312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3313 :
3314 : #undef D1_ENABLED
3315 :
3316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3319 :
3320 : #define D2_ENABLED 1
3321 :
3322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3323 :
3324 : #define CK_ENABLED 1
3325 :
3326 : #if CK5_ENABLED
3327 : module procedure setVarOrgDIM_WNO_D2_CK5
3328 : use pm_kind, only: TKC => CK5
3329 : #include "pm_sampleVar@routines.inc.F90"
3330 : end procedure
3331 : #endif
3332 :
3333 : #if CK4_ENABLED
3334 50 : module procedure setVarOrgDIM_WNO_D2_CK4
3335 : use pm_kind, only: TKC => CK4
3336 : #include "pm_sampleVar@routines.inc.F90"
3337 50 : end procedure
3338 : #endif
3339 :
3340 : #if CK3_ENABLED
3341 50 : module procedure setVarOrgDIM_WNO_D2_CK3
3342 : use pm_kind, only: TKC => CK3
3343 : #include "pm_sampleVar@routines.inc.F90"
3344 50 : end procedure
3345 : #endif
3346 :
3347 : #if CK2_ENABLED
3348 50 : module procedure setVarOrgDIM_WNO_D2_CK2
3349 : use pm_kind, only: TKC => CK2
3350 : #include "pm_sampleVar@routines.inc.F90"
3351 50 : end procedure
3352 : #endif
3353 :
3354 : #if CK1_ENABLED
3355 52 : module procedure setVarOrgDIM_WNO_D2_CK1
3356 : use pm_kind, only: TKC => CK1
3357 : #include "pm_sampleVar@routines.inc.F90"
3358 52 : end procedure
3359 : #endif
3360 :
3361 : #undef CK_ENABLED
3362 :
3363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3364 :
3365 : #define RK_ENABLED 1
3366 :
3367 : #if RK5_ENABLED
3368 : module procedure setVarOrgDIM_WNO_D2_RK5
3369 : use pm_kind, only: TKC => RK5
3370 : #include "pm_sampleVar@routines.inc.F90"
3371 : end procedure
3372 : #endif
3373 :
3374 : #if RK4_ENABLED
3375 50 : module procedure setVarOrgDIM_WNO_D2_RK4
3376 : use pm_kind, only: TKC => RK4
3377 : #include "pm_sampleVar@routines.inc.F90"
3378 50 : end procedure
3379 : #endif
3380 :
3381 : #if RK3_ENABLED
3382 50 : module procedure setVarOrgDIM_WNO_D2_RK3
3383 : use pm_kind, only: TKC => RK3
3384 : #include "pm_sampleVar@routines.inc.F90"
3385 50 : end procedure
3386 : #endif
3387 :
3388 : #if RK2_ENABLED
3389 50 : module procedure setVarOrgDIM_WNO_D2_RK2
3390 : use pm_kind, only: TKC => RK2
3391 : #include "pm_sampleVar@routines.inc.F90"
3392 50 : end procedure
3393 : #endif
3394 :
3395 : #if RK1_ENABLED
3396 52 : module procedure setVarOrgDIM_WNO_D2_RK1
3397 : use pm_kind, only: TKC => RK1
3398 : #include "pm_sampleVar@routines.inc.F90"
3399 52 : end procedure
3400 : #endif
3401 :
3402 : #undef RK_ENABLED
3403 :
3404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3405 :
3406 : #undef D2_ENABLED
3407 :
3408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3411 :
3412 : #undef WNO_ENABLED
3413 :
3414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3417 :
3418 : #define WTI_ENABLED 1
3419 :
3420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3423 :
3424 : #define D1_ENABLED 1
3425 :
3426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3427 :
3428 : #define CK_ENABLED 1
3429 :
3430 : #if CK5_ENABLED
3431 : module procedure setVarOrgDIM_WTI_D1_CK5
3432 : use pm_kind, only: TKC => CK5
3433 : #include "pm_sampleVar@routines.inc.F90"
3434 : end procedure
3435 : #endif
3436 :
3437 : #if CK4_ENABLED
3438 50 : module procedure setVarOrgDIM_WTI_D1_CK4
3439 : use pm_kind, only: TKC => CK4
3440 : #include "pm_sampleVar@routines.inc.F90"
3441 50 : end procedure
3442 : #endif
3443 :
3444 : #if CK3_ENABLED
3445 50 : module procedure setVarOrgDIM_WTI_D1_CK3
3446 : use pm_kind, only: TKC => CK3
3447 : #include "pm_sampleVar@routines.inc.F90"
3448 50 : end procedure
3449 : #endif
3450 :
3451 : #if CK2_ENABLED
3452 50 : module procedure setVarOrgDIM_WTI_D1_CK2
3453 : use pm_kind, only: TKC => CK2
3454 : #include "pm_sampleVar@routines.inc.F90"
3455 50 : end procedure
3456 : #endif
3457 :
3458 : #if CK1_ENABLED
3459 50 : module procedure setVarOrgDIM_WTI_D1_CK1
3460 : use pm_kind, only: TKC => CK1
3461 : #include "pm_sampleVar@routines.inc.F90"
3462 50 : end procedure
3463 : #endif
3464 :
3465 : #undef CK_ENABLED
3466 :
3467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3468 :
3469 : #define RK_ENABLED 1
3470 :
3471 : #if RK5_ENABLED
3472 : module procedure setVarOrgDIM_WTI_D1_RK5
3473 : use pm_kind, only: TKC => RK5
3474 : #include "pm_sampleVar@routines.inc.F90"
3475 : end procedure
3476 : #endif
3477 :
3478 : #if RK4_ENABLED
3479 50 : module procedure setVarOrgDIM_WTI_D1_RK4
3480 : use pm_kind, only: TKC => RK4
3481 : #include "pm_sampleVar@routines.inc.F90"
3482 50 : end procedure
3483 : #endif
3484 :
3485 : #if RK3_ENABLED
3486 50 : module procedure setVarOrgDIM_WTI_D1_RK3
3487 : use pm_kind, only: TKC => RK3
3488 : #include "pm_sampleVar@routines.inc.F90"
3489 50 : end procedure
3490 : #endif
3491 :
3492 : #if RK2_ENABLED
3493 50 : module procedure setVarOrgDIM_WTI_D1_RK2
3494 : use pm_kind, only: TKC => RK2
3495 : #include "pm_sampleVar@routines.inc.F90"
3496 50 : end procedure
3497 : #endif
3498 :
3499 : #if RK1_ENABLED
3500 50 : module procedure setVarOrgDIM_WTI_D1_RK1
3501 : use pm_kind, only: TKC => RK1
3502 : #include "pm_sampleVar@routines.inc.F90"
3503 50 : end procedure
3504 : #endif
3505 :
3506 : #undef RK_ENABLED
3507 :
3508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3509 :
3510 : #undef D1_ENABLED
3511 :
3512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3515 :
3516 : #define D2_ENABLED 1
3517 :
3518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3519 :
3520 : #define CK_ENABLED 1
3521 :
3522 : #if CK5_ENABLED
3523 : module procedure setVarOrgDIM_WTI_D2_CK5
3524 : use pm_kind, only: TKC => CK5
3525 : #include "pm_sampleVar@routines.inc.F90"
3526 : end procedure
3527 : #endif
3528 :
3529 : #if CK4_ENABLED
3530 50 : module procedure setVarOrgDIM_WTI_D2_CK4
3531 : use pm_kind, only: TKC => CK4
3532 : #include "pm_sampleVar@routines.inc.F90"
3533 50 : end procedure
3534 : #endif
3535 :
3536 : #if CK3_ENABLED
3537 50 : module procedure setVarOrgDIM_WTI_D2_CK3
3538 : use pm_kind, only: TKC => CK3
3539 : #include "pm_sampleVar@routines.inc.F90"
3540 50 : end procedure
3541 : #endif
3542 :
3543 : #if CK2_ENABLED
3544 50 : module procedure setVarOrgDIM_WTI_D2_CK2
3545 : use pm_kind, only: TKC => CK2
3546 : #include "pm_sampleVar@routines.inc.F90"
3547 50 : end procedure
3548 : #endif
3549 :
3550 : #if CK1_ENABLED
3551 50 : module procedure setVarOrgDIM_WTI_D2_CK1
3552 : use pm_kind, only: TKC => CK1
3553 : #include "pm_sampleVar@routines.inc.F90"
3554 50 : end procedure
3555 : #endif
3556 :
3557 : #undef CK_ENABLED
3558 :
3559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3560 :
3561 : #define RK_ENABLED 1
3562 :
3563 : #if RK5_ENABLED
3564 : module procedure setVarOrgDIM_WTI_D2_RK5
3565 : use pm_kind, only: TKC => RK5
3566 : #include "pm_sampleVar@routines.inc.F90"
3567 : end procedure
3568 : #endif
3569 :
3570 : #if RK4_ENABLED
3571 50 : module procedure setVarOrgDIM_WTI_D2_RK4
3572 : use pm_kind, only: TKC => RK4
3573 : #include "pm_sampleVar@routines.inc.F90"
3574 50 : end procedure
3575 : #endif
3576 :
3577 : #if RK3_ENABLED
3578 50 : module procedure setVarOrgDIM_WTI_D2_RK3
3579 : use pm_kind, only: TKC => RK3
3580 : #include "pm_sampleVar@routines.inc.F90"
3581 50 : end procedure
3582 : #endif
3583 :
3584 : #if RK2_ENABLED
3585 50 : module procedure setVarOrgDIM_WTI_D2_RK2
3586 : use pm_kind, only: TKC => RK2
3587 : #include "pm_sampleVar@routines.inc.F90"
3588 50 : end procedure
3589 : #endif
3590 :
3591 : #if RK1_ENABLED
3592 50 : module procedure setVarOrgDIM_WTI_D2_RK1
3593 : use pm_kind, only: TKC => RK1
3594 : #include "pm_sampleVar@routines.inc.F90"
3595 50 : end procedure
3596 : #endif
3597 :
3598 : #undef RK_ENABLED
3599 :
3600 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3601 :
3602 : #undef D2_ENABLED
3603 :
3604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3607 :
3608 : #undef WTI_ENABLED
3609 :
3610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3613 :
3614 : #define WTR_ENABLED 1
3615 :
3616 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3619 :
3620 : #define D1_ENABLED 1
3621 :
3622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3623 :
3624 : #define CK_ENABLED 1
3625 :
3626 : #if CK5_ENABLED
3627 : module procedure setVarOrgDIM_WTR_D1_CK5
3628 : use pm_kind, only: TKC => CK5
3629 : #include "pm_sampleVar@routines.inc.F90"
3630 : end procedure
3631 : #endif
3632 :
3633 : #if CK4_ENABLED
3634 50 : module procedure setVarOrgDIM_WTR_D1_CK4
3635 : use pm_kind, only: TKC => CK4
3636 : #include "pm_sampleVar@routines.inc.F90"
3637 50 : end procedure
3638 : #endif
3639 :
3640 : #if CK3_ENABLED
3641 50 : module procedure setVarOrgDIM_WTR_D1_CK3
3642 : use pm_kind, only: TKC => CK3
3643 : #include "pm_sampleVar@routines.inc.F90"
3644 50 : end procedure
3645 : #endif
3646 :
3647 : #if CK2_ENABLED
3648 50 : module procedure setVarOrgDIM_WTR_D1_CK2
3649 : use pm_kind, only: TKC => CK2
3650 : #include "pm_sampleVar@routines.inc.F90"
3651 50 : end procedure
3652 : #endif
3653 :
3654 : #if CK1_ENABLED
3655 51 : module procedure setVarOrgDIM_WTR_D1_CK1
3656 : use pm_kind, only: TKC => CK1
3657 : #include "pm_sampleVar@routines.inc.F90"
3658 51 : end procedure
3659 : #endif
3660 :
3661 : #undef CK_ENABLED
3662 :
3663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3664 :
3665 : #define RK_ENABLED 1
3666 :
3667 : #if RK5_ENABLED
3668 : module procedure setVarOrgDIM_WTR_D1_RK5
3669 : use pm_kind, only: TKC => RK5
3670 : #include "pm_sampleVar@routines.inc.F90"
3671 : end procedure
3672 : #endif
3673 :
3674 : #if RK4_ENABLED
3675 50 : module procedure setVarOrgDIM_WTR_D1_RK4
3676 : use pm_kind, only: TKC => RK4
3677 : #include "pm_sampleVar@routines.inc.F90"
3678 50 : end procedure
3679 : #endif
3680 :
3681 : #if RK3_ENABLED
3682 50 : module procedure setVarOrgDIM_WTR_D1_RK3
3683 : use pm_kind, only: TKC => RK3
3684 : #include "pm_sampleVar@routines.inc.F90"
3685 50 : end procedure
3686 : #endif
3687 :
3688 : #if RK2_ENABLED
3689 50 : module procedure setVarOrgDIM_WTR_D1_RK2
3690 : use pm_kind, only: TKC => RK2
3691 : #include "pm_sampleVar@routines.inc.F90"
3692 50 : end procedure
3693 : #endif
3694 :
3695 : #if RK1_ENABLED
3696 51 : module procedure setVarOrgDIM_WTR_D1_RK1
3697 : use pm_kind, only: TKC => RK1
3698 : #include "pm_sampleVar@routines.inc.F90"
3699 51 : end procedure
3700 : #endif
3701 :
3702 : #undef RK_ENABLED
3703 :
3704 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3705 :
3706 : #undef D1_ENABLED
3707 :
3708 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3710 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3711 :
3712 : #define D2_ENABLED 1
3713 :
3714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3715 :
3716 : #define CK_ENABLED 1
3717 :
3718 : #if CK5_ENABLED
3719 : module procedure setVarOrgDIM_WTR_D2_CK5
3720 : use pm_kind, only: TKC => CK5
3721 : #include "pm_sampleVar@routines.inc.F90"
3722 : end procedure
3723 : #endif
3724 :
3725 : #if CK4_ENABLED
3726 50 : module procedure setVarOrgDIM_WTR_D2_CK4
3727 : use pm_kind, only: TKC => CK4
3728 : #include "pm_sampleVar@routines.inc.F90"
3729 50 : end procedure
3730 : #endif
3731 :
3732 : #if CK3_ENABLED
3733 50 : module procedure setVarOrgDIM_WTR_D2_CK3
3734 : use pm_kind, only: TKC => CK3
3735 : #include "pm_sampleVar@routines.inc.F90"
3736 50 : end procedure
3737 : #endif
3738 :
3739 : #if CK2_ENABLED
3740 50 : module procedure setVarOrgDIM_WTR_D2_CK2
3741 : use pm_kind, only: TKC => CK2
3742 : #include "pm_sampleVar@routines.inc.F90"
3743 50 : end procedure
3744 : #endif
3745 :
3746 : #if CK1_ENABLED
3747 50 : module procedure setVarOrgDIM_WTR_D2_CK1
3748 : use pm_kind, only: TKC => CK1
3749 : #include "pm_sampleVar@routines.inc.F90"
3750 50 : end procedure
3751 : #endif
3752 :
3753 : #undef CK_ENABLED
3754 :
3755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3756 :
3757 : #define RK_ENABLED 1
3758 :
3759 : #if RK5_ENABLED
3760 : module procedure setVarOrgDIM_WTR_D2_RK5
3761 : use pm_kind, only: TKC => RK5
3762 : #include "pm_sampleVar@routines.inc.F90"
3763 : end procedure
3764 : #endif
3765 :
3766 : #if RK4_ENABLED
3767 50 : module procedure setVarOrgDIM_WTR_D2_RK4
3768 : use pm_kind, only: TKC => RK4
3769 : #include "pm_sampleVar@routines.inc.F90"
3770 50 : end procedure
3771 : #endif
3772 :
3773 : #if RK3_ENABLED
3774 50 : module procedure setVarOrgDIM_WTR_D2_RK3
3775 : use pm_kind, only: TKC => RK3
3776 : #include "pm_sampleVar@routines.inc.F90"
3777 50 : end procedure
3778 : #endif
3779 :
3780 : #if RK2_ENABLED
3781 50 : module procedure setVarOrgDIM_WTR_D2_RK2
3782 : use pm_kind, only: TKC => RK2
3783 : #include "pm_sampleVar@routines.inc.F90"
3784 50 : end procedure
3785 : #endif
3786 :
3787 : #if RK1_ENABLED
3788 50 : module procedure setVarOrgDIM_WTR_D2_RK1
3789 : use pm_kind, only: TKC => RK1
3790 : #include "pm_sampleVar@routines.inc.F90"
3791 50 : end procedure
3792 : #endif
3793 :
3794 : #undef RK_ENABLED
3795 :
3796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3797 :
3798 : #undef D2_ENABLED
3799 :
3800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3803 :
3804 : #undef WTR_ENABLED
3805 :
3806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3809 :
3810 : #undef Org_ENABLED
3811 :
3812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3813 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3815 :
3816 : #undef DIM_ENABLED
3817 :
3818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3821 :
3822 : #undef setVar_ENABLED
3823 :
3824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3825 :
3826 : #define setVarMean_ENABLED 1
3827 :
3828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3830 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3831 :
3832 : #define ALL_ENABLED 1
3833 :
3834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3835 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3836 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3837 :
3838 : #define WNO_ENABLED 1
3839 :
3840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3843 :
3844 : #define DD_ENABLED 1
3845 :
3846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3847 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3849 :
3850 : #define D1_ENABLED 1
3851 :
3852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3853 :
3854 : #define CK_ENABLED 1
3855 :
3856 : #if CK5_ENABLED
3857 : module procedure setVarMeanALL_WNODD_D1_CK5
3858 : use pm_kind, only: TKC => CK5
3859 : #include "pm_sampleVar@routines.inc.F90"
3860 : end procedure
3861 : #endif
3862 :
3863 : #if CK4_ENABLED
3864 50 : module procedure setVarMeanALL_WNODD_D1_CK4
3865 : use pm_kind, only: TKC => CK4
3866 : #include "pm_sampleVar@routines.inc.F90"
3867 50 : end procedure
3868 : #endif
3869 :
3870 : #if CK3_ENABLED
3871 50 : module procedure setVarMeanALL_WNODD_D1_CK3
3872 : use pm_kind, only: TKC => CK3
3873 : #include "pm_sampleVar@routines.inc.F90"
3874 50 : end procedure
3875 : #endif
3876 :
3877 : #if CK2_ENABLED
3878 50 : module procedure setVarMeanALL_WNODD_D1_CK2
3879 : use pm_kind, only: TKC => CK2
3880 : #include "pm_sampleVar@routines.inc.F90"
3881 50 : end procedure
3882 : #endif
3883 :
3884 : #if CK1_ENABLED
3885 51 : module procedure setVarMeanALL_WNODD_D1_CK1
3886 : use pm_kind, only: TKC => CK1
3887 : #include "pm_sampleVar@routines.inc.F90"
3888 51 : end procedure
3889 : #endif
3890 :
3891 : #undef CK_ENABLED
3892 :
3893 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3894 :
3895 : #define RK_ENABLED 1
3896 :
3897 : #if RK5_ENABLED
3898 : module procedure setVarMeanALL_WNODD_D1_RK5
3899 : use pm_kind, only: TKC => RK5
3900 : #include "pm_sampleVar@routines.inc.F90"
3901 : end procedure
3902 : #endif
3903 :
3904 : #if RK4_ENABLED
3905 50 : module procedure setVarMeanALL_WNODD_D1_RK4
3906 : use pm_kind, only: TKC => RK4
3907 : #include "pm_sampleVar@routines.inc.F90"
3908 50 : end procedure
3909 : #endif
3910 :
3911 : #if RK3_ENABLED
3912 50 : module procedure setVarMeanALL_WNODD_D1_RK3
3913 : use pm_kind, only: TKC => RK3
3914 : #include "pm_sampleVar@routines.inc.F90"
3915 50 : end procedure
3916 : #endif
3917 :
3918 : #if RK2_ENABLED
3919 50 : module procedure setVarMeanALL_WNODD_D1_RK2
3920 : use pm_kind, only: TKC => RK2
3921 : #include "pm_sampleVar@routines.inc.F90"
3922 50 : end procedure
3923 : #endif
3924 :
3925 : #if RK1_ENABLED
3926 51 : module procedure setVarMeanALL_WNODD_D1_RK1
3927 : use pm_kind, only: TKC => RK1
3928 : #include "pm_sampleVar@routines.inc.F90"
3929 51 : end procedure
3930 : #endif
3931 :
3932 : #undef RK_ENABLED
3933 :
3934 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3935 :
3936 : #undef D1_ENABLED
3937 :
3938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3940 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3941 :
3942 : #define D2_ENABLED 1
3943 :
3944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3945 :
3946 : #define CK_ENABLED 1
3947 :
3948 : #if CK5_ENABLED
3949 : module procedure setVarMeanALL_WNODD_D2_CK5
3950 : use pm_kind, only: TKC => CK5
3951 : #include "pm_sampleVar@routines.inc.F90"
3952 : end procedure
3953 : #endif
3954 :
3955 : #if CK4_ENABLED
3956 50 : module procedure setVarMeanALL_WNODD_D2_CK4
3957 : use pm_kind, only: TKC => CK4
3958 : #include "pm_sampleVar@routines.inc.F90"
3959 50 : end procedure
3960 : #endif
3961 :
3962 : #if CK3_ENABLED
3963 50 : module procedure setVarMeanALL_WNODD_D2_CK3
3964 : use pm_kind, only: TKC => CK3
3965 : #include "pm_sampleVar@routines.inc.F90"
3966 50 : end procedure
3967 : #endif
3968 :
3969 : #if CK2_ENABLED
3970 50 : module procedure setVarMeanALL_WNODD_D2_CK2
3971 : use pm_kind, only: TKC => CK2
3972 : #include "pm_sampleVar@routines.inc.F90"
3973 50 : end procedure
3974 : #endif
3975 :
3976 : #if CK1_ENABLED
3977 51 : module procedure setVarMeanALL_WNODD_D2_CK1
3978 : use pm_kind, only: TKC => CK1
3979 : #include "pm_sampleVar@routines.inc.F90"
3980 51 : end procedure
3981 : #endif
3982 :
3983 : #undef CK_ENABLED
3984 :
3985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3986 :
3987 : #define RK_ENABLED 1
3988 :
3989 : #if RK5_ENABLED
3990 : module procedure setVarMeanALL_WNODD_D2_RK5
3991 : use pm_kind, only: TKC => RK5
3992 : #include "pm_sampleVar@routines.inc.F90"
3993 : end procedure
3994 : #endif
3995 :
3996 : #if RK4_ENABLED
3997 50 : module procedure setVarMeanALL_WNODD_D2_RK4
3998 : use pm_kind, only: TKC => RK4
3999 : #include "pm_sampleVar@routines.inc.F90"
4000 50 : end procedure
4001 : #endif
4002 :
4003 : #if RK3_ENABLED
4004 50 : module procedure setVarMeanALL_WNODD_D2_RK3
4005 : use pm_kind, only: TKC => RK3
4006 : #include "pm_sampleVar@routines.inc.F90"
4007 50 : end procedure
4008 : #endif
4009 :
4010 : #if RK2_ENABLED
4011 50 : module procedure setVarMeanALL_WNODD_D2_RK2
4012 : use pm_kind, only: TKC => RK2
4013 : #include "pm_sampleVar@routines.inc.F90"
4014 50 : end procedure
4015 : #endif
4016 :
4017 : #if RK1_ENABLED
4018 51 : module procedure setVarMeanALL_WNODD_D2_RK1
4019 : use pm_kind, only: TKC => RK1
4020 : #include "pm_sampleVar@routines.inc.F90"
4021 51 : end procedure
4022 : #endif
4023 :
4024 : #undef RK_ENABLED
4025 :
4026 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4027 :
4028 : #undef D2_ENABLED
4029 :
4030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4032 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4033 :
4034 : #undef DD_ENABLED
4035 :
4036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4038 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4039 :
4040 : #undef WNO_ENABLED
4041 :
4042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4045 :
4046 : #define WTI_ENABLED 1
4047 :
4048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4051 :
4052 : #define SD_ENABLED 1
4053 :
4054 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4055 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4057 :
4058 : #define D1_ENABLED 1
4059 :
4060 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4061 :
4062 : #define CK_ENABLED 1
4063 :
4064 : #if CK5_ENABLED
4065 : module procedure setVarMeanALL_WTISD_D1_CK5
4066 : use pm_kind, only: TKC => CK5
4067 : #include "pm_sampleVar@routines.inc.F90"
4068 : end procedure
4069 : #endif
4070 :
4071 : #if CK4_ENABLED
4072 50 : module procedure setVarMeanALL_WTISD_D1_CK4
4073 : use pm_kind, only: TKC => CK4
4074 : #include "pm_sampleVar@routines.inc.F90"
4075 50 : end procedure
4076 : #endif
4077 :
4078 : #if CK3_ENABLED
4079 50 : module procedure setVarMeanALL_WTISD_D1_CK3
4080 : use pm_kind, only: TKC => CK3
4081 : #include "pm_sampleVar@routines.inc.F90"
4082 50 : end procedure
4083 : #endif
4084 :
4085 : #if CK2_ENABLED
4086 50 : module procedure setVarMeanALL_WTISD_D1_CK2
4087 : use pm_kind, only: TKC => CK2
4088 : #include "pm_sampleVar@routines.inc.F90"
4089 50 : end procedure
4090 : #endif
4091 :
4092 : #if CK1_ENABLED
4093 50 : module procedure setVarMeanALL_WTISD_D1_CK1
4094 : use pm_kind, only: TKC => CK1
4095 : #include "pm_sampleVar@routines.inc.F90"
4096 50 : end procedure
4097 : #endif
4098 :
4099 : #undef CK_ENABLED
4100 :
4101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4102 :
4103 : #define RK_ENABLED 1
4104 :
4105 : #if RK5_ENABLED
4106 : module procedure setVarMeanALL_WTISD_D1_RK5
4107 : use pm_kind, only: TKC => RK5
4108 : #include "pm_sampleVar@routines.inc.F90"
4109 : end procedure
4110 : #endif
4111 :
4112 : #if RK4_ENABLED
4113 50 : module procedure setVarMeanALL_WTISD_D1_RK4
4114 : use pm_kind, only: TKC => RK4
4115 : #include "pm_sampleVar@routines.inc.F90"
4116 50 : end procedure
4117 : #endif
4118 :
4119 : #if RK3_ENABLED
4120 50 : module procedure setVarMeanALL_WTISD_D1_RK3
4121 : use pm_kind, only: TKC => RK3
4122 : #include "pm_sampleVar@routines.inc.F90"
4123 50 : end procedure
4124 : #endif
4125 :
4126 : #if RK2_ENABLED
4127 50 : module procedure setVarMeanALL_WTISD_D1_RK2
4128 : use pm_kind, only: TKC => RK2
4129 : #include "pm_sampleVar@routines.inc.F90"
4130 50 : end procedure
4131 : #endif
4132 :
4133 : #if RK1_ENABLED
4134 50 : module procedure setVarMeanALL_WTISD_D1_RK1
4135 : use pm_kind, only: TKC => RK1
4136 : #include "pm_sampleVar@routines.inc.F90"
4137 50 : end procedure
4138 : #endif
4139 :
4140 : #undef RK_ENABLED
4141 :
4142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4143 :
4144 : #undef D1_ENABLED
4145 :
4146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4149 :
4150 : #define D2_ENABLED 1
4151 :
4152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4153 :
4154 : #define CK_ENABLED 1
4155 :
4156 : #if CK5_ENABLED
4157 : module procedure setVarMeanALL_WTISD_D2_CK5
4158 : use pm_kind, only: TKC => CK5
4159 : #include "pm_sampleVar@routines.inc.F90"
4160 : end procedure
4161 : #endif
4162 :
4163 : #if CK4_ENABLED
4164 50 : module procedure setVarMeanALL_WTISD_D2_CK4
4165 : use pm_kind, only: TKC => CK4
4166 : #include "pm_sampleVar@routines.inc.F90"
4167 50 : end procedure
4168 : #endif
4169 :
4170 : #if CK3_ENABLED
4171 50 : module procedure setVarMeanALL_WTISD_D2_CK3
4172 : use pm_kind, only: TKC => CK3
4173 : #include "pm_sampleVar@routines.inc.F90"
4174 50 : end procedure
4175 : #endif
4176 :
4177 : #if CK2_ENABLED
4178 50 : module procedure setVarMeanALL_WTISD_D2_CK2
4179 : use pm_kind, only: TKC => CK2
4180 : #include "pm_sampleVar@routines.inc.F90"
4181 50 : end procedure
4182 : #endif
4183 :
4184 : #if CK1_ENABLED
4185 50 : module procedure setVarMeanALL_WTISD_D2_CK1
4186 : use pm_kind, only: TKC => CK1
4187 : #include "pm_sampleVar@routines.inc.F90"
4188 50 : end procedure
4189 : #endif
4190 :
4191 : #undef CK_ENABLED
4192 :
4193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4194 :
4195 : #define RK_ENABLED 1
4196 :
4197 : #if RK5_ENABLED
4198 : module procedure setVarMeanALL_WTISD_D2_RK5
4199 : use pm_kind, only: TKC => RK5
4200 : #include "pm_sampleVar@routines.inc.F90"
4201 : end procedure
4202 : #endif
4203 :
4204 : #if RK4_ENABLED
4205 50 : module procedure setVarMeanALL_WTISD_D2_RK4
4206 : use pm_kind, only: TKC => RK4
4207 : #include "pm_sampleVar@routines.inc.F90"
4208 50 : end procedure
4209 : #endif
4210 :
4211 : #if RK3_ENABLED
4212 50 : module procedure setVarMeanALL_WTISD_D2_RK3
4213 : use pm_kind, only: TKC => RK3
4214 : #include "pm_sampleVar@routines.inc.F90"
4215 50 : end procedure
4216 : #endif
4217 :
4218 : #if RK2_ENABLED
4219 50 : module procedure setVarMeanALL_WTISD_D2_RK2
4220 : use pm_kind, only: TKC => RK2
4221 : #include "pm_sampleVar@routines.inc.F90"
4222 50 : end procedure
4223 : #endif
4224 :
4225 : #if RK1_ENABLED
4226 51 : module procedure setVarMeanALL_WTISD_D2_RK1
4227 : use pm_kind, only: TKC => RK1
4228 : #include "pm_sampleVar@routines.inc.F90"
4229 51 : end procedure
4230 : #endif
4231 :
4232 : #undef RK_ENABLED
4233 :
4234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4235 :
4236 : #undef D2_ENABLED
4237 :
4238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4241 :
4242 : #undef SD_ENABLED
4243 :
4244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4247 :
4248 : #undef WTI_ENABLED
4249 :
4250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4253 :
4254 : #define WTR_ENABLED 1
4255 :
4256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4259 :
4260 : #define SD_ENABLED 1
4261 :
4262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4265 :
4266 : #define D1_ENABLED 1
4267 :
4268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4269 :
4270 : #define CK_ENABLED 1
4271 :
4272 : #if CK5_ENABLED
4273 : module procedure setVarMeanALL_WTRSD_D1_CK5
4274 : use pm_kind, only: TKC => CK5
4275 : #include "pm_sampleVar@routines.inc.F90"
4276 : end procedure
4277 : #endif
4278 :
4279 : #if CK4_ENABLED
4280 50 : module procedure setVarMeanALL_WTRSD_D1_CK4
4281 : use pm_kind, only: TKC => CK4
4282 : #include "pm_sampleVar@routines.inc.F90"
4283 50 : end procedure
4284 : #endif
4285 :
4286 : #if CK3_ENABLED
4287 50 : module procedure setVarMeanALL_WTRSD_D1_CK3
4288 : use pm_kind, only: TKC => CK3
4289 : #include "pm_sampleVar@routines.inc.F90"
4290 50 : end procedure
4291 : #endif
4292 :
4293 : #if CK2_ENABLED
4294 50 : module procedure setVarMeanALL_WTRSD_D1_CK2
4295 : use pm_kind, only: TKC => CK2
4296 : #include "pm_sampleVar@routines.inc.F90"
4297 50 : end procedure
4298 : #endif
4299 :
4300 : #if CK1_ENABLED
4301 51 : module procedure setVarMeanALL_WTRSD_D1_CK1
4302 : use pm_kind, only: TKC => CK1
4303 : #include "pm_sampleVar@routines.inc.F90"
4304 51 : end procedure
4305 : #endif
4306 :
4307 : #undef CK_ENABLED
4308 :
4309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4310 :
4311 : #define RK_ENABLED 1
4312 :
4313 : #if RK5_ENABLED
4314 : module procedure setVarMeanALL_WTRSD_D1_RK5
4315 : use pm_kind, only: TKC => RK5
4316 : #include "pm_sampleVar@routines.inc.F90"
4317 : end procedure
4318 : #endif
4319 :
4320 : #if RK4_ENABLED
4321 50 : module procedure setVarMeanALL_WTRSD_D1_RK4
4322 : use pm_kind, only: TKC => RK4
4323 : #include "pm_sampleVar@routines.inc.F90"
4324 50 : end procedure
4325 : #endif
4326 :
4327 : #if RK3_ENABLED
4328 50 : module procedure setVarMeanALL_WTRSD_D1_RK3
4329 : use pm_kind, only: TKC => RK3
4330 : #include "pm_sampleVar@routines.inc.F90"
4331 50 : end procedure
4332 : #endif
4333 :
4334 : #if RK2_ENABLED
4335 50 : module procedure setVarMeanALL_WTRSD_D1_RK2
4336 : use pm_kind, only: TKC => RK2
4337 : #include "pm_sampleVar@routines.inc.F90"
4338 50 : end procedure
4339 : #endif
4340 :
4341 : #if RK1_ENABLED
4342 51 : module procedure setVarMeanALL_WTRSD_D1_RK1
4343 : use pm_kind, only: TKC => RK1
4344 : #include "pm_sampleVar@routines.inc.F90"
4345 51 : end procedure
4346 : #endif
4347 :
4348 : #undef RK_ENABLED
4349 :
4350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4351 :
4352 : #undef D1_ENABLED
4353 :
4354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4357 :
4358 : #define D2_ENABLED 1
4359 :
4360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4361 :
4362 : #define CK_ENABLED 1
4363 :
4364 : #if CK5_ENABLED
4365 : module procedure setVarMeanALL_WTRSD_D2_CK5
4366 : use pm_kind, only: TKC => CK5
4367 : #include "pm_sampleVar@routines.inc.F90"
4368 : end procedure
4369 : #endif
4370 :
4371 : #if CK4_ENABLED
4372 50 : module procedure setVarMeanALL_WTRSD_D2_CK4
4373 : use pm_kind, only: TKC => CK4
4374 : #include "pm_sampleVar@routines.inc.F90"
4375 50 : end procedure
4376 : #endif
4377 :
4378 : #if CK3_ENABLED
4379 50 : module procedure setVarMeanALL_WTRSD_D2_CK3
4380 : use pm_kind, only: TKC => CK3
4381 : #include "pm_sampleVar@routines.inc.F90"
4382 50 : end procedure
4383 : #endif
4384 :
4385 : #if CK2_ENABLED
4386 50 : module procedure setVarMeanALL_WTRSD_D2_CK2
4387 : use pm_kind, only: TKC => CK2
4388 : #include "pm_sampleVar@routines.inc.F90"
4389 50 : end procedure
4390 : #endif
4391 :
4392 : #if CK1_ENABLED
4393 50 : module procedure setVarMeanALL_WTRSD_D2_CK1
4394 : use pm_kind, only: TKC => CK1
4395 : #include "pm_sampleVar@routines.inc.F90"
4396 50 : end procedure
4397 : #endif
4398 :
4399 : #undef CK_ENABLED
4400 :
4401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4402 :
4403 : #define RK_ENABLED 1
4404 :
4405 : #if RK5_ENABLED
4406 : module procedure setVarMeanALL_WTRSD_D2_RK5
4407 : use pm_kind, only: TKC => RK5
4408 : #include "pm_sampleVar@routines.inc.F90"
4409 : end procedure
4410 : #endif
4411 :
4412 : #if RK4_ENABLED
4413 50 : module procedure setVarMeanALL_WTRSD_D2_RK4
4414 : use pm_kind, only: TKC => RK4
4415 : #include "pm_sampleVar@routines.inc.F90"
4416 50 : end procedure
4417 : #endif
4418 :
4419 : #if RK3_ENABLED
4420 50 : module procedure setVarMeanALL_WTRSD_D2_RK3
4421 : use pm_kind, only: TKC => RK3
4422 : #include "pm_sampleVar@routines.inc.F90"
4423 50 : end procedure
4424 : #endif
4425 :
4426 : #if RK2_ENABLED
4427 50 : module procedure setVarMeanALL_WTRSD_D2_RK2
4428 : use pm_kind, only: TKC => RK2
4429 : #include "pm_sampleVar@routines.inc.F90"
4430 50 : end procedure
4431 : #endif
4432 :
4433 : #if RK1_ENABLED
4434 51 : module procedure setVarMeanALL_WTRSD_D2_RK1
4435 : use pm_kind, only: TKC => RK1
4436 : #include "pm_sampleVar@routines.inc.F90"
4437 51 : end procedure
4438 : #endif
4439 :
4440 : #undef RK_ENABLED
4441 :
4442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4443 :
4444 : #undef D2_ENABLED
4445 :
4446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4449 :
4450 : #undef SD_ENABLED
4451 :
4452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4455 :
4456 : #undef WTR_ENABLED
4457 :
4458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4461 :
4462 : #undef ALL_ENABLED
4463 :
4464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4467 :
4468 : #undef setVarMean_ENABLED
4469 :
4470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4471 :
4472 : #define setVarMean_ENABLED 1
4473 :
4474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4477 :
4478 : #define DIM_ENABLED 1
4479 :
4480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4483 :
4484 : #define WNO_ENABLED 1
4485 :
4486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4489 :
4490 : #define DD_ENABLED 1
4491 :
4492 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4495 :
4496 : #define D1_ENABLED 1
4497 :
4498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4499 :
4500 : #define CK_ENABLED 1
4501 :
4502 : #if CK5_ENABLED
4503 : module procedure setVarMeanDIM_WNODD_D1_CK5
4504 : use pm_kind, only: TKC => CK5
4505 : #include "pm_sampleVar@routines.inc.F90"
4506 : end procedure
4507 : #endif
4508 :
4509 : #if CK4_ENABLED
4510 50 : module procedure setVarMeanDIM_WNODD_D1_CK4
4511 : use pm_kind, only: TKC => CK4
4512 : #include "pm_sampleVar@routines.inc.F90"
4513 50 : end procedure
4514 : #endif
4515 :
4516 : #if CK3_ENABLED
4517 50 : module procedure setVarMeanDIM_WNODD_D1_CK3
4518 : use pm_kind, only: TKC => CK3
4519 : #include "pm_sampleVar@routines.inc.F90"
4520 50 : end procedure
4521 : #endif
4522 :
4523 : #if CK2_ENABLED
4524 50 : module procedure setVarMeanDIM_WNODD_D1_CK2
4525 : use pm_kind, only: TKC => CK2
4526 : #include "pm_sampleVar@routines.inc.F90"
4527 50 : end procedure
4528 : #endif
4529 :
4530 : #if CK1_ENABLED
4531 51 : module procedure setVarMeanDIM_WNODD_D1_CK1
4532 : use pm_kind, only: TKC => CK1
4533 : #include "pm_sampleVar@routines.inc.F90"
4534 51 : end procedure
4535 : #endif
4536 :
4537 : #undef CK_ENABLED
4538 :
4539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4540 :
4541 : #define RK_ENABLED 1
4542 :
4543 : #if RK5_ENABLED
4544 : module procedure setVarMeanDIM_WNODD_D1_RK5
4545 : use pm_kind, only: TKC => RK5
4546 : #include "pm_sampleVar@routines.inc.F90"
4547 : end procedure
4548 : #endif
4549 :
4550 : #if RK4_ENABLED
4551 50 : module procedure setVarMeanDIM_WNODD_D1_RK4
4552 : use pm_kind, only: TKC => RK4
4553 : #include "pm_sampleVar@routines.inc.F90"
4554 50 : end procedure
4555 : #endif
4556 :
4557 : #if RK3_ENABLED
4558 50 : module procedure setVarMeanDIM_WNODD_D1_RK3
4559 : use pm_kind, only: TKC => RK3
4560 : #include "pm_sampleVar@routines.inc.F90"
4561 50 : end procedure
4562 : #endif
4563 :
4564 : #if RK2_ENABLED
4565 50 : module procedure setVarMeanDIM_WNODD_D1_RK2
4566 : use pm_kind, only: TKC => RK2
4567 : #include "pm_sampleVar@routines.inc.F90"
4568 50 : end procedure
4569 : #endif
4570 :
4571 : #if RK1_ENABLED
4572 51 : module procedure setVarMeanDIM_WNODD_D1_RK1
4573 : use pm_kind, only: TKC => RK1
4574 : #include "pm_sampleVar@routines.inc.F90"
4575 51 : end procedure
4576 : #endif
4577 :
4578 : #undef RK_ENABLED
4579 :
4580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4581 :
4582 : #undef D1_ENABLED
4583 :
4584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4587 :
4588 : #define D2_ENABLED 1
4589 :
4590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4591 :
4592 : #define CK_ENABLED 1
4593 :
4594 : #if CK5_ENABLED
4595 : module procedure setVarMeanDIM_WNODD_D2_CK5
4596 : use pm_kind, only: TKC => CK5
4597 : #include "pm_sampleVar@routines.inc.F90"
4598 : end procedure
4599 : #endif
4600 :
4601 : #if CK4_ENABLED
4602 50 : module procedure setVarMeanDIM_WNODD_D2_CK4
4603 : use pm_kind, only: TKC => CK4
4604 : #include "pm_sampleVar@routines.inc.F90"
4605 50 : end procedure
4606 : #endif
4607 :
4608 : #if CK3_ENABLED
4609 50 : module procedure setVarMeanDIM_WNODD_D2_CK3
4610 : use pm_kind, only: TKC => CK3
4611 : #include "pm_sampleVar@routines.inc.F90"
4612 50 : end procedure
4613 : #endif
4614 :
4615 : #if CK2_ENABLED
4616 50 : module procedure setVarMeanDIM_WNODD_D2_CK2
4617 : use pm_kind, only: TKC => CK2
4618 : #include "pm_sampleVar@routines.inc.F90"
4619 50 : end procedure
4620 : #endif
4621 :
4622 : #if CK1_ENABLED
4623 52 : module procedure setVarMeanDIM_WNODD_D2_CK1
4624 : use pm_kind, only: TKC => CK1
4625 : #include "pm_sampleVar@routines.inc.F90"
4626 52 : end procedure
4627 : #endif
4628 :
4629 : #undef CK_ENABLED
4630 :
4631 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4632 :
4633 : #define RK_ENABLED 1
4634 :
4635 : #if RK5_ENABLED
4636 : module procedure setVarMeanDIM_WNODD_D2_RK5
4637 : use pm_kind, only: TKC => RK5
4638 : #include "pm_sampleVar@routines.inc.F90"
4639 : end procedure
4640 : #endif
4641 :
4642 : #if RK4_ENABLED
4643 50 : module procedure setVarMeanDIM_WNODD_D2_RK4
4644 : use pm_kind, only: TKC => RK4
4645 : #include "pm_sampleVar@routines.inc.F90"
4646 50 : end procedure
4647 : #endif
4648 :
4649 : #if RK3_ENABLED
4650 50 : module procedure setVarMeanDIM_WNODD_D2_RK3
4651 : use pm_kind, only: TKC => RK3
4652 : #include "pm_sampleVar@routines.inc.F90"
4653 50 : end procedure
4654 : #endif
4655 :
4656 : #if RK2_ENABLED
4657 50 : module procedure setVarMeanDIM_WNODD_D2_RK2
4658 : use pm_kind, only: TKC => RK2
4659 : #include "pm_sampleVar@routines.inc.F90"
4660 50 : end procedure
4661 : #endif
4662 :
4663 : #if RK1_ENABLED
4664 52 : module procedure setVarMeanDIM_WNODD_D2_RK1
4665 : use pm_kind, only: TKC => RK1
4666 : #include "pm_sampleVar@routines.inc.F90"
4667 52 : end procedure
4668 : #endif
4669 :
4670 : #undef RK_ENABLED
4671 :
4672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4673 :
4674 : #undef D2_ENABLED
4675 :
4676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4679 :
4680 : #undef DD_ENABLED
4681 :
4682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4685 :
4686 : #undef WNO_ENABLED
4687 :
4688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4689 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4691 :
4692 : #define WTI_ENABLED 1
4693 :
4694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4697 :
4698 : #define SD_ENABLED 1
4699 :
4700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4703 :
4704 : #define D1_ENABLED 1
4705 :
4706 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4707 :
4708 : #define CK_ENABLED 1
4709 :
4710 : #if CK5_ENABLED
4711 : module procedure setVarMeanDIM_WTISD_D1_CK5
4712 : use pm_kind, only: TKC => CK5
4713 : #include "pm_sampleVar@routines.inc.F90"
4714 : end procedure
4715 : #endif
4716 :
4717 : #if CK4_ENABLED
4718 50 : module procedure setVarMeanDIM_WTISD_D1_CK4
4719 : use pm_kind, only: TKC => CK4
4720 : #include "pm_sampleVar@routines.inc.F90"
4721 50 : end procedure
4722 : #endif
4723 :
4724 : #if CK3_ENABLED
4725 50 : module procedure setVarMeanDIM_WTISD_D1_CK3
4726 : use pm_kind, only: TKC => CK3
4727 : #include "pm_sampleVar@routines.inc.F90"
4728 50 : end procedure
4729 : #endif
4730 :
4731 : #if CK2_ENABLED
4732 50 : module procedure setVarMeanDIM_WTISD_D1_CK2
4733 : use pm_kind, only: TKC => CK2
4734 : #include "pm_sampleVar@routines.inc.F90"
4735 50 : end procedure
4736 : #endif
4737 :
4738 : #if CK1_ENABLED
4739 50 : module procedure setVarMeanDIM_WTISD_D1_CK1
4740 : use pm_kind, only: TKC => CK1
4741 : #include "pm_sampleVar@routines.inc.F90"
4742 50 : end procedure
4743 : #endif
4744 :
4745 : #undef CK_ENABLED
4746 :
4747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4748 :
4749 : #define RK_ENABLED 1
4750 :
4751 : #if RK5_ENABLED
4752 : module procedure setVarMeanDIM_WTISD_D1_RK5
4753 : use pm_kind, only: TKC => RK5
4754 : #include "pm_sampleVar@routines.inc.F90"
4755 : end procedure
4756 : #endif
4757 :
4758 : #if RK4_ENABLED
4759 50 : module procedure setVarMeanDIM_WTISD_D1_RK4
4760 : use pm_kind, only: TKC => RK4
4761 : #include "pm_sampleVar@routines.inc.F90"
4762 50 : end procedure
4763 : #endif
4764 :
4765 : #if RK3_ENABLED
4766 50 : module procedure setVarMeanDIM_WTISD_D1_RK3
4767 : use pm_kind, only: TKC => RK3
4768 : #include "pm_sampleVar@routines.inc.F90"
4769 50 : end procedure
4770 : #endif
4771 :
4772 : #if RK2_ENABLED
4773 50 : module procedure setVarMeanDIM_WTISD_D1_RK2
4774 : use pm_kind, only: TKC => RK2
4775 : #include "pm_sampleVar@routines.inc.F90"
4776 50 : end procedure
4777 : #endif
4778 :
4779 : #if RK1_ENABLED
4780 50 : module procedure setVarMeanDIM_WTISD_D1_RK1
4781 : use pm_kind, only: TKC => RK1
4782 : #include "pm_sampleVar@routines.inc.F90"
4783 50 : end procedure
4784 : #endif
4785 :
4786 : #undef RK_ENABLED
4787 :
4788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4789 :
4790 : #undef D1_ENABLED
4791 :
4792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4795 :
4796 : #define D2_ENABLED 1
4797 :
4798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4799 :
4800 : #define CK_ENABLED 1
4801 :
4802 : #if CK5_ENABLED
4803 : module procedure setVarMeanDIM_WTISD_D2_CK5
4804 : use pm_kind, only: TKC => CK5
4805 : #include "pm_sampleVar@routines.inc.F90"
4806 : end procedure
4807 : #endif
4808 :
4809 : #if CK4_ENABLED
4810 50 : module procedure setVarMeanDIM_WTISD_D2_CK4
4811 : use pm_kind, only: TKC => CK4
4812 : #include "pm_sampleVar@routines.inc.F90"
4813 50 : end procedure
4814 : #endif
4815 :
4816 : #if CK3_ENABLED
4817 50 : module procedure setVarMeanDIM_WTISD_D2_CK3
4818 : use pm_kind, only: TKC => CK3
4819 : #include "pm_sampleVar@routines.inc.F90"
4820 50 : end procedure
4821 : #endif
4822 :
4823 : #if CK2_ENABLED
4824 50 : module procedure setVarMeanDIM_WTISD_D2_CK2
4825 : use pm_kind, only: TKC => CK2
4826 : #include "pm_sampleVar@routines.inc.F90"
4827 50 : end procedure
4828 : #endif
4829 :
4830 : #if CK1_ENABLED
4831 50 : module procedure setVarMeanDIM_WTISD_D2_CK1
4832 : use pm_kind, only: TKC => CK1
4833 : #include "pm_sampleVar@routines.inc.F90"
4834 50 : end procedure
4835 : #endif
4836 :
4837 : #undef CK_ENABLED
4838 :
4839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4840 :
4841 : #define RK_ENABLED 1
4842 :
4843 : #if RK5_ENABLED
4844 : module procedure setVarMeanDIM_WTISD_D2_RK5
4845 : use pm_kind, only: TKC => RK5
4846 : #include "pm_sampleVar@routines.inc.F90"
4847 : end procedure
4848 : #endif
4849 :
4850 : #if RK4_ENABLED
4851 50 : module procedure setVarMeanDIM_WTISD_D2_RK4
4852 : use pm_kind, only: TKC => RK4
4853 : #include "pm_sampleVar@routines.inc.F90"
4854 50 : end procedure
4855 : #endif
4856 :
4857 : #if RK3_ENABLED
4858 50 : module procedure setVarMeanDIM_WTISD_D2_RK3
4859 : use pm_kind, only: TKC => RK3
4860 : #include "pm_sampleVar@routines.inc.F90"
4861 50 : end procedure
4862 : #endif
4863 :
4864 : #if RK2_ENABLED
4865 50 : module procedure setVarMeanDIM_WTISD_D2_RK2
4866 : use pm_kind, only: TKC => RK2
4867 : #include "pm_sampleVar@routines.inc.F90"
4868 50 : end procedure
4869 : #endif
4870 :
4871 : #if RK1_ENABLED
4872 52 : module procedure setVarMeanDIM_WTISD_D2_RK1
4873 : use pm_kind, only: TKC => RK1
4874 : #include "pm_sampleVar@routines.inc.F90"
4875 52 : end procedure
4876 : #endif
4877 :
4878 : #undef RK_ENABLED
4879 :
4880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4881 :
4882 : #undef D2_ENABLED
4883 :
4884 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4887 :
4888 : #undef SD_ENABLED
4889 :
4890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4893 :
4894 : #undef WTI_ENABLED
4895 :
4896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4899 :
4900 : #define WTR_ENABLED 1
4901 :
4902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4905 :
4906 : #define SD_ENABLED 1
4907 :
4908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4911 :
4912 : #define D1_ENABLED 1
4913 :
4914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4915 :
4916 : #define CK_ENABLED 1
4917 :
4918 : #if CK5_ENABLED
4919 : module procedure setVarMeanDIM_WTRSD_D1_CK5
4920 : use pm_kind, only: TKC => CK5
4921 : #include "pm_sampleVar@routines.inc.F90"
4922 : end procedure
4923 : #endif
4924 :
4925 : #if CK4_ENABLED
4926 50 : module procedure setVarMeanDIM_WTRSD_D1_CK4
4927 : use pm_kind, only: TKC => CK4
4928 : #include "pm_sampleVar@routines.inc.F90"
4929 50 : end procedure
4930 : #endif
4931 :
4932 : #if CK3_ENABLED
4933 50 : module procedure setVarMeanDIM_WTRSD_D1_CK3
4934 : use pm_kind, only: TKC => CK3
4935 : #include "pm_sampleVar@routines.inc.F90"
4936 50 : end procedure
4937 : #endif
4938 :
4939 : #if CK2_ENABLED
4940 50 : module procedure setVarMeanDIM_WTRSD_D1_CK2
4941 : use pm_kind, only: TKC => CK2
4942 : #include "pm_sampleVar@routines.inc.F90"
4943 50 : end procedure
4944 : #endif
4945 :
4946 : #if CK1_ENABLED
4947 51 : module procedure setVarMeanDIM_WTRSD_D1_CK1
4948 : use pm_kind, only: TKC => CK1
4949 : #include "pm_sampleVar@routines.inc.F90"
4950 51 : end procedure
4951 : #endif
4952 :
4953 : #undef CK_ENABLED
4954 :
4955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4956 :
4957 : #define RK_ENABLED 1
4958 :
4959 : #if RK5_ENABLED
4960 : module procedure setVarMeanDIM_WTRSD_D1_RK5
4961 : use pm_kind, only: TKC => RK5
4962 : #include "pm_sampleVar@routines.inc.F90"
4963 : end procedure
4964 : #endif
4965 :
4966 : #if RK4_ENABLED
4967 50 : module procedure setVarMeanDIM_WTRSD_D1_RK4
4968 : use pm_kind, only: TKC => RK4
4969 : #include "pm_sampleVar@routines.inc.F90"
4970 50 : end procedure
4971 : #endif
4972 :
4973 : #if RK3_ENABLED
4974 50 : module procedure setVarMeanDIM_WTRSD_D1_RK3
4975 : use pm_kind, only: TKC => RK3
4976 : #include "pm_sampleVar@routines.inc.F90"
4977 50 : end procedure
4978 : #endif
4979 :
4980 : #if RK2_ENABLED
4981 50 : module procedure setVarMeanDIM_WTRSD_D1_RK2
4982 : use pm_kind, only: TKC => RK2
4983 : #include "pm_sampleVar@routines.inc.F90"
4984 50 : end procedure
4985 : #endif
4986 :
4987 : #if RK1_ENABLED
4988 51 : module procedure setVarMeanDIM_WTRSD_D1_RK1
4989 : use pm_kind, only: TKC => RK1
4990 : #include "pm_sampleVar@routines.inc.F90"
4991 51 : end procedure
4992 : #endif
4993 :
4994 : #undef RK_ENABLED
4995 :
4996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4997 :
4998 : #undef D1_ENABLED
4999 :
5000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5003 :
5004 : #define D2_ENABLED 1
5005 :
5006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5007 :
5008 : #define CK_ENABLED 1
5009 :
5010 : #if CK5_ENABLED
5011 : module procedure setVarMeanDIM_WTRSD_D2_CK5
5012 : use pm_kind, only: TKC => CK5
5013 : #include "pm_sampleVar@routines.inc.F90"
5014 : end procedure
5015 : #endif
5016 :
5017 : #if CK4_ENABLED
5018 50 : module procedure setVarMeanDIM_WTRSD_D2_CK4
5019 : use pm_kind, only: TKC => CK4
5020 : #include "pm_sampleVar@routines.inc.F90"
5021 50 : end procedure
5022 : #endif
5023 :
5024 : #if CK3_ENABLED
5025 50 : module procedure setVarMeanDIM_WTRSD_D2_CK3
5026 : use pm_kind, only: TKC => CK3
5027 : #include "pm_sampleVar@routines.inc.F90"
5028 50 : end procedure
5029 : #endif
5030 :
5031 : #if CK2_ENABLED
5032 50 : module procedure setVarMeanDIM_WTRSD_D2_CK2
5033 : use pm_kind, only: TKC => CK2
5034 : #include "pm_sampleVar@routines.inc.F90"
5035 50 : end procedure
5036 : #endif
5037 :
5038 : #if CK1_ENABLED
5039 50 : module procedure setVarMeanDIM_WTRSD_D2_CK1
5040 : use pm_kind, only: TKC => CK1
5041 : #include "pm_sampleVar@routines.inc.F90"
5042 50 : end procedure
5043 : #endif
5044 :
5045 : #undef CK_ENABLED
5046 :
5047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5048 :
5049 : #define RK_ENABLED 1
5050 :
5051 : #if RK5_ENABLED
5052 : module procedure setVarMeanDIM_WTRSD_D2_RK5
5053 : use pm_kind, only: TKC => RK5
5054 : #include "pm_sampleVar@routines.inc.F90"
5055 : end procedure
5056 : #endif
5057 :
5058 : #if RK4_ENABLED
5059 50 : module procedure setVarMeanDIM_WTRSD_D2_RK4
5060 : use pm_kind, only: TKC => RK4
5061 : #include "pm_sampleVar@routines.inc.F90"
5062 50 : end procedure
5063 : #endif
5064 :
5065 : #if RK3_ENABLED
5066 50 : module procedure setVarMeanDIM_WTRSD_D2_RK3
5067 : use pm_kind, only: TKC => RK3
5068 : #include "pm_sampleVar@routines.inc.F90"
5069 50 : end procedure
5070 : #endif
5071 :
5072 : #if RK2_ENABLED
5073 50 : module procedure setVarMeanDIM_WTRSD_D2_RK2
5074 : use pm_kind, only: TKC => RK2
5075 : #include "pm_sampleVar@routines.inc.F90"
5076 50 : end procedure
5077 : #endif
5078 :
5079 : #if RK1_ENABLED
5080 50 : module procedure setVarMeanDIM_WTRSD_D2_RK1
5081 : use pm_kind, only: TKC => RK1
5082 : #include "pm_sampleVar@routines.inc.F90"
5083 50 : end procedure
5084 : #endif
5085 :
5086 : #undef RK_ENABLED
5087 :
5088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5089 :
5090 : #undef D2_ENABLED
5091 :
5092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5095 :
5096 : #undef SD_ENABLED
5097 :
5098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5101 :
5102 : #undef WTR_ENABLED
5103 :
5104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5107 :
5108 : #undef DIM_ENABLED
5109 :
5110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5113 :
5114 : #undef setVarMean_ENABLED
5115 :
5116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5117 :
5118 : #define getVarMerged_ENABLED 1
5119 :
5120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5123 :
5124 : #define New_ENABLED 1
5125 :
5126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5129 :
5130 : #define D0_ENABLED 1
5131 :
5132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5133 :
5134 : #define CK_ENABLED 1
5135 :
5136 : #if CK5_ENABLED
5137 : module procedure getVarMergedNew_D0_CK5
5138 : use pm_kind, only: TKC => CK5
5139 : #include "pm_sampleVar@routines.inc.F90"
5140 : end procedure
5141 : #endif
5142 :
5143 : #if CK4_ENABLED
5144 50 : module procedure getVarMergedNew_D0_CK4
5145 : use pm_kind, only: TKC => CK4
5146 : #include "pm_sampleVar@routines.inc.F90"
5147 50 : end procedure
5148 : #endif
5149 :
5150 : #if CK3_ENABLED
5151 50 : module procedure getVarMergedNew_D0_CK3
5152 : use pm_kind, only: TKC => CK3
5153 : #include "pm_sampleVar@routines.inc.F90"
5154 50 : end procedure
5155 : #endif
5156 :
5157 : #if CK2_ENABLED
5158 50 : module procedure getVarMergedNew_D0_CK2
5159 : use pm_kind, only: TKC => CK2
5160 : #include "pm_sampleVar@routines.inc.F90"
5161 50 : end procedure
5162 : #endif
5163 :
5164 : #if CK1_ENABLED
5165 50 : module procedure getVarMergedNew_D0_CK1
5166 : use pm_kind, only: TKC => CK1
5167 : #include "pm_sampleVar@routines.inc.F90"
5168 50 : end procedure
5169 : #endif
5170 :
5171 : #undef CK_ENABLED
5172 :
5173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5174 :
5175 : #define RK_ENABLED 1
5176 :
5177 : #if RK5_ENABLED
5178 : module procedure getVarMergedNew_D0_RK5
5179 : use pm_kind, only: TKC => RK5
5180 : #include "pm_sampleVar@routines.inc.F90"
5181 : end procedure
5182 : #endif
5183 :
5184 : #if RK4_ENABLED
5185 50 : module procedure getVarMergedNew_D0_RK4
5186 : use pm_kind, only: TKC => RK4
5187 : #include "pm_sampleVar@routines.inc.F90"
5188 50 : end procedure
5189 : #endif
5190 :
5191 : #if RK3_ENABLED
5192 50 : module procedure getVarMergedNew_D0_RK3
5193 : use pm_kind, only: TKC => RK3
5194 : #include "pm_sampleVar@routines.inc.F90"
5195 50 : end procedure
5196 : #endif
5197 :
5198 : #if RK2_ENABLED
5199 50 : module procedure getVarMergedNew_D0_RK2
5200 : use pm_kind, only: TKC => RK2
5201 : #include "pm_sampleVar@routines.inc.F90"
5202 50 : end procedure
5203 : #endif
5204 :
5205 : #if RK1_ENABLED
5206 80 : module procedure getVarMergedNew_D0_RK1
5207 : use pm_kind, only: TKC => RK1
5208 : #include "pm_sampleVar@routines.inc.F90"
5209 80 : end procedure
5210 : #endif
5211 :
5212 : #undef RK_ENABLED
5213 :
5214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5215 :
5216 : #undef D0_ENABLED
5217 :
5218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5221 :
5222 : #define D1_ENABLED 1
5223 :
5224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5225 :
5226 : #define CK_ENABLED 1
5227 :
5228 : #if CK5_ENABLED
5229 : module procedure getVarMergedNew_D1_CK5
5230 : use pm_kind, only: TKC => CK5
5231 : #include "pm_sampleVar@routines.inc.F90"
5232 : end procedure
5233 : #endif
5234 :
5235 : #if CK4_ENABLED
5236 50 : module procedure getVarMergedNew_D1_CK4
5237 : use pm_kind, only: TKC => CK4
5238 : #include "pm_sampleVar@routines.inc.F90"
5239 50 : end procedure
5240 : #endif
5241 :
5242 : #if CK3_ENABLED
5243 50 : module procedure getVarMergedNew_D1_CK3
5244 : use pm_kind, only: TKC => CK3
5245 : #include "pm_sampleVar@routines.inc.F90"
5246 50 : end procedure
5247 : #endif
5248 :
5249 : #if CK2_ENABLED
5250 50 : module procedure getVarMergedNew_D1_CK2
5251 : use pm_kind, only: TKC => CK2
5252 : #include "pm_sampleVar@routines.inc.F90"
5253 50 : end procedure
5254 : #endif
5255 :
5256 : #if CK1_ENABLED
5257 50 : module procedure getVarMergedNew_D1_CK1
5258 : use pm_kind, only: TKC => CK1
5259 : #include "pm_sampleVar@routines.inc.F90"
5260 50 : end procedure
5261 : #endif
5262 :
5263 : #undef CK_ENABLED
5264 :
5265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5266 :
5267 : #define RK_ENABLED 1
5268 :
5269 : #if RK5_ENABLED
5270 : module procedure getVarMergedNew_D1_RK5
5271 : use pm_kind, only: TKC => RK5
5272 : #include "pm_sampleVar@routines.inc.F90"
5273 : end procedure
5274 : #endif
5275 :
5276 : #if RK4_ENABLED
5277 50 : module procedure getVarMergedNew_D1_RK4
5278 : use pm_kind, only: TKC => RK4
5279 : #include "pm_sampleVar@routines.inc.F90"
5280 50 : end procedure
5281 : #endif
5282 :
5283 : #if RK3_ENABLED
5284 50 : module procedure getVarMergedNew_D1_RK3
5285 : use pm_kind, only: TKC => RK3
5286 : #include "pm_sampleVar@routines.inc.F90"
5287 50 : end procedure
5288 : #endif
5289 :
5290 : #if RK2_ENABLED
5291 50 : module procedure getVarMergedNew_D1_RK2
5292 : use pm_kind, only: TKC => RK2
5293 : #include "pm_sampleVar@routines.inc.F90"
5294 50 : end procedure
5295 : #endif
5296 :
5297 : #if RK1_ENABLED
5298 80 : module procedure getVarMergedNew_D1_RK1
5299 : use pm_kind, only: TKC => RK1
5300 : #include "pm_sampleVar@routines.inc.F90"
5301 80 : end procedure
5302 : #endif
5303 :
5304 : #undef RK_ENABLED
5305 :
5306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5307 :
5308 : #undef D1_ENABLED
5309 :
5310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5313 :
5314 : #undef New_ENABLED
5315 :
5316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5319 :
5320 : #undef getVarMerged_ENABLED
5321 :
5322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5323 :
5324 : #define setVarMerged_ENABLED 1
5325 :
5326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5329 :
5330 : #define New_ENABLED 1
5331 :
5332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5335 :
5336 : #define D0_ENABLED 1
5337 :
5338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5339 :
5340 : #define CK_ENABLED 1
5341 :
5342 : #if CK5_ENABLED
5343 : module procedure setVarMergedNew_D0_CK5
5344 : use pm_kind, only: TKC => CK5
5345 : #include "pm_sampleVar@routines.inc.F90"
5346 : end procedure
5347 : #endif
5348 :
5349 : #if CK4_ENABLED
5350 100 : module procedure setVarMergedNew_D0_CK4
5351 : use pm_kind, only: TKC => CK4
5352 : #include "pm_sampleVar@routines.inc.F90"
5353 100 : end procedure
5354 : #endif
5355 :
5356 : #if CK3_ENABLED
5357 100 : module procedure setVarMergedNew_D0_CK3
5358 : use pm_kind, only: TKC => CK3
5359 : #include "pm_sampleVar@routines.inc.F90"
5360 100 : end procedure
5361 : #endif
5362 :
5363 : #if CK2_ENABLED
5364 100 : module procedure setVarMergedNew_D0_CK2
5365 : use pm_kind, only: TKC => CK2
5366 : #include "pm_sampleVar@routines.inc.F90"
5367 100 : end procedure
5368 : #endif
5369 :
5370 : #if CK1_ENABLED
5371 115 : module procedure setVarMergedNew_D0_CK1
5372 : use pm_kind, only: TKC => CK1
5373 : #include "pm_sampleVar@routines.inc.F90"
5374 115 : end procedure
5375 : #endif
5376 :
5377 : #undef CK_ENABLED
5378 :
5379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5380 :
5381 : #define RK_ENABLED 1
5382 :
5383 : #if RK5_ENABLED
5384 : module procedure setVarMergedNew_D0_RK5
5385 : use pm_kind, only: TKC => RK5
5386 : #include "pm_sampleVar@routines.inc.F90"
5387 : end procedure
5388 : #endif
5389 :
5390 : #if RK4_ENABLED
5391 100 : module procedure setVarMergedNew_D0_RK4
5392 : use pm_kind, only: TKC => RK4
5393 : #include "pm_sampleVar@routines.inc.F90"
5394 100 : end procedure
5395 : #endif
5396 :
5397 : #if RK3_ENABLED
5398 100 : module procedure setVarMergedNew_D0_RK3
5399 : use pm_kind, only: TKC => RK3
5400 : #include "pm_sampleVar@routines.inc.F90"
5401 100 : end procedure
5402 : #endif
5403 :
5404 : #if RK2_ENABLED
5405 100 : module procedure setVarMergedNew_D0_RK2
5406 : use pm_kind, only: TKC => RK2
5407 : #include "pm_sampleVar@routines.inc.F90"
5408 100 : end procedure
5409 : #endif
5410 :
5411 : #if RK1_ENABLED
5412 145 : module procedure setVarMergedNew_D0_RK1
5413 : use pm_kind, only: TKC => RK1
5414 : #include "pm_sampleVar@routines.inc.F90"
5415 145 : end procedure
5416 : #endif
5417 :
5418 : #undef RK_ENABLED
5419 :
5420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5421 :
5422 : #undef D0_ENABLED
5423 :
5424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5425 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5427 :
5428 : #define D1_ENABLED 1
5429 :
5430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5431 :
5432 : #define CK_ENABLED 1
5433 :
5434 : #if CK5_ENABLED
5435 : module procedure setVarMergedNew_D1_CK5
5436 : use pm_kind, only: TKC => CK5
5437 : #include "pm_sampleVar@routines.inc.F90"
5438 : end procedure
5439 : #endif
5440 :
5441 : #if CK4_ENABLED
5442 100 : module procedure setVarMergedNew_D1_CK4
5443 : use pm_kind, only: TKC => CK4
5444 : #include "pm_sampleVar@routines.inc.F90"
5445 100 : end procedure
5446 : #endif
5447 :
5448 : #if CK3_ENABLED
5449 100 : module procedure setVarMergedNew_D1_CK3
5450 : use pm_kind, only: TKC => CK3
5451 : #include "pm_sampleVar@routines.inc.F90"
5452 100 : end procedure
5453 : #endif
5454 :
5455 : #if CK2_ENABLED
5456 100 : module procedure setVarMergedNew_D1_CK2
5457 : use pm_kind, only: TKC => CK2
5458 : #include "pm_sampleVar@routines.inc.F90"
5459 100 : end procedure
5460 : #endif
5461 :
5462 : #if CK1_ENABLED
5463 115 : module procedure setVarMergedNew_D1_CK1
5464 : use pm_kind, only: TKC => CK1
5465 : #include "pm_sampleVar@routines.inc.F90"
5466 115 : end procedure
5467 : #endif
5468 :
5469 : #undef CK_ENABLED
5470 :
5471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5472 :
5473 : #define RK_ENABLED 1
5474 :
5475 : #if RK5_ENABLED
5476 : module procedure setVarMergedNew_D1_RK5
5477 : use pm_kind, only: TKC => RK5
5478 : #include "pm_sampleVar@routines.inc.F90"
5479 : end procedure
5480 : #endif
5481 :
5482 : #if RK4_ENABLED
5483 100 : module procedure setVarMergedNew_D1_RK4
5484 : use pm_kind, only: TKC => RK4
5485 : #include "pm_sampleVar@routines.inc.F90"
5486 100 : end procedure
5487 : #endif
5488 :
5489 : #if RK3_ENABLED
5490 100 : module procedure setVarMergedNew_D1_RK3
5491 : use pm_kind, only: TKC => RK3
5492 : #include "pm_sampleVar@routines.inc.F90"
5493 100 : end procedure
5494 : #endif
5495 :
5496 : #if RK2_ENABLED
5497 100 : module procedure setVarMergedNew_D1_RK2
5498 : use pm_kind, only: TKC => RK2
5499 : #include "pm_sampleVar@routines.inc.F90"
5500 100 : end procedure
5501 : #endif
5502 :
5503 : #if RK1_ENABLED
5504 145 : module procedure setVarMergedNew_D1_RK1
5505 : use pm_kind, only: TKC => RK1
5506 : #include "pm_sampleVar@routines.inc.F90"
5507 145 : end procedure
5508 : #endif
5509 :
5510 : #undef RK_ENABLED
5511 :
5512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5513 :
5514 : #undef D1_ENABLED
5515 :
5516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5519 :
5520 : #undef New_ENABLED
5521 :
5522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5525 :
5526 : #define Old_ENABLED 1
5527 :
5528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5531 :
5532 : #define D0_ENABLED 1
5533 :
5534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5535 :
5536 : #define CK_ENABLED 1
5537 :
5538 : #if CK5_ENABLED
5539 : module procedure setVarMergedOld_D0_CK5
5540 : use pm_kind, only: TKC => CK5
5541 : #include "pm_sampleVar@routines.inc.F90"
5542 : end procedure
5543 : #endif
5544 :
5545 : #if CK4_ENABLED
5546 50 : module procedure setVarMergedOld_D0_CK4
5547 : use pm_kind, only: TKC => CK4
5548 : #include "pm_sampleVar@routines.inc.F90"
5549 50 : end procedure
5550 : #endif
5551 :
5552 : #if CK3_ENABLED
5553 50 : module procedure setVarMergedOld_D0_CK3
5554 : use pm_kind, only: TKC => CK3
5555 : #include "pm_sampleVar@routines.inc.F90"
5556 50 : end procedure
5557 : #endif
5558 :
5559 : #if CK2_ENABLED
5560 50 : module procedure setVarMergedOld_D0_CK2
5561 : use pm_kind, only: TKC => CK2
5562 : #include "pm_sampleVar@routines.inc.F90"
5563 50 : end procedure
5564 : #endif
5565 :
5566 : #if CK1_ENABLED
5567 65 : module procedure setVarMergedOld_D0_CK1
5568 : use pm_kind, only: TKC => CK1
5569 : #include "pm_sampleVar@routines.inc.F90"
5570 65 : end procedure
5571 : #endif
5572 :
5573 : #undef CK_ENABLED
5574 :
5575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5576 :
5577 : #define RK_ENABLED 1
5578 :
5579 : #if RK5_ENABLED
5580 : module procedure setVarMergedOld_D0_RK5
5581 : use pm_kind, only: TKC => RK5
5582 : #include "pm_sampleVar@routines.inc.F90"
5583 : end procedure
5584 : #endif
5585 :
5586 : #if RK4_ENABLED
5587 50 : module procedure setVarMergedOld_D0_RK4
5588 : use pm_kind, only: TKC => RK4
5589 : #include "pm_sampleVar@routines.inc.F90"
5590 50 : end procedure
5591 : #endif
5592 :
5593 : #if RK3_ENABLED
5594 50 : module procedure setVarMergedOld_D0_RK3
5595 : use pm_kind, only: TKC => RK3
5596 : #include "pm_sampleVar@routines.inc.F90"
5597 50 : end procedure
5598 : #endif
5599 :
5600 : #if RK2_ENABLED
5601 50 : module procedure setVarMergedOld_D0_RK2
5602 : use pm_kind, only: TKC => RK2
5603 : #include "pm_sampleVar@routines.inc.F90"
5604 50 : end procedure
5605 : #endif
5606 :
5607 : #if RK1_ENABLED
5608 65 : module procedure setVarMergedOld_D0_RK1
5609 : use pm_kind, only: TKC => RK1
5610 : #include "pm_sampleVar@routines.inc.F90"
5611 65 : end procedure
5612 : #endif
5613 :
5614 : #undef RK_ENABLED
5615 :
5616 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5617 :
5618 : #undef D0_ENABLED
5619 :
5620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5623 :
5624 : #define D1_ENABLED 1
5625 :
5626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5627 :
5628 : #define CK_ENABLED 1
5629 :
5630 : #if CK5_ENABLED
5631 : module procedure setVarMergedOld_D1_CK5
5632 : use pm_kind, only: TKC => CK5
5633 : #include "pm_sampleVar@routines.inc.F90"
5634 : end procedure
5635 : #endif
5636 :
5637 : #if CK4_ENABLED
5638 50 : module procedure setVarMergedOld_D1_CK4
5639 : use pm_kind, only: TKC => CK4
5640 : #include "pm_sampleVar@routines.inc.F90"
5641 50 : end procedure
5642 : #endif
5643 :
5644 : #if CK3_ENABLED
5645 50 : module procedure setVarMergedOld_D1_CK3
5646 : use pm_kind, only: TKC => CK3
5647 : #include "pm_sampleVar@routines.inc.F90"
5648 50 : end procedure
5649 : #endif
5650 :
5651 : #if CK2_ENABLED
5652 50 : module procedure setVarMergedOld_D1_CK2
5653 : use pm_kind, only: TKC => CK2
5654 : #include "pm_sampleVar@routines.inc.F90"
5655 50 : end procedure
5656 : #endif
5657 :
5658 : #if CK1_ENABLED
5659 65 : module procedure setVarMergedOld_D1_CK1
5660 : use pm_kind, only: TKC => CK1
5661 : #include "pm_sampleVar@routines.inc.F90"
5662 65 : end procedure
5663 : #endif
5664 :
5665 : #undef CK_ENABLED
5666 :
5667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5668 :
5669 : #define RK_ENABLED 1
5670 :
5671 : #if RK5_ENABLED
5672 : module procedure setVarMergedOld_D1_RK5
5673 : use pm_kind, only: TKC => RK5
5674 : #include "pm_sampleVar@routines.inc.F90"
5675 : end procedure
5676 : #endif
5677 :
5678 : #if RK4_ENABLED
5679 50 : module procedure setVarMergedOld_D1_RK4
5680 : use pm_kind, only: TKC => RK4
5681 : #include "pm_sampleVar@routines.inc.F90"
5682 50 : end procedure
5683 : #endif
5684 :
5685 : #if RK3_ENABLED
5686 50 : module procedure setVarMergedOld_D1_RK3
5687 : use pm_kind, only: TKC => RK3
5688 : #include "pm_sampleVar@routines.inc.F90"
5689 50 : end procedure
5690 : #endif
5691 :
5692 : #if RK2_ENABLED
5693 50 : module procedure setVarMergedOld_D1_RK2
5694 : use pm_kind, only: TKC => RK2
5695 : #include "pm_sampleVar@routines.inc.F90"
5696 50 : end procedure
5697 : #endif
5698 :
5699 : #if RK1_ENABLED
5700 65 : module procedure setVarMergedOld_D1_RK1
5701 : use pm_kind, only: TKC => RK1
5702 : #include "pm_sampleVar@routines.inc.F90"
5703 65 : end procedure
5704 : #endif
5705 :
5706 : #undef RK_ENABLED
5707 :
5708 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5709 :
5710 : #undef D1_ENABLED
5711 :
5712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5715 :
5716 : #undef Old_ENABLED
5717 :
5718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5721 :
5722 : #undef setVarMerged_ENABLED
5723 :
5724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5725 :
5726 : #define setVarMeanMerged_ENABLED 1
5727 :
5728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5731 :
5732 : #define New_ENABLED 1
5733 :
5734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5737 :
5738 : #define D0_ENABLED 1
5739 :
5740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5741 :
5742 : #define CK_ENABLED 1
5743 :
5744 : #if CK5_ENABLED
5745 : module procedure setVarMeanMergedNew_D0_CK5
5746 : use pm_kind, only: TKC => CK5
5747 : #include "pm_sampleVar@routines.inc.F90"
5748 : end procedure
5749 : #endif
5750 :
5751 : #if CK4_ENABLED
5752 50 : module procedure setVarMeanMergedNew_D0_CK4
5753 : use pm_kind, only: TKC => CK4
5754 : #include "pm_sampleVar@routines.inc.F90"
5755 50 : end procedure
5756 : #endif
5757 :
5758 : #if CK3_ENABLED
5759 50 : module procedure setVarMeanMergedNew_D0_CK3
5760 : use pm_kind, only: TKC => CK3
5761 : #include "pm_sampleVar@routines.inc.F90"
5762 50 : end procedure
5763 : #endif
5764 :
5765 : #if CK2_ENABLED
5766 50 : module procedure setVarMeanMergedNew_D0_CK2
5767 : use pm_kind, only: TKC => CK2
5768 : #include "pm_sampleVar@routines.inc.F90"
5769 50 : end procedure
5770 : #endif
5771 :
5772 : #if CK1_ENABLED
5773 65 : module procedure setVarMeanMergedNew_D0_CK1
5774 : use pm_kind, only: TKC => CK1
5775 : #include "pm_sampleVar@routines.inc.F90"
5776 65 : end procedure
5777 : #endif
5778 :
5779 : #undef CK_ENABLED
5780 :
5781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5782 :
5783 : #define RK_ENABLED 1
5784 :
5785 : #if RK5_ENABLED
5786 : module procedure setVarMeanMergedNew_D0_RK5
5787 : use pm_kind, only: TKC => RK5
5788 : #include "pm_sampleVar@routines.inc.F90"
5789 : end procedure
5790 : #endif
5791 :
5792 : #if RK4_ENABLED
5793 50 : module procedure setVarMeanMergedNew_D0_RK4
5794 : use pm_kind, only: TKC => RK4
5795 : #include "pm_sampleVar@routines.inc.F90"
5796 50 : end procedure
5797 : #endif
5798 :
5799 : #if RK3_ENABLED
5800 50 : module procedure setVarMeanMergedNew_D0_RK3
5801 : use pm_kind, only: TKC => RK3
5802 : #include "pm_sampleVar@routines.inc.F90"
5803 50 : end procedure
5804 : #endif
5805 :
5806 : #if RK2_ENABLED
5807 50 : module procedure setVarMeanMergedNew_D0_RK2
5808 : use pm_kind, only: TKC => RK2
5809 : #include "pm_sampleVar@routines.inc.F90"
5810 50 : end procedure
5811 : #endif
5812 :
5813 : #if RK1_ENABLED
5814 65 : module procedure setVarMeanMergedNew_D0_RK1
5815 : use pm_kind, only: TKC => RK1
5816 : #include "pm_sampleVar@routines.inc.F90"
5817 65 : end procedure
5818 : #endif
5819 :
5820 : #undef RK_ENABLED
5821 :
5822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5823 :
5824 : #undef D0_ENABLED
5825 :
5826 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5829 :
5830 : #define D1_ENABLED 1
5831 :
5832 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5833 :
5834 : #define CK_ENABLED 1
5835 :
5836 : #if CK5_ENABLED
5837 : module procedure setVarMeanMergedNew_D1_CK5
5838 : use pm_kind, only: TKC => CK5
5839 : #include "pm_sampleVar@routines.inc.F90"
5840 : end procedure
5841 : #endif
5842 :
5843 : #if CK4_ENABLED
5844 50 : module procedure setVarMeanMergedNew_D1_CK4
5845 : use pm_kind, only: TKC => CK4
5846 : #include "pm_sampleVar@routines.inc.F90"
5847 50 : end procedure
5848 : #endif
5849 :
5850 : #if CK3_ENABLED
5851 50 : module procedure setVarMeanMergedNew_D1_CK3
5852 : use pm_kind, only: TKC => CK3
5853 : #include "pm_sampleVar@routines.inc.F90"
5854 50 : end procedure
5855 : #endif
5856 :
5857 : #if CK2_ENABLED
5858 50 : module procedure setVarMeanMergedNew_D1_CK2
5859 : use pm_kind, only: TKC => CK2
5860 : #include "pm_sampleVar@routines.inc.F90"
5861 50 : end procedure
5862 : #endif
5863 :
5864 : #if CK1_ENABLED
5865 65 : module procedure setVarMeanMergedNew_D1_CK1
5866 : use pm_kind, only: TKC => CK1
5867 : #include "pm_sampleVar@routines.inc.F90"
5868 65 : end procedure
5869 : #endif
5870 :
5871 : #undef CK_ENABLED
5872 :
5873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5874 :
5875 : #define RK_ENABLED 1
5876 :
5877 : #if RK5_ENABLED
5878 : module procedure setVarMeanMergedNew_D1_RK5
5879 : use pm_kind, only: TKC => RK5
5880 : #include "pm_sampleVar@routines.inc.F90"
5881 : end procedure
5882 : #endif
5883 :
5884 : #if RK4_ENABLED
5885 50 : module procedure setVarMeanMergedNew_D1_RK4
5886 : use pm_kind, only: TKC => RK4
5887 : #include "pm_sampleVar@routines.inc.F90"
5888 50 : end procedure
5889 : #endif
5890 :
5891 : #if RK3_ENABLED
5892 50 : module procedure setVarMeanMergedNew_D1_RK3
5893 : use pm_kind, only: TKC => RK3
5894 : #include "pm_sampleVar@routines.inc.F90"
5895 50 : end procedure
5896 : #endif
5897 :
5898 : #if RK2_ENABLED
5899 50 : module procedure setVarMeanMergedNew_D1_RK2
5900 : use pm_kind, only: TKC => RK2
5901 : #include "pm_sampleVar@routines.inc.F90"
5902 50 : end procedure
5903 : #endif
5904 :
5905 : #if RK1_ENABLED
5906 65 : module procedure setVarMeanMergedNew_D1_RK1
5907 : use pm_kind, only: TKC => RK1
5908 : #include "pm_sampleVar@routines.inc.F90"
5909 65 : end procedure
5910 : #endif
5911 :
5912 : #undef RK_ENABLED
5913 :
5914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5915 :
5916 : #undef D1_ENABLED
5917 :
5918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5921 :
5922 : #undef New_ENABLED
5923 :
5924 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5925 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5926 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5927 :
5928 : #define Old_ENABLED 1
5929 :
5930 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5931 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5933 :
5934 : #define D0_ENABLED 1
5935 :
5936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5937 :
5938 : #define CK_ENABLED 1
5939 :
5940 : #if CK5_ENABLED
5941 : module procedure setVarMeanMergedOld_D0_CK5
5942 : use pm_kind, only: TKC => CK5
5943 : #include "pm_sampleVar@routines.inc.F90"
5944 : end procedure
5945 : #endif
5946 :
5947 : #if CK4_ENABLED
5948 50 : module procedure setVarMeanMergedOld_D0_CK4
5949 : use pm_kind, only: TKC => CK4
5950 : #include "pm_sampleVar@routines.inc.F90"
5951 50 : end procedure
5952 : #endif
5953 :
5954 : #if CK3_ENABLED
5955 50 : module procedure setVarMeanMergedOld_D0_CK3
5956 : use pm_kind, only: TKC => CK3
5957 : #include "pm_sampleVar@routines.inc.F90"
5958 50 : end procedure
5959 : #endif
5960 :
5961 : #if CK2_ENABLED
5962 50 : module procedure setVarMeanMergedOld_D0_CK2
5963 : use pm_kind, only: TKC => CK2
5964 : #include "pm_sampleVar@routines.inc.F90"
5965 50 : end procedure
5966 : #endif
5967 :
5968 : #if CK1_ENABLED
5969 65 : module procedure setVarMeanMergedOld_D0_CK1
5970 : use pm_kind, only: TKC => CK1
5971 : #include "pm_sampleVar@routines.inc.F90"
5972 65 : end procedure
5973 : #endif
5974 :
5975 : #undef CK_ENABLED
5976 :
5977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5978 :
5979 : #define RK_ENABLED 1
5980 :
5981 : #if RK5_ENABLED
5982 : module procedure setVarMeanMergedOld_D0_RK5
5983 : use pm_kind, only: TKC => RK5
5984 : #include "pm_sampleVar@routines.inc.F90"
5985 : end procedure
5986 : #endif
5987 :
5988 : #if RK4_ENABLED
5989 50 : module procedure setVarMeanMergedOld_D0_RK4
5990 : use pm_kind, only: TKC => RK4
5991 : #include "pm_sampleVar@routines.inc.F90"
5992 50 : end procedure
5993 : #endif
5994 :
5995 : #if RK3_ENABLED
5996 50 : module procedure setVarMeanMergedOld_D0_RK3
5997 : use pm_kind, only: TKC => RK3
5998 : #include "pm_sampleVar@routines.inc.F90"
5999 50 : end procedure
6000 : #endif
6001 :
6002 : #if RK2_ENABLED
6003 50 : module procedure setVarMeanMergedOld_D0_RK2
6004 : use pm_kind, only: TKC => RK2
6005 : #include "pm_sampleVar@routines.inc.F90"
6006 50 : end procedure
6007 : #endif
6008 :
6009 : #if RK1_ENABLED
6010 65 : module procedure setVarMeanMergedOld_D0_RK1
6011 : use pm_kind, only: TKC => RK1
6012 : #include "pm_sampleVar@routines.inc.F90"
6013 65 : end procedure
6014 : #endif
6015 :
6016 : #undef RK_ENABLED
6017 :
6018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6019 :
6020 : #undef D0_ENABLED
6021 :
6022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6025 :
6026 : #define D1_ENABLED 1
6027 :
6028 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6029 :
6030 : #define CK_ENABLED 1
6031 :
6032 : #if CK5_ENABLED
6033 : module procedure setVarMeanMergedOld_D1_CK5
6034 : use pm_kind, only: TKC => CK5
6035 : #include "pm_sampleVar@routines.inc.F90"
6036 : end procedure
6037 : #endif
6038 :
6039 : #if CK4_ENABLED
6040 50 : module procedure setVarMeanMergedOld_D1_CK4
6041 : use pm_kind, only: TKC => CK4
6042 : #include "pm_sampleVar@routines.inc.F90"
6043 50 : end procedure
6044 : #endif
6045 :
6046 : #if CK3_ENABLED
6047 50 : module procedure setVarMeanMergedOld_D1_CK3
6048 : use pm_kind, only: TKC => CK3
6049 : #include "pm_sampleVar@routines.inc.F90"
6050 50 : end procedure
6051 : #endif
6052 :
6053 : #if CK2_ENABLED
6054 50 : module procedure setVarMeanMergedOld_D1_CK2
6055 : use pm_kind, only: TKC => CK2
6056 : #include "pm_sampleVar@routines.inc.F90"
6057 50 : end procedure
6058 : #endif
6059 :
6060 : #if CK1_ENABLED
6061 65 : module procedure setVarMeanMergedOld_D1_CK1
6062 : use pm_kind, only: TKC => CK1
6063 : #include "pm_sampleVar@routines.inc.F90"
6064 65 : end procedure
6065 : #endif
6066 :
6067 : #undef CK_ENABLED
6068 :
6069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6070 :
6071 : #define RK_ENABLED 1
6072 :
6073 : #if RK5_ENABLED
6074 : module procedure setVarMeanMergedOld_D1_RK5
6075 : use pm_kind, only: TKC => RK5
6076 : #include "pm_sampleVar@routines.inc.F90"
6077 : end procedure
6078 : #endif
6079 :
6080 : #if RK4_ENABLED
6081 50 : module procedure setVarMeanMergedOld_D1_RK4
6082 : use pm_kind, only: TKC => RK4
6083 : #include "pm_sampleVar@routines.inc.F90"
6084 50 : end procedure
6085 : #endif
6086 :
6087 : #if RK3_ENABLED
6088 50 : module procedure setVarMeanMergedOld_D1_RK3
6089 : use pm_kind, only: TKC => RK3
6090 : #include "pm_sampleVar@routines.inc.F90"
6091 50 : end procedure
6092 : #endif
6093 :
6094 : #if RK2_ENABLED
6095 50 : module procedure setVarMeanMergedOld_D1_RK2
6096 : use pm_kind, only: TKC => RK2
6097 : #include "pm_sampleVar@routines.inc.F90"
6098 50 : end procedure
6099 : #endif
6100 :
6101 : #if RK1_ENABLED
6102 65 : module procedure setVarMeanMergedOld_D1_RK1
6103 : use pm_kind, only: TKC => RK1
6104 : #include "pm_sampleVar@routines.inc.F90"
6105 65 : end procedure
6106 : #endif
6107 :
6108 : #undef RK_ENABLED
6109 :
6110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6111 :
6112 : #undef D1_ENABLED
6113 :
6114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6117 :
6118 : #undef Old_ENABLED
6119 :
6120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6123 :
6124 : #undef setVarMeanMerged_ENABLED
6125 :
6126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6127 :
6128 : #undef CHECK_ASSERTION
6129 :
6130 : end submodule routines
|
