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_sampleCor](@ref pm_sampleCor).
19 : !>
20 : !> final
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_sampleCor) 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_arrayRank, only: setRankFractional
40 : use pm_sampleMean, only: setMean
41 : use pm_sampleCov, only: setCov
42 : implicit none
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : contains
47 :
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 :
50 : #define getCor_ENABLED 1
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 :
56 : #define CFC_ENABLED 1
57 :
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #define RULD_ENABLED 1
63 :
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67 :
68 : #define VUXD_ENABLED 1
69 :
70 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
71 :
72 : #define CK_ENABLED 1
73 :
74 : #if CK5_ENABLED
75 : module procedure getCFC_RULD_VUXD_CK5
76 : use pm_kind, only: TKC => CK5
77 : #include "pm_sampleCor@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if CK4_ENABLED
82 50 : module procedure getCFC_RULD_VUXD_CK4
83 : use pm_kind, only: TKC => CK4
84 : #include "pm_sampleCor@routines.inc.F90"
85 50 : end procedure
86 : #endif
87 :
88 : #if CK3_ENABLED
89 50 : module procedure getCFC_RULD_VUXD_CK3
90 : use pm_kind, only: TKC => CK3
91 : #include "pm_sampleCor@routines.inc.F90"
92 50 : end procedure
93 : #endif
94 :
95 : #if CK2_ENABLED
96 50 : module procedure getCFC_RULD_VUXD_CK2
97 : use pm_kind, only: TKC => CK2
98 : #include "pm_sampleCor@routines.inc.F90"
99 50 : end procedure
100 : #endif
101 :
102 : #if CK1_ENABLED
103 50 : module procedure getCFC_RULD_VUXD_CK1
104 : use pm_kind, only: TKC => CK1
105 : #include "pm_sampleCor@routines.inc.F90"
106 50 : end procedure
107 : #endif
108 :
109 : #undef CK_ENABLED
110 :
111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112 :
113 : #define RK_ENABLED 1
114 :
115 : #if RK5_ENABLED
116 : module procedure getCFC_RULD_VUXD_RK5
117 : use pm_kind, only: TKC => RK5
118 : #include "pm_sampleCor@routines.inc.F90"
119 : end procedure
120 : #endif
121 :
122 : #if RK4_ENABLED
123 50 : module procedure getCFC_RULD_VUXD_RK4
124 : use pm_kind, only: TKC => RK4
125 : #include "pm_sampleCor@routines.inc.F90"
126 50 : end procedure
127 : #endif
128 :
129 : #if RK3_ENABLED
130 50 : module procedure getCFC_RULD_VUXD_RK3
131 : use pm_kind, only: TKC => RK3
132 : #include "pm_sampleCor@routines.inc.F90"
133 50 : end procedure
134 : #endif
135 :
136 : #if RK2_ENABLED
137 50 : module procedure getCFC_RULD_VUXD_RK2
138 : use pm_kind, only: TKC => RK2
139 : #include "pm_sampleCor@routines.inc.F90"
140 50 : end procedure
141 : #endif
142 :
143 : #if RK1_ENABLED
144 70 : module procedure getCFC_RULD_VUXD_RK1
145 : use pm_kind, only: TKC => RK1
146 : #include "pm_sampleCor@routines.inc.F90"
147 70 : end procedure
148 : #endif
149 :
150 : #undef RK_ENABLED
151 :
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 :
154 : #undef VUXD_ENABLED
155 :
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : #define VXLD_ENABLED 1
161 :
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 :
164 : #define CK_ENABLED 1
165 :
166 : #if CK5_ENABLED
167 : module procedure getCFC_RULD_VXLD_CK5
168 : use pm_kind, only: TKC => CK5
169 : #include "pm_sampleCor@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if CK4_ENABLED
174 50 : module procedure getCFC_RULD_VXLD_CK4
175 : use pm_kind, only: TKC => CK4
176 : #include "pm_sampleCor@routines.inc.F90"
177 50 : end procedure
178 : #endif
179 :
180 : #if CK3_ENABLED
181 50 : module procedure getCFC_RULD_VXLD_CK3
182 : use pm_kind, only: TKC => CK3
183 : #include "pm_sampleCor@routines.inc.F90"
184 50 : end procedure
185 : #endif
186 :
187 : #if CK2_ENABLED
188 50 : module procedure getCFC_RULD_VXLD_CK2
189 : use pm_kind, only: TKC => CK2
190 : #include "pm_sampleCor@routines.inc.F90"
191 50 : end procedure
192 : #endif
193 :
194 : #if CK1_ENABLED
195 50 : module procedure getCFC_RULD_VXLD_CK1
196 : use pm_kind, only: TKC => CK1
197 : #include "pm_sampleCor@routines.inc.F90"
198 50 : end procedure
199 : #endif
200 :
201 : #undef CK_ENABLED
202 :
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 :
205 : #define RK_ENABLED 1
206 :
207 : #if RK5_ENABLED
208 : module procedure getCFC_RULD_VXLD_RK5
209 : use pm_kind, only: TKC => RK5
210 : #include "pm_sampleCor@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if RK4_ENABLED
215 50 : module procedure getCFC_RULD_VXLD_RK4
216 : use pm_kind, only: TKC => RK4
217 : #include "pm_sampleCor@routines.inc.F90"
218 50 : end procedure
219 : #endif
220 :
221 : #if RK3_ENABLED
222 50 : module procedure getCFC_RULD_VXLD_RK3
223 : use pm_kind, only: TKC => RK3
224 : #include "pm_sampleCor@routines.inc.F90"
225 50 : end procedure
226 : #endif
227 :
228 : #if RK2_ENABLED
229 73 : module procedure getCFC_RULD_VXLD_RK2
230 : use pm_kind, only: TKC => RK2
231 : #include "pm_sampleCor@routines.inc.F90"
232 73 : end procedure
233 : #endif
234 :
235 : #if RK1_ENABLED
236 82 : module procedure getCFC_RULD_VXLD_RK1
237 : use pm_kind, only: TKC => RK1
238 : #include "pm_sampleCor@routines.inc.F90"
239 82 : end procedure
240 : #endif
241 :
242 : #undef RK_ENABLED
243 :
244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
245 :
246 : #undef VXLD_ENABLED
247 :
248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251 :
252 : #define VUXX_ENABLED 1
253 :
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 :
256 : #define CK_ENABLED 1
257 :
258 : #if CK5_ENABLED
259 : module procedure getCFC_RULD_VUXX_CK5
260 : use pm_kind, only: TKC => CK5
261 : #include "pm_sampleCor@routines.inc.F90"
262 : end procedure
263 : #endif
264 :
265 : #if CK4_ENABLED
266 50 : module procedure getCFC_RULD_VUXX_CK4
267 : use pm_kind, only: TKC => CK4
268 : #include "pm_sampleCor@routines.inc.F90"
269 50 : end procedure
270 : #endif
271 :
272 : #if CK3_ENABLED
273 50 : module procedure getCFC_RULD_VUXX_CK3
274 : use pm_kind, only: TKC => CK3
275 : #include "pm_sampleCor@routines.inc.F90"
276 50 : end procedure
277 : #endif
278 :
279 : #if CK2_ENABLED
280 50 : module procedure getCFC_RULD_VUXX_CK2
281 : use pm_kind, only: TKC => CK2
282 : #include "pm_sampleCor@routines.inc.F90"
283 50 : end procedure
284 : #endif
285 :
286 : #if CK1_ENABLED
287 50 : module procedure getCFC_RULD_VUXX_CK1
288 : use pm_kind, only: TKC => CK1
289 : #include "pm_sampleCor@routines.inc.F90"
290 50 : end procedure
291 : #endif
292 :
293 : #undef CK_ENABLED
294 :
295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
296 :
297 : #define RK_ENABLED 1
298 :
299 : #if RK5_ENABLED
300 : module procedure getCFC_RULD_VUXX_RK5
301 : use pm_kind, only: TKC => RK5
302 : #include "pm_sampleCor@routines.inc.F90"
303 : end procedure
304 : #endif
305 :
306 : #if RK4_ENABLED
307 50 : module procedure getCFC_RULD_VUXX_RK4
308 : use pm_kind, only: TKC => RK4
309 : #include "pm_sampleCor@routines.inc.F90"
310 50 : end procedure
311 : #endif
312 :
313 : #if RK3_ENABLED
314 50 : module procedure getCFC_RULD_VUXX_RK3
315 : use pm_kind, only: TKC => RK3
316 : #include "pm_sampleCor@routines.inc.F90"
317 50 : end procedure
318 : #endif
319 :
320 : #if RK2_ENABLED
321 50 : module procedure getCFC_RULD_VUXX_RK2
322 : use pm_kind, only: TKC => RK2
323 : #include "pm_sampleCor@routines.inc.F90"
324 50 : end procedure
325 : #endif
326 :
327 : #if RK1_ENABLED
328 60 : module procedure getCFC_RULD_VUXX_RK1
329 : use pm_kind, only: TKC => RK1
330 : #include "pm_sampleCor@routines.inc.F90"
331 60 : end procedure
332 : #endif
333 :
334 : #undef RK_ENABLED
335 :
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 :
338 : #undef VUXX_ENABLED
339 :
340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343 :
344 : #define VXLX_ENABLED 1
345 :
346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 :
348 : #define CK_ENABLED 1
349 :
350 : #if CK5_ENABLED
351 : module procedure getCFC_RULD_VXLX_CK5
352 : use pm_kind, only: TKC => CK5
353 : #include "pm_sampleCor@routines.inc.F90"
354 : end procedure
355 : #endif
356 :
357 : #if CK4_ENABLED
358 50 : module procedure getCFC_RULD_VXLX_CK4
359 : use pm_kind, only: TKC => CK4
360 : #include "pm_sampleCor@routines.inc.F90"
361 50 : end procedure
362 : #endif
363 :
364 : #if CK3_ENABLED
365 50 : module procedure getCFC_RULD_VXLX_CK3
366 : use pm_kind, only: TKC => CK3
367 : #include "pm_sampleCor@routines.inc.F90"
368 50 : end procedure
369 : #endif
370 :
371 : #if CK2_ENABLED
372 50 : module procedure getCFC_RULD_VXLX_CK2
373 : use pm_kind, only: TKC => CK2
374 : #include "pm_sampleCor@routines.inc.F90"
375 50 : end procedure
376 : #endif
377 :
378 : #if CK1_ENABLED
379 50 : module procedure getCFC_RULD_VXLX_CK1
380 : use pm_kind, only: TKC => CK1
381 : #include "pm_sampleCor@routines.inc.F90"
382 50 : end procedure
383 : #endif
384 :
385 : #undef CK_ENABLED
386 :
387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388 :
389 : #define RK_ENABLED 1
390 :
391 : #if RK5_ENABLED
392 : module procedure getCFC_RULD_VXLX_RK5
393 : use pm_kind, only: TKC => RK5
394 : #include "pm_sampleCor@routines.inc.F90"
395 : end procedure
396 : #endif
397 :
398 : #if RK4_ENABLED
399 50 : module procedure getCFC_RULD_VXLX_RK4
400 : use pm_kind, only: TKC => RK4
401 : #include "pm_sampleCor@routines.inc.F90"
402 50 : end procedure
403 : #endif
404 :
405 : #if RK3_ENABLED
406 50 : module procedure getCFC_RULD_VXLX_RK3
407 : use pm_kind, only: TKC => RK3
408 : #include "pm_sampleCor@routines.inc.F90"
409 50 : end procedure
410 : #endif
411 :
412 : #if RK2_ENABLED
413 50 : module procedure getCFC_RULD_VXLX_RK2
414 : use pm_kind, only: TKC => RK2
415 : #include "pm_sampleCor@routines.inc.F90"
416 50 : end procedure
417 : #endif
418 :
419 : #if RK1_ENABLED
420 60 : module procedure getCFC_RULD_VXLX_RK1
421 : use pm_kind, only: TKC => RK1
422 : #include "pm_sampleCor@routines.inc.F90"
423 60 : end procedure
424 : #endif
425 :
426 : #undef RK_ENABLED
427 :
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 :
430 : #undef VXLX_ENABLED
431 :
432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 :
436 : #undef RULD_ENABLED
437 :
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 :
442 : #undef CFC_ENABLED
443 :
444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 :
448 : #undef getCor_ENABLED
449 :
450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
451 :
452 : #define getCor_ENABLED 1
453 :
454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 :
458 : #define XY_ENABLED 1
459 :
460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
463 :
464 : #define WNO_ENABLED 1
465 :
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #define CK_ENABLED 1
469 :
470 : #if CK5_ENABLED
471 : module procedure getPrsWNO_XY_CK5
472 : use pm_kind, only: TKC => CK5
473 : #include "pm_sampleCor@routines.inc.F90"
474 : end procedure
475 : #endif
476 :
477 : #if CK4_ENABLED
478 50 : module procedure getPrsWNO_XY_CK4
479 : use pm_kind, only: TKC => CK4
480 : #include "pm_sampleCor@routines.inc.F90"
481 50 : end procedure
482 : #endif
483 :
484 : #if CK3_ENABLED
485 50 : module procedure getPrsWNO_XY_CK3
486 : use pm_kind, only: TKC => CK3
487 : #include "pm_sampleCor@routines.inc.F90"
488 50 : end procedure
489 : #endif
490 :
491 : #if CK2_ENABLED
492 50 : module procedure getPrsWNO_XY_CK2
493 : use pm_kind, only: TKC => CK2
494 : #include "pm_sampleCor@routines.inc.F90"
495 50 : end procedure
496 : #endif
497 :
498 : #if CK1_ENABLED
499 50 : module procedure getPrsWNO_XY_CK1
500 : use pm_kind, only: TKC => CK1
501 : #include "pm_sampleCor@routines.inc.F90"
502 50 : end procedure
503 : #endif
504 :
505 : #undef CK_ENABLED
506 :
507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508 :
509 : #define RK_ENABLED 1
510 :
511 : #if RK5_ENABLED
512 : module procedure getPrsWNO_XY_RK5
513 : use pm_kind, only: TKC => RK5
514 : #include "pm_sampleCor@routines.inc.F90"
515 : end procedure
516 : #endif
517 :
518 : #if RK4_ENABLED
519 50 : module procedure getPrsWNO_XY_RK4
520 : use pm_kind, only: TKC => RK4
521 : #include "pm_sampleCor@routines.inc.F90"
522 50 : end procedure
523 : #endif
524 :
525 : #if RK3_ENABLED
526 50 : module procedure getPrsWNO_XY_RK3
527 : use pm_kind, only: TKC => RK3
528 : #include "pm_sampleCor@routines.inc.F90"
529 50 : end procedure
530 : #endif
531 :
532 : #if RK2_ENABLED
533 1250 : module procedure getPrsWNO_XY_RK2
534 : use pm_kind, only: TKC => RK2
535 : #include "pm_sampleCor@routines.inc.F90"
536 1250 : end procedure
537 : #endif
538 :
539 : #if RK1_ENABLED
540 51 : module procedure getPrsWNO_XY_RK1
541 : use pm_kind, only: TKC => RK1
542 : #include "pm_sampleCor@routines.inc.F90"
543 51 : end procedure
544 : #endif
545 :
546 : #undef RK_ENABLED
547 :
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 :
550 : #undef WNO_ENABLED
551 :
552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 :
556 : #define WTI_ENABLED 1
557 :
558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 :
560 : #define CK_ENABLED 1
561 :
562 : #if CK5_ENABLED
563 : module procedure getPrsWTI_XY_CK5
564 : use pm_kind, only: TKC => CK5
565 : #include "pm_sampleCor@routines.inc.F90"
566 : end procedure
567 : #endif
568 :
569 : #if CK4_ENABLED
570 50 : module procedure getPrsWTI_XY_CK4
571 : use pm_kind, only: TKC => CK4
572 : #include "pm_sampleCor@routines.inc.F90"
573 50 : end procedure
574 : #endif
575 :
576 : #if CK3_ENABLED
577 50 : module procedure getPrsWTI_XY_CK3
578 : use pm_kind, only: TKC => CK3
579 : #include "pm_sampleCor@routines.inc.F90"
580 50 : end procedure
581 : #endif
582 :
583 : #if CK2_ENABLED
584 50 : module procedure getPrsWTI_XY_CK2
585 : use pm_kind, only: TKC => CK2
586 : #include "pm_sampleCor@routines.inc.F90"
587 50 : end procedure
588 : #endif
589 :
590 : #if CK1_ENABLED
591 50 : module procedure getPrsWTI_XY_CK1
592 : use pm_kind, only: TKC => CK1
593 : #include "pm_sampleCor@routines.inc.F90"
594 50 : end procedure
595 : #endif
596 :
597 : #undef CK_ENABLED
598 :
599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
600 :
601 : #define RK_ENABLED 1
602 :
603 : #if RK5_ENABLED
604 : module procedure getPrsWTI_XY_RK5
605 : use pm_kind, only: TKC => RK5
606 : #include "pm_sampleCor@routines.inc.F90"
607 : end procedure
608 : #endif
609 :
610 : #if RK4_ENABLED
611 50 : module procedure getPrsWTI_XY_RK4
612 : use pm_kind, only: TKC => RK4
613 : #include "pm_sampleCor@routines.inc.F90"
614 50 : end procedure
615 : #endif
616 :
617 : #if RK3_ENABLED
618 50 : module procedure getPrsWTI_XY_RK3
619 : use pm_kind, only: TKC => RK3
620 : #include "pm_sampleCor@routines.inc.F90"
621 50 : end procedure
622 : #endif
623 :
624 : #if RK2_ENABLED
625 50 : module procedure getPrsWTI_XY_RK2
626 : use pm_kind, only: TKC => RK2
627 : #include "pm_sampleCor@routines.inc.F90"
628 50 : end procedure
629 : #endif
630 :
631 : #if RK1_ENABLED
632 51 : module procedure getPrsWTI_XY_RK1
633 : use pm_kind, only: TKC => RK1
634 : #include "pm_sampleCor@routines.inc.F90"
635 51 : end procedure
636 : #endif
637 :
638 : #undef RK_ENABLED
639 :
640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641 :
642 : #undef WTI_ENABLED
643 :
644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647 :
648 : #define WTR_ENABLED 1
649 :
650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
651 :
652 : #define CK_ENABLED 1
653 :
654 : #if CK5_ENABLED
655 : module procedure getPrsWTR_XY_CK5
656 : use pm_kind, only: TKC => CK5
657 : #include "pm_sampleCor@routines.inc.F90"
658 : end procedure
659 : #endif
660 :
661 : #if CK4_ENABLED
662 50 : module procedure getPrsWTR_XY_CK4
663 : use pm_kind, only: TKC => CK4
664 : #include "pm_sampleCor@routines.inc.F90"
665 50 : end procedure
666 : #endif
667 :
668 : #if CK3_ENABLED
669 50 : module procedure getPrsWTR_XY_CK3
670 : use pm_kind, only: TKC => CK3
671 : #include "pm_sampleCor@routines.inc.F90"
672 50 : end procedure
673 : #endif
674 :
675 : #if CK2_ENABLED
676 50 : module procedure getPrsWTR_XY_CK2
677 : use pm_kind, only: TKC => CK2
678 : #include "pm_sampleCor@routines.inc.F90"
679 50 : end procedure
680 : #endif
681 :
682 : #if CK1_ENABLED
683 50 : module procedure getPrsWTR_XY_CK1
684 : use pm_kind, only: TKC => CK1
685 : #include "pm_sampleCor@routines.inc.F90"
686 50 : end procedure
687 : #endif
688 :
689 : #undef CK_ENABLED
690 :
691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
692 :
693 : #define RK_ENABLED 1
694 :
695 : #if RK5_ENABLED
696 : module procedure getPrsWTR_XY_RK5
697 : use pm_kind, only: TKC => RK5
698 : #include "pm_sampleCor@routines.inc.F90"
699 : end procedure
700 : #endif
701 :
702 : #if RK4_ENABLED
703 50 : module procedure getPrsWTR_XY_RK4
704 : use pm_kind, only: TKC => RK4
705 : #include "pm_sampleCor@routines.inc.F90"
706 50 : end procedure
707 : #endif
708 :
709 : #if RK3_ENABLED
710 50 : module procedure getPrsWTR_XY_RK3
711 : use pm_kind, only: TKC => RK3
712 : #include "pm_sampleCor@routines.inc.F90"
713 50 : end procedure
714 : #endif
715 :
716 : #if RK2_ENABLED
717 2450 : module procedure getPrsWTR_XY_RK2
718 : use pm_kind, only: TKC => RK2
719 : #include "pm_sampleCor@routines.inc.F90"
720 2450 : end procedure
721 : #endif
722 :
723 : #if RK1_ENABLED
724 51 : module procedure getPrsWTR_XY_RK1
725 : use pm_kind, only: TKC => RK1
726 : #include "pm_sampleCor@routines.inc.F90"
727 51 : end procedure
728 : #endif
729 :
730 : #undef RK_ENABLED
731 :
732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
733 :
734 : #undef WTR_ENABLED
735 :
736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
739 :
740 : #undef XY_ENABLED
741 :
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745 :
746 : #undef getCor_ENABLED
747 :
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 :
750 : #define getCor_ENABLED 1
751 :
752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755 :
756 : #define ULD_ENABLED 1
757 :
758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
759 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 :
762 : #define WNO_ENABLED 1
763 :
764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765 :
766 : #define CK_ENABLED 1
767 :
768 : #if CK5_ENABLED
769 : module procedure getPrsWNO_ULD_CK5
770 : use pm_kind, only: TKC => CK5
771 : #include "pm_sampleCor@routines.inc.F90"
772 : end procedure
773 : #endif
774 :
775 : #if CK4_ENABLED
776 50 : module procedure getPrsWNO_ULD_CK4
777 : use pm_kind, only: TKC => CK4
778 : #include "pm_sampleCor@routines.inc.F90"
779 50 : end procedure
780 : #endif
781 :
782 : #if CK3_ENABLED
783 50 : module procedure getPrsWNO_ULD_CK3
784 : use pm_kind, only: TKC => CK3
785 : #include "pm_sampleCor@routines.inc.F90"
786 50 : end procedure
787 : #endif
788 :
789 : #if CK2_ENABLED
790 50 : module procedure getPrsWNO_ULD_CK2
791 : use pm_kind, only: TKC => CK2
792 : #include "pm_sampleCor@routines.inc.F90"
793 50 : end procedure
794 : #endif
795 :
796 : #if CK1_ENABLED
797 50 : module procedure getPrsWNO_ULD_CK1
798 : use pm_kind, only: TKC => CK1
799 : #include "pm_sampleCor@routines.inc.F90"
800 50 : end procedure
801 : #endif
802 :
803 : #undef CK_ENABLED
804 :
805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
806 :
807 : #define RK_ENABLED 1
808 :
809 : #if RK5_ENABLED
810 : module procedure getPrsWNO_ULD_RK5
811 : use pm_kind, only: TKC => RK5
812 : #include "pm_sampleCor@routines.inc.F90"
813 : end procedure
814 : #endif
815 :
816 : #if RK4_ENABLED
817 50 : module procedure getPrsWNO_ULD_RK4
818 : use pm_kind, only: TKC => RK4
819 : #include "pm_sampleCor@routines.inc.F90"
820 50 : end procedure
821 : #endif
822 :
823 : #if RK3_ENABLED
824 50 : module procedure getPrsWNO_ULD_RK3
825 : use pm_kind, only: TKC => RK3
826 : #include "pm_sampleCor@routines.inc.F90"
827 50 : end procedure
828 : #endif
829 :
830 : #if RK2_ENABLED
831 1700 : module procedure getPrsWNO_ULD_RK2
832 : use pm_kind, only: TKC => RK2
833 : #include "pm_sampleCor@routines.inc.F90"
834 1700 : end procedure
835 : #endif
836 :
837 : #if RK1_ENABLED
838 52 : module procedure getPrsWNO_ULD_RK1
839 : use pm_kind, only: TKC => RK1
840 : #include "pm_sampleCor@routines.inc.F90"
841 52 : end procedure
842 : #endif
843 :
844 : #undef RK_ENABLED
845 :
846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
847 :
848 : #undef WNO_ENABLED
849 :
850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
853 :
854 : #define WTI_ENABLED 1
855 :
856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
857 :
858 : #define CK_ENABLED 1
859 :
860 : #if CK5_ENABLED
861 : module procedure getPrsWTI_ULD_CK5
862 : use pm_kind, only: TKC => CK5
863 : #include "pm_sampleCor@routines.inc.F90"
864 : end procedure
865 : #endif
866 :
867 : #if CK4_ENABLED
868 50 : module procedure getPrsWTI_ULD_CK4
869 : use pm_kind, only: TKC => CK4
870 : #include "pm_sampleCor@routines.inc.F90"
871 50 : end procedure
872 : #endif
873 :
874 : #if CK3_ENABLED
875 50 : module procedure getPrsWTI_ULD_CK3
876 : use pm_kind, only: TKC => CK3
877 : #include "pm_sampleCor@routines.inc.F90"
878 50 : end procedure
879 : #endif
880 :
881 : #if CK2_ENABLED
882 50 : module procedure getPrsWTI_ULD_CK2
883 : use pm_kind, only: TKC => CK2
884 : #include "pm_sampleCor@routines.inc.F90"
885 50 : end procedure
886 : #endif
887 :
888 : #if CK1_ENABLED
889 50 : module procedure getPrsWTI_ULD_CK1
890 : use pm_kind, only: TKC => CK1
891 : #include "pm_sampleCor@routines.inc.F90"
892 50 : end procedure
893 : #endif
894 :
895 : #undef CK_ENABLED
896 :
897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898 :
899 : #define RK_ENABLED 1
900 :
901 : #if RK5_ENABLED
902 : module procedure getPrsWTI_ULD_RK5
903 : use pm_kind, only: TKC => RK5
904 : #include "pm_sampleCor@routines.inc.F90"
905 : end procedure
906 : #endif
907 :
908 : #if RK4_ENABLED
909 50 : module procedure getPrsWTI_ULD_RK4
910 : use pm_kind, only: TKC => RK4
911 : #include "pm_sampleCor@routines.inc.F90"
912 50 : end procedure
913 : #endif
914 :
915 : #if RK3_ENABLED
916 50 : module procedure getPrsWTI_ULD_RK3
917 : use pm_kind, only: TKC => RK3
918 : #include "pm_sampleCor@routines.inc.F90"
919 50 : end procedure
920 : #endif
921 :
922 : #if RK2_ENABLED
923 50 : module procedure getPrsWTI_ULD_RK2
924 : use pm_kind, only: TKC => RK2
925 : #include "pm_sampleCor@routines.inc.F90"
926 50 : end procedure
927 : #endif
928 :
929 : #if RK1_ENABLED
930 52 : module procedure getPrsWTI_ULD_RK1
931 : use pm_kind, only: TKC => RK1
932 : #include "pm_sampleCor@routines.inc.F90"
933 52 : end procedure
934 : #endif
935 :
936 : #undef RK_ENABLED
937 :
938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
939 :
940 : #undef WTI_ENABLED
941 :
942 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
945 :
946 : #define WTR_ENABLED 1
947 :
948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
949 :
950 : #define CK_ENABLED 1
951 :
952 : #if CK5_ENABLED
953 : module procedure getPrsWTR_ULD_CK5
954 : use pm_kind, only: TKC => CK5
955 : #include "pm_sampleCor@routines.inc.F90"
956 : end procedure
957 : #endif
958 :
959 : #if CK4_ENABLED
960 50 : module procedure getPrsWTR_ULD_CK4
961 : use pm_kind, only: TKC => CK4
962 : #include "pm_sampleCor@routines.inc.F90"
963 50 : end procedure
964 : #endif
965 :
966 : #if CK3_ENABLED
967 50 : module procedure getPrsWTR_ULD_CK3
968 : use pm_kind, only: TKC => CK3
969 : #include "pm_sampleCor@routines.inc.F90"
970 50 : end procedure
971 : #endif
972 :
973 : #if CK2_ENABLED
974 50 : module procedure getPrsWTR_ULD_CK2
975 : use pm_kind, only: TKC => CK2
976 : #include "pm_sampleCor@routines.inc.F90"
977 50 : end procedure
978 : #endif
979 :
980 : #if CK1_ENABLED
981 50 : module procedure getPrsWTR_ULD_CK1
982 : use pm_kind, only: TKC => CK1
983 : #include "pm_sampleCor@routines.inc.F90"
984 50 : end procedure
985 : #endif
986 :
987 : #undef CK_ENABLED
988 :
989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
990 :
991 : #define RK_ENABLED 1
992 :
993 : #if RK5_ENABLED
994 : module procedure getPrsWTR_ULD_RK5
995 : use pm_kind, only: TKC => RK5
996 : #include "pm_sampleCor@routines.inc.F90"
997 : end procedure
998 : #endif
999 :
1000 : #if RK4_ENABLED
1001 50 : module procedure getPrsWTR_ULD_RK4
1002 : use pm_kind, only: TKC => RK4
1003 : #include "pm_sampleCor@routines.inc.F90"
1004 50 : end procedure
1005 : #endif
1006 :
1007 : #if RK3_ENABLED
1008 50 : module procedure getPrsWTR_ULD_RK3
1009 : use pm_kind, only: TKC => RK3
1010 : #include "pm_sampleCor@routines.inc.F90"
1011 50 : end procedure
1012 : #endif
1013 :
1014 : #if RK2_ENABLED
1015 3350 : module procedure getPrsWTR_ULD_RK2
1016 : use pm_kind, only: TKC => RK2
1017 : #include "pm_sampleCor@routines.inc.F90"
1018 3350 : end procedure
1019 : #endif
1020 :
1021 : #if RK1_ENABLED
1022 52 : module procedure getPrsWTR_ULD_RK1
1023 : use pm_kind, only: TKC => RK1
1024 : #include "pm_sampleCor@routines.inc.F90"
1025 52 : end procedure
1026 : #endif
1027 :
1028 : #undef RK_ENABLED
1029 :
1030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 :
1032 : #undef WTR_ENABLED
1033 :
1034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 :
1038 : #undef ULD_ENABLED
1039 :
1040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043 :
1044 : #undef getCor_ENABLED
1045 :
1046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1047 :
1048 : #define setCor_ENABLED 1
1049 :
1050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053 :
1054 : #define CFC_ENABLED 1
1055 :
1056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1059 :
1060 : #define RUXX_ENABLED 1
1061 :
1062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1065 :
1066 : #define VUXD_ENABLED 1
1067 :
1068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1069 :
1070 : #define CK_ENABLED 1
1071 :
1072 : #if CK5_ENABLED
1073 : module procedure setCFC_RUXX_VUXD_CK5
1074 : use pm_kind, only: TKC => CK5
1075 : #include "pm_sampleCor@routines.inc.F90"
1076 : end procedure
1077 : #endif
1078 :
1079 : #if CK4_ENABLED
1080 50 : module procedure setCFC_RUXX_VUXD_CK4
1081 : use pm_kind, only: TKC => CK4
1082 : #include "pm_sampleCor@routines.inc.F90"
1083 50 : end procedure
1084 : #endif
1085 :
1086 : #if CK3_ENABLED
1087 50 : module procedure setCFC_RUXX_VUXD_CK3
1088 : use pm_kind, only: TKC => CK3
1089 : #include "pm_sampleCor@routines.inc.F90"
1090 50 : end procedure
1091 : #endif
1092 :
1093 : #if CK2_ENABLED
1094 50 : module procedure setCFC_RUXX_VUXD_CK2
1095 : use pm_kind, only: TKC => CK2
1096 : #include "pm_sampleCor@routines.inc.F90"
1097 50 : end procedure
1098 : #endif
1099 :
1100 : #if CK1_ENABLED
1101 50 : module procedure setCFC_RUXX_VUXD_CK1
1102 : use pm_kind, only: TKC => CK1
1103 : #include "pm_sampleCor@routines.inc.F90"
1104 50 : end procedure
1105 : #endif
1106 :
1107 : #undef CK_ENABLED
1108 :
1109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1110 :
1111 : #define RK_ENABLED 1
1112 :
1113 : #if RK5_ENABLED
1114 : module procedure setCFC_RUXX_VUXD_RK5
1115 : use pm_kind, only: TKC => RK5
1116 : #include "pm_sampleCor@routines.inc.F90"
1117 : end procedure
1118 : #endif
1119 :
1120 : #if RK4_ENABLED
1121 50 : module procedure setCFC_RUXX_VUXD_RK4
1122 : use pm_kind, only: TKC => RK4
1123 : #include "pm_sampleCor@routines.inc.F90"
1124 50 : end procedure
1125 : #endif
1126 :
1127 : #if RK3_ENABLED
1128 50 : module procedure setCFC_RUXX_VUXD_RK3
1129 : use pm_kind, only: TKC => RK3
1130 : #include "pm_sampleCor@routines.inc.F90"
1131 50 : end procedure
1132 : #endif
1133 :
1134 : #if RK2_ENABLED
1135 50 : module procedure setCFC_RUXX_VUXD_RK2
1136 : use pm_kind, only: TKC => RK2
1137 : #include "pm_sampleCor@routines.inc.F90"
1138 50 : end procedure
1139 : #endif
1140 :
1141 : #if RK1_ENABLED
1142 60 : module procedure setCFC_RUXX_VUXD_RK1
1143 : use pm_kind, only: TKC => RK1
1144 : #include "pm_sampleCor@routines.inc.F90"
1145 60 : end procedure
1146 : #endif
1147 :
1148 : #undef RK_ENABLED
1149 :
1150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1151 :
1152 : #undef VUXD_ENABLED
1153 :
1154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1157 :
1158 : #define VUXX_ENABLED 1
1159 :
1160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1161 :
1162 : #define CK_ENABLED 1
1163 :
1164 : #if CK5_ENABLED
1165 : module procedure setCFC_RUXX_VUXX_CK5
1166 : use pm_kind, only: TKC => CK5
1167 : #include "pm_sampleCor@routines.inc.F90"
1168 : end procedure
1169 : #endif
1170 :
1171 : #if CK4_ENABLED
1172 50 : module procedure setCFC_RUXX_VUXX_CK4
1173 : use pm_kind, only: TKC => CK4
1174 : #include "pm_sampleCor@routines.inc.F90"
1175 50 : end procedure
1176 : #endif
1177 :
1178 : #if CK3_ENABLED
1179 50 : module procedure setCFC_RUXX_VUXX_CK3
1180 : use pm_kind, only: TKC => CK3
1181 : #include "pm_sampleCor@routines.inc.F90"
1182 50 : end procedure
1183 : #endif
1184 :
1185 : #if CK2_ENABLED
1186 50 : module procedure setCFC_RUXX_VUXX_CK2
1187 : use pm_kind, only: TKC => CK2
1188 : #include "pm_sampleCor@routines.inc.F90"
1189 50 : end procedure
1190 : #endif
1191 :
1192 : #if CK1_ENABLED
1193 50 : module procedure setCFC_RUXX_VUXX_CK1
1194 : use pm_kind, only: TKC => CK1
1195 : #include "pm_sampleCor@routines.inc.F90"
1196 50 : end procedure
1197 : #endif
1198 :
1199 : #undef CK_ENABLED
1200 :
1201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1202 :
1203 : #define RK_ENABLED 1
1204 :
1205 : #if RK5_ENABLED
1206 : module procedure setCFC_RUXX_VUXX_RK5
1207 : use pm_kind, only: TKC => RK5
1208 : #include "pm_sampleCor@routines.inc.F90"
1209 : end procedure
1210 : #endif
1211 :
1212 : #if RK4_ENABLED
1213 50 : module procedure setCFC_RUXX_VUXX_RK4
1214 : use pm_kind, only: TKC => RK4
1215 : #include "pm_sampleCor@routines.inc.F90"
1216 50 : end procedure
1217 : #endif
1218 :
1219 : #if RK3_ENABLED
1220 50 : module procedure setCFC_RUXX_VUXX_RK3
1221 : use pm_kind, only: TKC => RK3
1222 : #include "pm_sampleCor@routines.inc.F90"
1223 50 : end procedure
1224 : #endif
1225 :
1226 : #if RK2_ENABLED
1227 50 : module procedure setCFC_RUXX_VUXX_RK2
1228 : use pm_kind, only: TKC => RK2
1229 : #include "pm_sampleCor@routines.inc.F90"
1230 50 : end procedure
1231 : #endif
1232 :
1233 : #if RK1_ENABLED
1234 60 : module procedure setCFC_RUXX_VUXX_RK1
1235 : use pm_kind, only: TKC => RK1
1236 : #include "pm_sampleCor@routines.inc.F90"
1237 60 : end procedure
1238 : #endif
1239 :
1240 : #undef RK_ENABLED
1241 :
1242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1243 :
1244 : #undef VUXX_ENABLED
1245 :
1246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1249 :
1250 : #define VXLX_ENABLED 1
1251 :
1252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 :
1254 : #define CK_ENABLED 1
1255 :
1256 : #if CK5_ENABLED
1257 : module procedure setCFC_RUXX_VXLX_CK5
1258 : use pm_kind, only: TKC => CK5
1259 : #include "pm_sampleCor@routines.inc.F90"
1260 : end procedure
1261 : #endif
1262 :
1263 : #if CK4_ENABLED
1264 50 : module procedure setCFC_RUXX_VXLX_CK4
1265 : use pm_kind, only: TKC => CK4
1266 : #include "pm_sampleCor@routines.inc.F90"
1267 50 : end procedure
1268 : #endif
1269 :
1270 : #if CK3_ENABLED
1271 50 : module procedure setCFC_RUXX_VXLX_CK3
1272 : use pm_kind, only: TKC => CK3
1273 : #include "pm_sampleCor@routines.inc.F90"
1274 50 : end procedure
1275 : #endif
1276 :
1277 : #if CK2_ENABLED
1278 50 : module procedure setCFC_RUXX_VXLX_CK2
1279 : use pm_kind, only: TKC => CK2
1280 : #include "pm_sampleCor@routines.inc.F90"
1281 50 : end procedure
1282 : #endif
1283 :
1284 : #if CK1_ENABLED
1285 50 : module procedure setCFC_RUXX_VXLX_CK1
1286 : use pm_kind, only: TKC => CK1
1287 : #include "pm_sampleCor@routines.inc.F90"
1288 50 : end procedure
1289 : #endif
1290 :
1291 : #undef CK_ENABLED
1292 :
1293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1294 :
1295 : #define RK_ENABLED 1
1296 :
1297 : #if RK5_ENABLED
1298 : module procedure setCFC_RUXX_VXLX_RK5
1299 : use pm_kind, only: TKC => RK5
1300 : #include "pm_sampleCor@routines.inc.F90"
1301 : end procedure
1302 : #endif
1303 :
1304 : #if RK4_ENABLED
1305 50 : module procedure setCFC_RUXX_VXLX_RK4
1306 : use pm_kind, only: TKC => RK4
1307 : #include "pm_sampleCor@routines.inc.F90"
1308 50 : end procedure
1309 : #endif
1310 :
1311 : #if RK3_ENABLED
1312 50 : module procedure setCFC_RUXX_VXLX_RK3
1313 : use pm_kind, only: TKC => RK3
1314 : #include "pm_sampleCor@routines.inc.F90"
1315 50 : end procedure
1316 : #endif
1317 :
1318 : #if RK2_ENABLED
1319 50 : module procedure setCFC_RUXX_VXLX_RK2
1320 : use pm_kind, only: TKC => RK2
1321 : #include "pm_sampleCor@routines.inc.F90"
1322 50 : end procedure
1323 : #endif
1324 :
1325 : #if RK1_ENABLED
1326 60 : module procedure setCFC_RUXX_VXLX_RK1
1327 : use pm_kind, only: TKC => RK1
1328 : #include "pm_sampleCor@routines.inc.F90"
1329 60 : end procedure
1330 : #endif
1331 :
1332 : #undef RK_ENABLED
1333 :
1334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1335 :
1336 : #undef VXLX_ENABLED
1337 :
1338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1341 :
1342 : #define VXLD_ENABLED 1
1343 :
1344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1345 :
1346 : #define CK_ENABLED 1
1347 :
1348 : #if CK5_ENABLED
1349 : module procedure setCFC_RUXX_VXLD_CK5
1350 : use pm_kind, only: TKC => CK5
1351 : #include "pm_sampleCor@routines.inc.F90"
1352 : end procedure
1353 : #endif
1354 :
1355 : #if CK4_ENABLED
1356 50 : module procedure setCFC_RUXX_VXLD_CK4
1357 : use pm_kind, only: TKC => CK4
1358 : #include "pm_sampleCor@routines.inc.F90"
1359 50 : end procedure
1360 : #endif
1361 :
1362 : #if CK3_ENABLED
1363 50 : module procedure setCFC_RUXX_VXLD_CK3
1364 : use pm_kind, only: TKC => CK3
1365 : #include "pm_sampleCor@routines.inc.F90"
1366 50 : end procedure
1367 : #endif
1368 :
1369 : #if CK2_ENABLED
1370 50 : module procedure setCFC_RUXX_VXLD_CK2
1371 : use pm_kind, only: TKC => CK2
1372 : #include "pm_sampleCor@routines.inc.F90"
1373 50 : end procedure
1374 : #endif
1375 :
1376 : #if CK1_ENABLED
1377 50 : module procedure setCFC_RUXX_VXLD_CK1
1378 : use pm_kind, only: TKC => CK1
1379 : #include "pm_sampleCor@routines.inc.F90"
1380 50 : end procedure
1381 : #endif
1382 :
1383 : #undef CK_ENABLED
1384 :
1385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1386 :
1387 : #define RK_ENABLED 1
1388 :
1389 : #if RK5_ENABLED
1390 : module procedure setCFC_RUXX_VXLD_RK5
1391 : use pm_kind, only: TKC => RK5
1392 : #include "pm_sampleCor@routines.inc.F90"
1393 : end procedure
1394 : #endif
1395 :
1396 : #if RK4_ENABLED
1397 50 : module procedure setCFC_RUXX_VXLD_RK4
1398 : use pm_kind, only: TKC => RK4
1399 : #include "pm_sampleCor@routines.inc.F90"
1400 50 : end procedure
1401 : #endif
1402 :
1403 : #if RK3_ENABLED
1404 50 : module procedure setCFC_RUXX_VXLD_RK3
1405 : use pm_kind, only: TKC => RK3
1406 : #include "pm_sampleCor@routines.inc.F90"
1407 50 : end procedure
1408 : #endif
1409 :
1410 : #if RK2_ENABLED
1411 50 : module procedure setCFC_RUXX_VXLD_RK2
1412 : use pm_kind, only: TKC => RK2
1413 : #include "pm_sampleCor@routines.inc.F90"
1414 50 : end procedure
1415 : #endif
1416 :
1417 : #if RK1_ENABLED
1418 60 : module procedure setCFC_RUXX_VXLD_RK1
1419 : use pm_kind, only: TKC => RK1
1420 : #include "pm_sampleCor@routines.inc.F90"
1421 60 : end procedure
1422 : #endif
1423 :
1424 : #undef RK_ENABLED
1425 :
1426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1427 :
1428 : #undef VXLD_ENABLED
1429 :
1430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1431 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1433 :
1434 : #undef RUXX_ENABLED
1435 :
1436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1439 :
1440 : #define RUXD_ENABLED 1
1441 :
1442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1445 :
1446 : #define VUXD_ENABLED 1
1447 :
1448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1449 :
1450 : #define CK_ENABLED 1
1451 :
1452 : #if CK5_ENABLED
1453 : module procedure setCFC_RUXD_VUXD_CK5
1454 : use pm_kind, only: TKC => CK5
1455 : #include "pm_sampleCor@routines.inc.F90"
1456 : end procedure
1457 : #endif
1458 :
1459 : #if CK4_ENABLED
1460 100 : module procedure setCFC_RUXD_VUXD_CK4
1461 : use pm_kind, only: TKC => CK4
1462 : #include "pm_sampleCor@routines.inc.F90"
1463 100 : end procedure
1464 : #endif
1465 :
1466 : #if CK3_ENABLED
1467 100 : module procedure setCFC_RUXD_VUXD_CK3
1468 : use pm_kind, only: TKC => CK3
1469 : #include "pm_sampleCor@routines.inc.F90"
1470 100 : end procedure
1471 : #endif
1472 :
1473 : #if CK2_ENABLED
1474 100 : module procedure setCFC_RUXD_VUXD_CK2
1475 : use pm_kind, only: TKC => CK2
1476 : #include "pm_sampleCor@routines.inc.F90"
1477 100 : end procedure
1478 : #endif
1479 :
1480 : #if CK1_ENABLED
1481 100 : module procedure setCFC_RUXD_VUXD_CK1
1482 : use pm_kind, only: TKC => CK1
1483 : #include "pm_sampleCor@routines.inc.F90"
1484 100 : end procedure
1485 : #endif
1486 :
1487 : #undef CK_ENABLED
1488 :
1489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1490 :
1491 : #define RK_ENABLED 1
1492 :
1493 : #if RK5_ENABLED
1494 : module procedure setCFC_RUXD_VUXD_RK5
1495 : use pm_kind, only: TKC => RK5
1496 : #include "pm_sampleCor@routines.inc.F90"
1497 : end procedure
1498 : #endif
1499 :
1500 : #if RK4_ENABLED
1501 100 : module procedure setCFC_RUXD_VUXD_RK4
1502 : use pm_kind, only: TKC => RK4
1503 : #include "pm_sampleCor@routines.inc.F90"
1504 100 : end procedure
1505 : #endif
1506 :
1507 : #if RK3_ENABLED
1508 100 : module procedure setCFC_RUXD_VUXD_RK3
1509 : use pm_kind, only: TKC => RK3
1510 : #include "pm_sampleCor@routines.inc.F90"
1511 100 : end procedure
1512 : #endif
1513 :
1514 : #if RK2_ENABLED
1515 100 : module procedure setCFC_RUXD_VUXD_RK2
1516 : use pm_kind, only: TKC => RK2
1517 : #include "pm_sampleCor@routines.inc.F90"
1518 100 : end procedure
1519 : #endif
1520 :
1521 : #if RK1_ENABLED
1522 130 : module procedure setCFC_RUXD_VUXD_RK1
1523 : use pm_kind, only: TKC => RK1
1524 : #include "pm_sampleCor@routines.inc.F90"
1525 130 : end procedure
1526 : #endif
1527 :
1528 : #undef RK_ENABLED
1529 :
1530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1531 :
1532 : #undef VUXD_ENABLED
1533 :
1534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1537 :
1538 : #define VUXX_ENABLED 1
1539 :
1540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1541 :
1542 : #define CK_ENABLED 1
1543 :
1544 : #if CK5_ENABLED
1545 : module procedure setCFC_RUXD_VUXX_CK5
1546 : use pm_kind, only: TKC => CK5
1547 : #include "pm_sampleCor@routines.inc.F90"
1548 : end procedure
1549 : #endif
1550 :
1551 : #if CK4_ENABLED
1552 100 : module procedure setCFC_RUXD_VUXX_CK4
1553 : use pm_kind, only: TKC => CK4
1554 : #include "pm_sampleCor@routines.inc.F90"
1555 100 : end procedure
1556 : #endif
1557 :
1558 : #if CK3_ENABLED
1559 100 : module procedure setCFC_RUXD_VUXX_CK3
1560 : use pm_kind, only: TKC => CK3
1561 : #include "pm_sampleCor@routines.inc.F90"
1562 100 : end procedure
1563 : #endif
1564 :
1565 : #if CK2_ENABLED
1566 100 : module procedure setCFC_RUXD_VUXX_CK2
1567 : use pm_kind, only: TKC => CK2
1568 : #include "pm_sampleCor@routines.inc.F90"
1569 100 : end procedure
1570 : #endif
1571 :
1572 : #if CK1_ENABLED
1573 100 : module procedure setCFC_RUXD_VUXX_CK1
1574 : use pm_kind, only: TKC => CK1
1575 : #include "pm_sampleCor@routines.inc.F90"
1576 100 : end procedure
1577 : #endif
1578 :
1579 : #undef CK_ENABLED
1580 :
1581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1582 :
1583 : #define RK_ENABLED 1
1584 :
1585 : #if RK5_ENABLED
1586 : module procedure setCFC_RUXD_VUXX_RK5
1587 : use pm_kind, only: TKC => RK5
1588 : #include "pm_sampleCor@routines.inc.F90"
1589 : end procedure
1590 : #endif
1591 :
1592 : #if RK4_ENABLED
1593 100 : module procedure setCFC_RUXD_VUXX_RK4
1594 : use pm_kind, only: TKC => RK4
1595 : #include "pm_sampleCor@routines.inc.F90"
1596 100 : end procedure
1597 : #endif
1598 :
1599 : #if RK3_ENABLED
1600 100 : module procedure setCFC_RUXD_VUXX_RK3
1601 : use pm_kind, only: TKC => RK3
1602 : #include "pm_sampleCor@routines.inc.F90"
1603 100 : end procedure
1604 : #endif
1605 :
1606 : #if RK2_ENABLED
1607 100 : module procedure setCFC_RUXD_VUXX_RK2
1608 : use pm_kind, only: TKC => RK2
1609 : #include "pm_sampleCor@routines.inc.F90"
1610 100 : end procedure
1611 : #endif
1612 :
1613 : #if RK1_ENABLED
1614 120 : module procedure setCFC_RUXD_VUXX_RK1
1615 : use pm_kind, only: TKC => RK1
1616 : #include "pm_sampleCor@routines.inc.F90"
1617 120 : end procedure
1618 : #endif
1619 :
1620 : #undef RK_ENABLED
1621 :
1622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1623 :
1624 : #undef VUXX_ENABLED
1625 :
1626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1629 :
1630 : #define VXLX_ENABLED 1
1631 :
1632 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1633 :
1634 : #define CK_ENABLED 1
1635 :
1636 : #if CK5_ENABLED
1637 : module procedure setCFC_RUXD_VXLX_CK5
1638 : use pm_kind, only: TKC => CK5
1639 : #include "pm_sampleCor@routines.inc.F90"
1640 : end procedure
1641 : #endif
1642 :
1643 : #if CK4_ENABLED
1644 100 : module procedure setCFC_RUXD_VXLX_CK4
1645 : use pm_kind, only: TKC => CK4
1646 : #include "pm_sampleCor@routines.inc.F90"
1647 100 : end procedure
1648 : #endif
1649 :
1650 : #if CK3_ENABLED
1651 100 : module procedure setCFC_RUXD_VXLX_CK3
1652 : use pm_kind, only: TKC => CK3
1653 : #include "pm_sampleCor@routines.inc.F90"
1654 100 : end procedure
1655 : #endif
1656 :
1657 : #if CK2_ENABLED
1658 100 : module procedure setCFC_RUXD_VXLX_CK2
1659 : use pm_kind, only: TKC => CK2
1660 : #include "pm_sampleCor@routines.inc.F90"
1661 100 : end procedure
1662 : #endif
1663 :
1664 : #if CK1_ENABLED
1665 100 : module procedure setCFC_RUXD_VXLX_CK1
1666 : use pm_kind, only: TKC => CK1
1667 : #include "pm_sampleCor@routines.inc.F90"
1668 100 : end procedure
1669 : #endif
1670 :
1671 : #undef CK_ENABLED
1672 :
1673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1674 :
1675 : #define RK_ENABLED 1
1676 :
1677 : #if RK5_ENABLED
1678 : module procedure setCFC_RUXD_VXLX_RK5
1679 : use pm_kind, only: TKC => RK5
1680 : #include "pm_sampleCor@routines.inc.F90"
1681 : end procedure
1682 : #endif
1683 :
1684 : #if RK4_ENABLED
1685 100 : module procedure setCFC_RUXD_VXLX_RK4
1686 : use pm_kind, only: TKC => RK4
1687 : #include "pm_sampleCor@routines.inc.F90"
1688 100 : end procedure
1689 : #endif
1690 :
1691 : #if RK3_ENABLED
1692 100 : module procedure setCFC_RUXD_VXLX_RK3
1693 : use pm_kind, only: TKC => RK3
1694 : #include "pm_sampleCor@routines.inc.F90"
1695 100 : end procedure
1696 : #endif
1697 :
1698 : #if RK2_ENABLED
1699 100 : module procedure setCFC_RUXD_VXLX_RK2
1700 : use pm_kind, only: TKC => RK2
1701 : #include "pm_sampleCor@routines.inc.F90"
1702 100 : end procedure
1703 : #endif
1704 :
1705 : #if RK1_ENABLED
1706 120 : module procedure setCFC_RUXD_VXLX_RK1
1707 : use pm_kind, only: TKC => RK1
1708 : #include "pm_sampleCor@routines.inc.F90"
1709 120 : end procedure
1710 : #endif
1711 :
1712 : #undef RK_ENABLED
1713 :
1714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1715 :
1716 : #undef VXLX_ENABLED
1717 :
1718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1721 :
1722 : #define VXLD_ENABLED 1
1723 :
1724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1725 :
1726 : #define CK_ENABLED 1
1727 :
1728 : #if CK5_ENABLED
1729 : module procedure setCFC_RUXD_VXLD_CK5
1730 : use pm_kind, only: TKC => CK5
1731 : #include "pm_sampleCor@routines.inc.F90"
1732 : end procedure
1733 : #endif
1734 :
1735 : #if CK4_ENABLED
1736 100 : module procedure setCFC_RUXD_VXLD_CK4
1737 : use pm_kind, only: TKC => CK4
1738 : #include "pm_sampleCor@routines.inc.F90"
1739 100 : end procedure
1740 : #endif
1741 :
1742 : #if CK3_ENABLED
1743 100 : module procedure setCFC_RUXD_VXLD_CK3
1744 : use pm_kind, only: TKC => CK3
1745 : #include "pm_sampleCor@routines.inc.F90"
1746 100 : end procedure
1747 : #endif
1748 :
1749 : #if CK2_ENABLED
1750 100 : module procedure setCFC_RUXD_VXLD_CK2
1751 : use pm_kind, only: TKC => CK2
1752 : #include "pm_sampleCor@routines.inc.F90"
1753 100 : end procedure
1754 : #endif
1755 :
1756 : #if CK1_ENABLED
1757 100 : module procedure setCFC_RUXD_VXLD_CK1
1758 : use pm_kind, only: TKC => CK1
1759 : #include "pm_sampleCor@routines.inc.F90"
1760 100 : end procedure
1761 : #endif
1762 :
1763 : #undef CK_ENABLED
1764 :
1765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1766 :
1767 : #define RK_ENABLED 1
1768 :
1769 : #if RK5_ENABLED
1770 : module procedure setCFC_RUXD_VXLD_RK5
1771 : use pm_kind, only: TKC => RK5
1772 : #include "pm_sampleCor@routines.inc.F90"
1773 : end procedure
1774 : #endif
1775 :
1776 : #if RK4_ENABLED
1777 100 : module procedure setCFC_RUXD_VXLD_RK4
1778 : use pm_kind, only: TKC => RK4
1779 : #include "pm_sampleCor@routines.inc.F90"
1780 100 : end procedure
1781 : #endif
1782 :
1783 : #if RK3_ENABLED
1784 100 : module procedure setCFC_RUXD_VXLD_RK3
1785 : use pm_kind, only: TKC => RK3
1786 : #include "pm_sampleCor@routines.inc.F90"
1787 100 : end procedure
1788 : #endif
1789 :
1790 : #if RK2_ENABLED
1791 123 : module procedure setCFC_RUXD_VXLD_RK2
1792 : use pm_kind, only: TKC => RK2
1793 : #include "pm_sampleCor@routines.inc.F90"
1794 123 : end procedure
1795 : #endif
1796 :
1797 : #if RK1_ENABLED
1798 142 : module procedure setCFC_RUXD_VXLD_RK1
1799 : use pm_kind, only: TKC => RK1
1800 : #include "pm_sampleCor@routines.inc.F90"
1801 142 : end procedure
1802 : #endif
1803 :
1804 : #undef RK_ENABLED
1805 :
1806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1807 :
1808 : #undef VXLD_ENABLED
1809 :
1810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1811 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1813 :
1814 : #undef RUXD_ENABLED
1815 :
1816 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1819 :
1820 : #define RXLX_ENABLED 1
1821 :
1822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1825 :
1826 : #define VUXD_ENABLED 1
1827 :
1828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1829 :
1830 : #define CK_ENABLED 1
1831 :
1832 : #if CK5_ENABLED
1833 : module procedure setCFC_RXLX_VUXD_CK5
1834 : use pm_kind, only: TKC => CK5
1835 : #include "pm_sampleCor@routines.inc.F90"
1836 : end procedure
1837 : #endif
1838 :
1839 : #if CK4_ENABLED
1840 50 : module procedure setCFC_RXLX_VUXD_CK4
1841 : use pm_kind, only: TKC => CK4
1842 : #include "pm_sampleCor@routines.inc.F90"
1843 50 : end procedure
1844 : #endif
1845 :
1846 : #if CK3_ENABLED
1847 50 : module procedure setCFC_RXLX_VUXD_CK3
1848 : use pm_kind, only: TKC => CK3
1849 : #include "pm_sampleCor@routines.inc.F90"
1850 50 : end procedure
1851 : #endif
1852 :
1853 : #if CK2_ENABLED
1854 50 : module procedure setCFC_RXLX_VUXD_CK2
1855 : use pm_kind, only: TKC => CK2
1856 : #include "pm_sampleCor@routines.inc.F90"
1857 50 : end procedure
1858 : #endif
1859 :
1860 : #if CK1_ENABLED
1861 50 : module procedure setCFC_RXLX_VUXD_CK1
1862 : use pm_kind, only: TKC => CK1
1863 : #include "pm_sampleCor@routines.inc.F90"
1864 50 : end procedure
1865 : #endif
1866 :
1867 : #undef CK_ENABLED
1868 :
1869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1870 :
1871 : #define RK_ENABLED 1
1872 :
1873 : #if RK5_ENABLED
1874 : module procedure setCFC_RXLX_VUXD_RK5
1875 : use pm_kind, only: TKC => RK5
1876 : #include "pm_sampleCor@routines.inc.F90"
1877 : end procedure
1878 : #endif
1879 :
1880 : #if RK4_ENABLED
1881 50 : module procedure setCFC_RXLX_VUXD_RK4
1882 : use pm_kind, only: TKC => RK4
1883 : #include "pm_sampleCor@routines.inc.F90"
1884 50 : end procedure
1885 : #endif
1886 :
1887 : #if RK3_ENABLED
1888 50 : module procedure setCFC_RXLX_VUXD_RK3
1889 : use pm_kind, only: TKC => RK3
1890 : #include "pm_sampleCor@routines.inc.F90"
1891 50 : end procedure
1892 : #endif
1893 :
1894 : #if RK2_ENABLED
1895 50 : module procedure setCFC_RXLX_VUXD_RK2
1896 : use pm_kind, only: TKC => RK2
1897 : #include "pm_sampleCor@routines.inc.F90"
1898 50 : end procedure
1899 : #endif
1900 :
1901 : #if RK1_ENABLED
1902 60 : module procedure setCFC_RXLX_VUXD_RK1
1903 : use pm_kind, only: TKC => RK1
1904 : #include "pm_sampleCor@routines.inc.F90"
1905 60 : end procedure
1906 : #endif
1907 :
1908 : #undef RK_ENABLED
1909 :
1910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1911 :
1912 : #undef VUXD_ENABLED
1913 :
1914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1917 :
1918 : #define VUXX_ENABLED 1
1919 :
1920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1921 :
1922 : #define CK_ENABLED 1
1923 :
1924 : #if CK5_ENABLED
1925 : module procedure setCFC_RXLX_VUXX_CK5
1926 : use pm_kind, only: TKC => CK5
1927 : #include "pm_sampleCor@routines.inc.F90"
1928 : end procedure
1929 : #endif
1930 :
1931 : #if CK4_ENABLED
1932 50 : module procedure setCFC_RXLX_VUXX_CK4
1933 : use pm_kind, only: TKC => CK4
1934 : #include "pm_sampleCor@routines.inc.F90"
1935 50 : end procedure
1936 : #endif
1937 :
1938 : #if CK3_ENABLED
1939 50 : module procedure setCFC_RXLX_VUXX_CK3
1940 : use pm_kind, only: TKC => CK3
1941 : #include "pm_sampleCor@routines.inc.F90"
1942 50 : end procedure
1943 : #endif
1944 :
1945 : #if CK2_ENABLED
1946 50 : module procedure setCFC_RXLX_VUXX_CK2
1947 : use pm_kind, only: TKC => CK2
1948 : #include "pm_sampleCor@routines.inc.F90"
1949 50 : end procedure
1950 : #endif
1951 :
1952 : #if CK1_ENABLED
1953 50 : module procedure setCFC_RXLX_VUXX_CK1
1954 : use pm_kind, only: TKC => CK1
1955 : #include "pm_sampleCor@routines.inc.F90"
1956 50 : end procedure
1957 : #endif
1958 :
1959 : #undef CK_ENABLED
1960 :
1961 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1962 :
1963 : #define RK_ENABLED 1
1964 :
1965 : #if RK5_ENABLED
1966 : module procedure setCFC_RXLX_VUXX_RK5
1967 : use pm_kind, only: TKC => RK5
1968 : #include "pm_sampleCor@routines.inc.F90"
1969 : end procedure
1970 : #endif
1971 :
1972 : #if RK4_ENABLED
1973 50 : module procedure setCFC_RXLX_VUXX_RK4
1974 : use pm_kind, only: TKC => RK4
1975 : #include "pm_sampleCor@routines.inc.F90"
1976 50 : end procedure
1977 : #endif
1978 :
1979 : #if RK3_ENABLED
1980 50 : module procedure setCFC_RXLX_VUXX_RK3
1981 : use pm_kind, only: TKC => RK3
1982 : #include "pm_sampleCor@routines.inc.F90"
1983 50 : end procedure
1984 : #endif
1985 :
1986 : #if RK2_ENABLED
1987 50 : module procedure setCFC_RXLX_VUXX_RK2
1988 : use pm_kind, only: TKC => RK2
1989 : #include "pm_sampleCor@routines.inc.F90"
1990 50 : end procedure
1991 : #endif
1992 :
1993 : #if RK1_ENABLED
1994 60 : module procedure setCFC_RXLX_VUXX_RK1
1995 : use pm_kind, only: TKC => RK1
1996 : #include "pm_sampleCor@routines.inc.F90"
1997 60 : end procedure
1998 : #endif
1999 :
2000 : #undef RK_ENABLED
2001 :
2002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2003 :
2004 : #undef VUXX_ENABLED
2005 :
2006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2007 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2008 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2009 :
2010 : #define VXLX_ENABLED 1
2011 :
2012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2013 :
2014 : #define CK_ENABLED 1
2015 :
2016 : #if CK5_ENABLED
2017 : module procedure setCFC_RXLX_VXLX_CK5
2018 : use pm_kind, only: TKC => CK5
2019 : #include "pm_sampleCor@routines.inc.F90"
2020 : end procedure
2021 : #endif
2022 :
2023 : #if CK4_ENABLED
2024 50 : module procedure setCFC_RXLX_VXLX_CK4
2025 : use pm_kind, only: TKC => CK4
2026 : #include "pm_sampleCor@routines.inc.F90"
2027 50 : end procedure
2028 : #endif
2029 :
2030 : #if CK3_ENABLED
2031 50 : module procedure setCFC_RXLX_VXLX_CK3
2032 : use pm_kind, only: TKC => CK3
2033 : #include "pm_sampleCor@routines.inc.F90"
2034 50 : end procedure
2035 : #endif
2036 :
2037 : #if CK2_ENABLED
2038 50 : module procedure setCFC_RXLX_VXLX_CK2
2039 : use pm_kind, only: TKC => CK2
2040 : #include "pm_sampleCor@routines.inc.F90"
2041 50 : end procedure
2042 : #endif
2043 :
2044 : #if CK1_ENABLED
2045 50 : module procedure setCFC_RXLX_VXLX_CK1
2046 : use pm_kind, only: TKC => CK1
2047 : #include "pm_sampleCor@routines.inc.F90"
2048 50 : end procedure
2049 : #endif
2050 :
2051 : #undef CK_ENABLED
2052 :
2053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2054 :
2055 : #define RK_ENABLED 1
2056 :
2057 : #if RK5_ENABLED
2058 : module procedure setCFC_RXLX_VXLX_RK5
2059 : use pm_kind, only: TKC => RK5
2060 : #include "pm_sampleCor@routines.inc.F90"
2061 : end procedure
2062 : #endif
2063 :
2064 : #if RK4_ENABLED
2065 50 : module procedure setCFC_RXLX_VXLX_RK4
2066 : use pm_kind, only: TKC => RK4
2067 : #include "pm_sampleCor@routines.inc.F90"
2068 50 : end procedure
2069 : #endif
2070 :
2071 : #if RK3_ENABLED
2072 50 : module procedure setCFC_RXLX_VXLX_RK3
2073 : use pm_kind, only: TKC => RK3
2074 : #include "pm_sampleCor@routines.inc.F90"
2075 50 : end procedure
2076 : #endif
2077 :
2078 : #if RK2_ENABLED
2079 50 : module procedure setCFC_RXLX_VXLX_RK2
2080 : use pm_kind, only: TKC => RK2
2081 : #include "pm_sampleCor@routines.inc.F90"
2082 50 : end procedure
2083 : #endif
2084 :
2085 : #if RK1_ENABLED
2086 60 : module procedure setCFC_RXLX_VXLX_RK1
2087 : use pm_kind, only: TKC => RK1
2088 : #include "pm_sampleCor@routines.inc.F90"
2089 60 : end procedure
2090 : #endif
2091 :
2092 : #undef RK_ENABLED
2093 :
2094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2095 :
2096 : #undef VXLX_ENABLED
2097 :
2098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2101 :
2102 : #define VXLD_ENABLED 1
2103 :
2104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2105 :
2106 : #define CK_ENABLED 1
2107 :
2108 : #if CK5_ENABLED
2109 : module procedure setCFC_RXLX_VXLD_CK5
2110 : use pm_kind, only: TKC => CK5
2111 : #include "pm_sampleCor@routines.inc.F90"
2112 : end procedure
2113 : #endif
2114 :
2115 : #if CK4_ENABLED
2116 50 : module procedure setCFC_RXLX_VXLD_CK4
2117 : use pm_kind, only: TKC => CK4
2118 : #include "pm_sampleCor@routines.inc.F90"
2119 50 : end procedure
2120 : #endif
2121 :
2122 : #if CK3_ENABLED
2123 50 : module procedure setCFC_RXLX_VXLD_CK3
2124 : use pm_kind, only: TKC => CK3
2125 : #include "pm_sampleCor@routines.inc.F90"
2126 50 : end procedure
2127 : #endif
2128 :
2129 : #if CK2_ENABLED
2130 50 : module procedure setCFC_RXLX_VXLD_CK2
2131 : use pm_kind, only: TKC => CK2
2132 : #include "pm_sampleCor@routines.inc.F90"
2133 50 : end procedure
2134 : #endif
2135 :
2136 : #if CK1_ENABLED
2137 50 : module procedure setCFC_RXLX_VXLD_CK1
2138 : use pm_kind, only: TKC => CK1
2139 : #include "pm_sampleCor@routines.inc.F90"
2140 50 : end procedure
2141 : #endif
2142 :
2143 : #undef CK_ENABLED
2144 :
2145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2146 :
2147 : #define RK_ENABLED 1
2148 :
2149 : #if RK5_ENABLED
2150 : module procedure setCFC_RXLX_VXLD_RK5
2151 : use pm_kind, only: TKC => RK5
2152 : #include "pm_sampleCor@routines.inc.F90"
2153 : end procedure
2154 : #endif
2155 :
2156 : #if RK4_ENABLED
2157 50 : module procedure setCFC_RXLX_VXLD_RK4
2158 : use pm_kind, only: TKC => RK4
2159 : #include "pm_sampleCor@routines.inc.F90"
2160 50 : end procedure
2161 : #endif
2162 :
2163 : #if RK3_ENABLED
2164 50 : module procedure setCFC_RXLX_VXLD_RK3
2165 : use pm_kind, only: TKC => RK3
2166 : #include "pm_sampleCor@routines.inc.F90"
2167 50 : end procedure
2168 : #endif
2169 :
2170 : #if RK2_ENABLED
2171 50 : module procedure setCFC_RXLX_VXLD_RK2
2172 : use pm_kind, only: TKC => RK2
2173 : #include "pm_sampleCor@routines.inc.F90"
2174 50 : end procedure
2175 : #endif
2176 :
2177 : #if RK1_ENABLED
2178 60 : module procedure setCFC_RXLX_VXLD_RK1
2179 : use pm_kind, only: TKC => RK1
2180 : #include "pm_sampleCor@routines.inc.F90"
2181 60 : end procedure
2182 : #endif
2183 :
2184 : #undef RK_ENABLED
2185 :
2186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2187 :
2188 : #undef VXLD_ENABLED
2189 :
2190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2193 :
2194 : #undef RXLX_ENABLED
2195 :
2196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2197 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2199 :
2200 : #define RXLD_ENABLED 1
2201 :
2202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2205 :
2206 : #define VUXD_ENABLED 1
2207 :
2208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2209 :
2210 : #define CK_ENABLED 1
2211 :
2212 : #if CK5_ENABLED
2213 : module procedure setCFC_RXLD_VUXD_CK5
2214 : use pm_kind, only: TKC => CK5
2215 : #include "pm_sampleCor@routines.inc.F90"
2216 : end procedure
2217 : #endif
2218 :
2219 : #if CK4_ENABLED
2220 50 : module procedure setCFC_RXLD_VUXD_CK4
2221 : use pm_kind, only: TKC => CK4
2222 : #include "pm_sampleCor@routines.inc.F90"
2223 50 : end procedure
2224 : #endif
2225 :
2226 : #if CK3_ENABLED
2227 50 : module procedure setCFC_RXLD_VUXD_CK3
2228 : use pm_kind, only: TKC => CK3
2229 : #include "pm_sampleCor@routines.inc.F90"
2230 50 : end procedure
2231 : #endif
2232 :
2233 : #if CK2_ENABLED
2234 50 : module procedure setCFC_RXLD_VUXD_CK2
2235 : use pm_kind, only: TKC => CK2
2236 : #include "pm_sampleCor@routines.inc.F90"
2237 50 : end procedure
2238 : #endif
2239 :
2240 : #if CK1_ENABLED
2241 50 : module procedure setCFC_RXLD_VUXD_CK1
2242 : use pm_kind, only: TKC => CK1
2243 : #include "pm_sampleCor@routines.inc.F90"
2244 50 : end procedure
2245 : #endif
2246 :
2247 : #undef CK_ENABLED
2248 :
2249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2250 :
2251 : #define RK_ENABLED 1
2252 :
2253 : #if RK5_ENABLED
2254 : module procedure setCFC_RXLD_VUXD_RK5
2255 : use pm_kind, only: TKC => RK5
2256 : #include "pm_sampleCor@routines.inc.F90"
2257 : end procedure
2258 : #endif
2259 :
2260 : #if RK4_ENABLED
2261 50 : module procedure setCFC_RXLD_VUXD_RK4
2262 : use pm_kind, only: TKC => RK4
2263 : #include "pm_sampleCor@routines.inc.F90"
2264 50 : end procedure
2265 : #endif
2266 :
2267 : #if RK3_ENABLED
2268 50 : module procedure setCFC_RXLD_VUXD_RK3
2269 : use pm_kind, only: TKC => RK3
2270 : #include "pm_sampleCor@routines.inc.F90"
2271 50 : end procedure
2272 : #endif
2273 :
2274 : #if RK2_ENABLED
2275 50 : module procedure setCFC_RXLD_VUXD_RK2
2276 : use pm_kind, only: TKC => RK2
2277 : #include "pm_sampleCor@routines.inc.F90"
2278 50 : end procedure
2279 : #endif
2280 :
2281 : #if RK1_ENABLED
2282 60 : module procedure setCFC_RXLD_VUXD_RK1
2283 : use pm_kind, only: TKC => RK1
2284 : #include "pm_sampleCor@routines.inc.F90"
2285 60 : end procedure
2286 : #endif
2287 :
2288 : #undef RK_ENABLED
2289 :
2290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2291 :
2292 : #undef VUXD_ENABLED
2293 :
2294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2297 :
2298 : #define VUXX_ENABLED 1
2299 :
2300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2301 :
2302 : #define CK_ENABLED 1
2303 :
2304 : #if CK5_ENABLED
2305 : module procedure setCFC_RXLD_VUXX_CK5
2306 : use pm_kind, only: TKC => CK5
2307 : #include "pm_sampleCor@routines.inc.F90"
2308 : end procedure
2309 : #endif
2310 :
2311 : #if CK4_ENABLED
2312 50 : module procedure setCFC_RXLD_VUXX_CK4
2313 : use pm_kind, only: TKC => CK4
2314 : #include "pm_sampleCor@routines.inc.F90"
2315 50 : end procedure
2316 : #endif
2317 :
2318 : #if CK3_ENABLED
2319 50 : module procedure setCFC_RXLD_VUXX_CK3
2320 : use pm_kind, only: TKC => CK3
2321 : #include "pm_sampleCor@routines.inc.F90"
2322 50 : end procedure
2323 : #endif
2324 :
2325 : #if CK2_ENABLED
2326 50 : module procedure setCFC_RXLD_VUXX_CK2
2327 : use pm_kind, only: TKC => CK2
2328 : #include "pm_sampleCor@routines.inc.F90"
2329 50 : end procedure
2330 : #endif
2331 :
2332 : #if CK1_ENABLED
2333 50 : module procedure setCFC_RXLD_VUXX_CK1
2334 : use pm_kind, only: TKC => CK1
2335 : #include "pm_sampleCor@routines.inc.F90"
2336 50 : end procedure
2337 : #endif
2338 :
2339 : #undef CK_ENABLED
2340 :
2341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2342 :
2343 : #define RK_ENABLED 1
2344 :
2345 : #if RK5_ENABLED
2346 : module procedure setCFC_RXLD_VUXX_RK5
2347 : use pm_kind, only: TKC => RK5
2348 : #include "pm_sampleCor@routines.inc.F90"
2349 : end procedure
2350 : #endif
2351 :
2352 : #if RK4_ENABLED
2353 50 : module procedure setCFC_RXLD_VUXX_RK4
2354 : use pm_kind, only: TKC => RK4
2355 : #include "pm_sampleCor@routines.inc.F90"
2356 50 : end procedure
2357 : #endif
2358 :
2359 : #if RK3_ENABLED
2360 50 : module procedure setCFC_RXLD_VUXX_RK3
2361 : use pm_kind, only: TKC => RK3
2362 : #include "pm_sampleCor@routines.inc.F90"
2363 50 : end procedure
2364 : #endif
2365 :
2366 : #if RK2_ENABLED
2367 50 : module procedure setCFC_RXLD_VUXX_RK2
2368 : use pm_kind, only: TKC => RK2
2369 : #include "pm_sampleCor@routines.inc.F90"
2370 50 : end procedure
2371 : #endif
2372 :
2373 : #if RK1_ENABLED
2374 60 : module procedure setCFC_RXLD_VUXX_RK1
2375 : use pm_kind, only: TKC => RK1
2376 : #include "pm_sampleCor@routines.inc.F90"
2377 60 : end procedure
2378 : #endif
2379 :
2380 : #undef RK_ENABLED
2381 :
2382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2383 :
2384 : #undef VUXX_ENABLED
2385 :
2386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2389 :
2390 : #define VXLX_ENABLED 1
2391 :
2392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2393 :
2394 : #define CK_ENABLED 1
2395 :
2396 : #if CK5_ENABLED
2397 : module procedure setCFC_RXLD_VXLX_CK5
2398 : use pm_kind, only: TKC => CK5
2399 : #include "pm_sampleCor@routines.inc.F90"
2400 : end procedure
2401 : #endif
2402 :
2403 : #if CK4_ENABLED
2404 50 : module procedure setCFC_RXLD_VXLX_CK4
2405 : use pm_kind, only: TKC => CK4
2406 : #include "pm_sampleCor@routines.inc.F90"
2407 50 : end procedure
2408 : #endif
2409 :
2410 : #if CK3_ENABLED
2411 50 : module procedure setCFC_RXLD_VXLX_CK3
2412 : use pm_kind, only: TKC => CK3
2413 : #include "pm_sampleCor@routines.inc.F90"
2414 50 : end procedure
2415 : #endif
2416 :
2417 : #if CK2_ENABLED
2418 50 : module procedure setCFC_RXLD_VXLX_CK2
2419 : use pm_kind, only: TKC => CK2
2420 : #include "pm_sampleCor@routines.inc.F90"
2421 50 : end procedure
2422 : #endif
2423 :
2424 : #if CK1_ENABLED
2425 50 : module procedure setCFC_RXLD_VXLX_CK1
2426 : use pm_kind, only: TKC => CK1
2427 : #include "pm_sampleCor@routines.inc.F90"
2428 50 : end procedure
2429 : #endif
2430 :
2431 : #undef CK_ENABLED
2432 :
2433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2434 :
2435 : #define RK_ENABLED 1
2436 :
2437 : #if RK5_ENABLED
2438 : module procedure setCFC_RXLD_VXLX_RK5
2439 : use pm_kind, only: TKC => RK5
2440 : #include "pm_sampleCor@routines.inc.F90"
2441 : end procedure
2442 : #endif
2443 :
2444 : #if RK4_ENABLED
2445 50 : module procedure setCFC_RXLD_VXLX_RK4
2446 : use pm_kind, only: TKC => RK4
2447 : #include "pm_sampleCor@routines.inc.F90"
2448 50 : end procedure
2449 : #endif
2450 :
2451 : #if RK3_ENABLED
2452 50 : module procedure setCFC_RXLD_VXLX_RK3
2453 : use pm_kind, only: TKC => RK3
2454 : #include "pm_sampleCor@routines.inc.F90"
2455 50 : end procedure
2456 : #endif
2457 :
2458 : #if RK2_ENABLED
2459 50 : module procedure setCFC_RXLD_VXLX_RK2
2460 : use pm_kind, only: TKC => RK2
2461 : #include "pm_sampleCor@routines.inc.F90"
2462 50 : end procedure
2463 : #endif
2464 :
2465 : #if RK1_ENABLED
2466 60 : module procedure setCFC_RXLD_VXLX_RK1
2467 : use pm_kind, only: TKC => RK1
2468 : #include "pm_sampleCor@routines.inc.F90"
2469 60 : end procedure
2470 : #endif
2471 :
2472 : #undef RK_ENABLED
2473 :
2474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2475 :
2476 : #undef VXLX_ENABLED
2477 :
2478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2481 :
2482 : #define VXLD_ENABLED 1
2483 :
2484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2485 :
2486 : #define CK_ENABLED 1
2487 :
2488 : #if CK5_ENABLED
2489 : module procedure setCFC_RXLD_VXLD_CK5
2490 : use pm_kind, only: TKC => CK5
2491 : #include "pm_sampleCor@routines.inc.F90"
2492 : end procedure
2493 : #endif
2494 :
2495 : #if CK4_ENABLED
2496 50 : module procedure setCFC_RXLD_VXLD_CK4
2497 : use pm_kind, only: TKC => CK4
2498 : #include "pm_sampleCor@routines.inc.F90"
2499 50 : end procedure
2500 : #endif
2501 :
2502 : #if CK3_ENABLED
2503 50 : module procedure setCFC_RXLD_VXLD_CK3
2504 : use pm_kind, only: TKC => CK3
2505 : #include "pm_sampleCor@routines.inc.F90"
2506 50 : end procedure
2507 : #endif
2508 :
2509 : #if CK2_ENABLED
2510 50 : module procedure setCFC_RXLD_VXLD_CK2
2511 : use pm_kind, only: TKC => CK2
2512 : #include "pm_sampleCor@routines.inc.F90"
2513 50 : end procedure
2514 : #endif
2515 :
2516 : #if CK1_ENABLED
2517 50 : module procedure setCFC_RXLD_VXLD_CK1
2518 : use pm_kind, only: TKC => CK1
2519 : #include "pm_sampleCor@routines.inc.F90"
2520 50 : end procedure
2521 : #endif
2522 :
2523 : #undef CK_ENABLED
2524 :
2525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2526 :
2527 : #define RK_ENABLED 1
2528 :
2529 : #if RK5_ENABLED
2530 : module procedure setCFC_RXLD_VXLD_RK5
2531 : use pm_kind, only: TKC => RK5
2532 : #include "pm_sampleCor@routines.inc.F90"
2533 : end procedure
2534 : #endif
2535 :
2536 : #if RK4_ENABLED
2537 50 : module procedure setCFC_RXLD_VXLD_RK4
2538 : use pm_kind, only: TKC => RK4
2539 : #include "pm_sampleCor@routines.inc.F90"
2540 50 : end procedure
2541 : #endif
2542 :
2543 : #if RK3_ENABLED
2544 50 : module procedure setCFC_RXLD_VXLD_RK3
2545 : use pm_kind, only: TKC => RK3
2546 : #include "pm_sampleCor@routines.inc.F90"
2547 50 : end procedure
2548 : #endif
2549 :
2550 : #if RK2_ENABLED
2551 50 : module procedure setCFC_RXLD_VXLD_RK2
2552 : use pm_kind, only: TKC => RK2
2553 : #include "pm_sampleCor@routines.inc.F90"
2554 50 : end procedure
2555 : #endif
2556 :
2557 : #if RK1_ENABLED
2558 60 : module procedure setCFC_RXLD_VXLD_RK1
2559 : use pm_kind, only: TKC => RK1
2560 : #include "pm_sampleCor@routines.inc.F90"
2561 60 : end procedure
2562 : #endif
2563 :
2564 : #undef RK_ENABLED
2565 :
2566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2567 :
2568 : #undef VXLD_ENABLED
2569 :
2570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2573 :
2574 : #undef RXLD_ENABLED
2575 :
2576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2579 :
2580 : #undef CFC_ENABLED
2581 :
2582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2585 :
2586 : #undef setCor_ENABLED
2587 :
2588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2589 :
2590 : #define setCor_ENABLED 1
2591 :
2592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2594 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2595 :
2596 : #define Prs_ENABLED 1
2597 :
2598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2600 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2601 :
2602 : #define XY_ENABLED 1
2603 :
2604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2607 :
2608 : #define WNO_ENABLED 1
2609 :
2610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2613 :
2614 : #define Avg_ENABLED 1
2615 :
2616 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2617 :
2618 : #define CK_ENABLED 1
2619 :
2620 : #if CK5_ENABLED
2621 : module procedure setPrsAvgWNO_XY_CK5
2622 : use pm_kind, only: TKC => CK5
2623 : #include "pm_sampleCor@routines.inc.F90"
2624 : end procedure
2625 : #endif
2626 :
2627 : #if CK4_ENABLED
2628 150 : module procedure setPrsAvgWNO_XY_CK4
2629 : use pm_kind, only: TKC => CK4
2630 : #include "pm_sampleCor@routines.inc.F90"
2631 150 : end procedure
2632 : #endif
2633 :
2634 : #if CK3_ENABLED
2635 150 : module procedure setPrsAvgWNO_XY_CK3
2636 : use pm_kind, only: TKC => CK3
2637 : #include "pm_sampleCor@routines.inc.F90"
2638 150 : end procedure
2639 : #endif
2640 :
2641 : #if CK2_ENABLED
2642 150 : module procedure setPrsAvgWNO_XY_CK2
2643 : use pm_kind, only: TKC => CK2
2644 : #include "pm_sampleCor@routines.inc.F90"
2645 150 : end procedure
2646 : #endif
2647 :
2648 : #if CK1_ENABLED
2649 150 : module procedure setPrsAvgWNO_XY_CK1
2650 : use pm_kind, only: TKC => CK1
2651 : #include "pm_sampleCor@routines.inc.F90"
2652 150 : end procedure
2653 : #endif
2654 :
2655 : #undef CK_ENABLED
2656 :
2657 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2658 :
2659 : #define RK_ENABLED 1
2660 :
2661 : #if RK5_ENABLED
2662 : module procedure setPrsAvgWNO_XY_RK5
2663 : use pm_kind, only: TKC => RK5
2664 : #include "pm_sampleCor@routines.inc.F90"
2665 : end procedure
2666 : #endif
2667 :
2668 : #if RK4_ENABLED
2669 150 : module procedure setPrsAvgWNO_XY_RK4
2670 : use pm_kind, only: TKC => RK4
2671 : #include "pm_sampleCor@routines.inc.F90"
2672 150 : end procedure
2673 : #endif
2674 :
2675 : #if RK3_ENABLED
2676 150 : module procedure setPrsAvgWNO_XY_RK3
2677 : use pm_kind, only: TKC => RK3
2678 : #include "pm_sampleCor@routines.inc.F90"
2679 150 : end procedure
2680 : #endif
2681 :
2682 : #if RK2_ENABLED
2683 2555 : module procedure setPrsAvgWNO_XY_RK2
2684 : use pm_kind, only: TKC => RK2
2685 : #include "pm_sampleCor@routines.inc.F90"
2686 2555 : end procedure
2687 : #endif
2688 :
2689 : #if RK1_ENABLED
2690 152 : module procedure setPrsAvgWNO_XY_RK1
2691 : use pm_kind, only: TKC => RK1
2692 : #include "pm_sampleCor@routines.inc.F90"
2693 152 : end procedure
2694 : #endif
2695 :
2696 : #undef RK_ENABLED
2697 :
2698 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2699 :
2700 : #undef Avg_ENABLED
2701 :
2702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2703 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2704 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2705 :
2706 : #define Org_ENABLED 1
2707 :
2708 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2709 :
2710 : #define CK_ENABLED 1
2711 :
2712 : #if CK5_ENABLED
2713 : module procedure setPrsOrgWNO_XY_CK5
2714 : use pm_kind, only: TKC => CK5
2715 : #include "pm_sampleCor@routines.inc.F90"
2716 : end procedure
2717 : #endif
2718 :
2719 : #if CK4_ENABLED
2720 50 : module procedure setPrsOrgWNO_XY_CK4
2721 : use pm_kind, only: TKC => CK4
2722 : #include "pm_sampleCor@routines.inc.F90"
2723 50 : end procedure
2724 : #endif
2725 :
2726 : #if CK3_ENABLED
2727 50 : module procedure setPrsOrgWNO_XY_CK3
2728 : use pm_kind, only: TKC => CK3
2729 : #include "pm_sampleCor@routines.inc.F90"
2730 50 : end procedure
2731 : #endif
2732 :
2733 : #if CK2_ENABLED
2734 50 : module procedure setPrsOrgWNO_XY_CK2
2735 : use pm_kind, only: TKC => CK2
2736 : #include "pm_sampleCor@routines.inc.F90"
2737 50 : end procedure
2738 : #endif
2739 :
2740 : #if CK1_ENABLED
2741 50 : module procedure setPrsOrgWNO_XY_CK1
2742 : use pm_kind, only: TKC => CK1
2743 : #include "pm_sampleCor@routines.inc.F90"
2744 50 : end procedure
2745 : #endif
2746 :
2747 : #undef CK_ENABLED
2748 :
2749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2750 :
2751 : #define RK_ENABLED 1
2752 :
2753 : #if RK5_ENABLED
2754 : module procedure setPrsOrgWNO_XY_RK5
2755 : use pm_kind, only: TKC => RK5
2756 : #include "pm_sampleCor@routines.inc.F90"
2757 : end procedure
2758 : #endif
2759 :
2760 : #if RK4_ENABLED
2761 50 : module procedure setPrsOrgWNO_XY_RK4
2762 : use pm_kind, only: TKC => RK4
2763 : #include "pm_sampleCor@routines.inc.F90"
2764 50 : end procedure
2765 : #endif
2766 :
2767 : #if RK3_ENABLED
2768 50 : module procedure setPrsOrgWNO_XY_RK3
2769 : use pm_kind, only: TKC => RK3
2770 : #include "pm_sampleCor@routines.inc.F90"
2771 50 : end procedure
2772 : #endif
2773 :
2774 : #if RK2_ENABLED
2775 50 : module procedure setPrsOrgWNO_XY_RK2
2776 : use pm_kind, only: TKC => RK2
2777 : #include "pm_sampleCor@routines.inc.F90"
2778 50 : end procedure
2779 : #endif
2780 :
2781 : #if RK1_ENABLED
2782 51 : module procedure setPrsOrgWNO_XY_RK1
2783 : use pm_kind, only: TKC => RK1
2784 : #include "pm_sampleCor@routines.inc.F90"
2785 51 : end procedure
2786 : #endif
2787 :
2788 : #undef RK_ENABLED
2789 :
2790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2791 :
2792 : #undef Org_ENABLED
2793 :
2794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2797 :
2798 : #undef WNO_ENABLED
2799 :
2800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2803 :
2804 : #define WTI_ENABLED 1
2805 :
2806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2809 :
2810 : #define Avg_ENABLED 1
2811 :
2812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2813 :
2814 : #define CK_ENABLED 1
2815 :
2816 : #if CK5_ENABLED
2817 : module procedure setPrsAvgWTI_XY_CK5
2818 : use pm_kind, only: TKC => CK5
2819 : #include "pm_sampleCor@routines.inc.F90"
2820 : end procedure
2821 : #endif
2822 :
2823 : #if CK4_ENABLED
2824 150 : module procedure setPrsAvgWTI_XY_CK4
2825 : use pm_kind, only: TKC => CK4
2826 : #include "pm_sampleCor@routines.inc.F90"
2827 150 : end procedure
2828 : #endif
2829 :
2830 : #if CK3_ENABLED
2831 150 : module procedure setPrsAvgWTI_XY_CK3
2832 : use pm_kind, only: TKC => CK3
2833 : #include "pm_sampleCor@routines.inc.F90"
2834 150 : end procedure
2835 : #endif
2836 :
2837 : #if CK2_ENABLED
2838 150 : module procedure setPrsAvgWTI_XY_CK2
2839 : use pm_kind, only: TKC => CK2
2840 : #include "pm_sampleCor@routines.inc.F90"
2841 150 : end procedure
2842 : #endif
2843 :
2844 : #if CK1_ENABLED
2845 150 : module procedure setPrsAvgWTI_XY_CK1
2846 : use pm_kind, only: TKC => CK1
2847 : #include "pm_sampleCor@routines.inc.F90"
2848 150 : end procedure
2849 : #endif
2850 :
2851 : #undef CK_ENABLED
2852 :
2853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2854 :
2855 : #define RK_ENABLED 1
2856 :
2857 : #if RK5_ENABLED
2858 : module procedure setPrsAvgWTI_XY_RK5
2859 : use pm_kind, only: TKC => RK5
2860 : #include "pm_sampleCor@routines.inc.F90"
2861 : end procedure
2862 : #endif
2863 :
2864 : #if RK4_ENABLED
2865 150 : module procedure setPrsAvgWTI_XY_RK4
2866 : use pm_kind, only: TKC => RK4
2867 : #include "pm_sampleCor@routines.inc.F90"
2868 150 : end procedure
2869 : #endif
2870 :
2871 : #if RK3_ENABLED
2872 150 : module procedure setPrsAvgWTI_XY_RK3
2873 : use pm_kind, only: TKC => RK3
2874 : #include "pm_sampleCor@routines.inc.F90"
2875 150 : end procedure
2876 : #endif
2877 :
2878 : #if RK2_ENABLED
2879 1352 : module procedure setPrsAvgWTI_XY_RK2
2880 : use pm_kind, only: TKC => RK2
2881 : #include "pm_sampleCor@routines.inc.F90"
2882 1352 : end procedure
2883 : #endif
2884 :
2885 : #if RK1_ENABLED
2886 152 : module procedure setPrsAvgWTI_XY_RK1
2887 : use pm_kind, only: TKC => RK1
2888 : #include "pm_sampleCor@routines.inc.F90"
2889 152 : end procedure
2890 : #endif
2891 :
2892 : #undef RK_ENABLED
2893 :
2894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2895 :
2896 : #undef Avg_ENABLED
2897 :
2898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2901 :
2902 : #define Org_ENABLED 1
2903 :
2904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2905 :
2906 : #define CK_ENABLED 1
2907 :
2908 : #if CK5_ENABLED
2909 : module procedure setPrsOrgWTI_XY_CK5
2910 : use pm_kind, only: TKC => CK5
2911 : #include "pm_sampleCor@routines.inc.F90"
2912 : end procedure
2913 : #endif
2914 :
2915 : #if CK4_ENABLED
2916 50 : module procedure setPrsOrgWTI_XY_CK4
2917 : use pm_kind, only: TKC => CK4
2918 : #include "pm_sampleCor@routines.inc.F90"
2919 50 : end procedure
2920 : #endif
2921 :
2922 : #if CK3_ENABLED
2923 50 : module procedure setPrsOrgWTI_XY_CK3
2924 : use pm_kind, only: TKC => CK3
2925 : #include "pm_sampleCor@routines.inc.F90"
2926 50 : end procedure
2927 : #endif
2928 :
2929 : #if CK2_ENABLED
2930 50 : module procedure setPrsOrgWTI_XY_CK2
2931 : use pm_kind, only: TKC => CK2
2932 : #include "pm_sampleCor@routines.inc.F90"
2933 50 : end procedure
2934 : #endif
2935 :
2936 : #if CK1_ENABLED
2937 50 : module procedure setPrsOrgWTI_XY_CK1
2938 : use pm_kind, only: TKC => CK1
2939 : #include "pm_sampleCor@routines.inc.F90"
2940 50 : end procedure
2941 : #endif
2942 :
2943 : #undef CK_ENABLED
2944 :
2945 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2946 :
2947 : #define RK_ENABLED 1
2948 :
2949 : #if RK5_ENABLED
2950 : module procedure setPrsOrgWTI_XY_RK5
2951 : use pm_kind, only: TKC => RK5
2952 : #include "pm_sampleCor@routines.inc.F90"
2953 : end procedure
2954 : #endif
2955 :
2956 : #if RK4_ENABLED
2957 50 : module procedure setPrsOrgWTI_XY_RK4
2958 : use pm_kind, only: TKC => RK4
2959 : #include "pm_sampleCor@routines.inc.F90"
2960 50 : end procedure
2961 : #endif
2962 :
2963 : #if RK3_ENABLED
2964 50 : module procedure setPrsOrgWTI_XY_RK3
2965 : use pm_kind, only: TKC => RK3
2966 : #include "pm_sampleCor@routines.inc.F90"
2967 50 : end procedure
2968 : #endif
2969 :
2970 : #if RK2_ENABLED
2971 50 : module procedure setPrsOrgWTI_XY_RK2
2972 : use pm_kind, only: TKC => RK2
2973 : #include "pm_sampleCor@routines.inc.F90"
2974 50 : end procedure
2975 : #endif
2976 :
2977 : #if RK1_ENABLED
2978 51 : module procedure setPrsOrgWTI_XY_RK1
2979 : use pm_kind, only: TKC => RK1
2980 : #include "pm_sampleCor@routines.inc.F90"
2981 51 : end procedure
2982 : #endif
2983 :
2984 : #undef RK_ENABLED
2985 :
2986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2987 :
2988 : #undef Org_ENABLED
2989 :
2990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2993 :
2994 : #undef WTI_ENABLED
2995 :
2996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2999 :
3000 : #define WTR_ENABLED 1
3001 :
3002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3003 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3005 :
3006 : #define Avg_ENABLED 1
3007 :
3008 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3009 :
3010 : #define CK_ENABLED 1
3011 :
3012 : #if CK5_ENABLED
3013 : module procedure setPrsAvgWTR_XY_CK5
3014 : use pm_kind, only: TKC => CK5
3015 : #include "pm_sampleCor@routines.inc.F90"
3016 : end procedure
3017 : #endif
3018 :
3019 : #if CK4_ENABLED
3020 150 : module procedure setPrsAvgWTR_XY_CK4
3021 : use pm_kind, only: TKC => CK4
3022 : #include "pm_sampleCor@routines.inc.F90"
3023 150 : end procedure
3024 : #endif
3025 :
3026 : #if CK3_ENABLED
3027 150 : module procedure setPrsAvgWTR_XY_CK3
3028 : use pm_kind, only: TKC => CK3
3029 : #include "pm_sampleCor@routines.inc.F90"
3030 150 : end procedure
3031 : #endif
3032 :
3033 : #if CK2_ENABLED
3034 150 : module procedure setPrsAvgWTR_XY_CK2
3035 : use pm_kind, only: TKC => CK2
3036 : #include "pm_sampleCor@routines.inc.F90"
3037 150 : end procedure
3038 : #endif
3039 :
3040 : #if CK1_ENABLED
3041 150 : module procedure setPrsAvgWTR_XY_CK1
3042 : use pm_kind, only: TKC => CK1
3043 : #include "pm_sampleCor@routines.inc.F90"
3044 150 : end procedure
3045 : #endif
3046 :
3047 : #undef CK_ENABLED
3048 :
3049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3050 :
3051 : #define RK_ENABLED 1
3052 :
3053 : #if RK5_ENABLED
3054 : module procedure setPrsAvgWTR_XY_RK5
3055 : use pm_kind, only: TKC => RK5
3056 : #include "pm_sampleCor@routines.inc.F90"
3057 : end procedure
3058 : #endif
3059 :
3060 : #if RK4_ENABLED
3061 150 : module procedure setPrsAvgWTR_XY_RK4
3062 : use pm_kind, only: TKC => RK4
3063 : #include "pm_sampleCor@routines.inc.F90"
3064 150 : end procedure
3065 : #endif
3066 :
3067 : #if RK3_ENABLED
3068 150 : module procedure setPrsAvgWTR_XY_RK3
3069 : use pm_kind, only: TKC => RK3
3070 : #include "pm_sampleCor@routines.inc.F90"
3071 150 : end procedure
3072 : #endif
3073 :
3074 : #if RK2_ENABLED
3075 3752 : module procedure setPrsAvgWTR_XY_RK2
3076 : use pm_kind, only: TKC => RK2
3077 : #include "pm_sampleCor@routines.inc.F90"
3078 3752 : end procedure
3079 : #endif
3080 :
3081 : #if RK1_ENABLED
3082 152 : module procedure setPrsAvgWTR_XY_RK1
3083 : use pm_kind, only: TKC => RK1
3084 : #include "pm_sampleCor@routines.inc.F90"
3085 152 : end procedure
3086 : #endif
3087 :
3088 : #undef RK_ENABLED
3089 :
3090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3091 :
3092 : #undef Avg_ENABLED
3093 :
3094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3097 :
3098 : #define Org_ENABLED 1
3099 :
3100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3101 :
3102 : #define CK_ENABLED 1
3103 :
3104 : #if CK5_ENABLED
3105 : module procedure setPrsOrgWTR_XY_CK5
3106 : use pm_kind, only: TKC => CK5
3107 : #include "pm_sampleCor@routines.inc.F90"
3108 : end procedure
3109 : #endif
3110 :
3111 : #if CK4_ENABLED
3112 50 : module procedure setPrsOrgWTR_XY_CK4
3113 : use pm_kind, only: TKC => CK4
3114 : #include "pm_sampleCor@routines.inc.F90"
3115 50 : end procedure
3116 : #endif
3117 :
3118 : #if CK3_ENABLED
3119 50 : module procedure setPrsOrgWTR_XY_CK3
3120 : use pm_kind, only: TKC => CK3
3121 : #include "pm_sampleCor@routines.inc.F90"
3122 50 : end procedure
3123 : #endif
3124 :
3125 : #if CK2_ENABLED
3126 50 : module procedure setPrsOrgWTR_XY_CK2
3127 : use pm_kind, only: TKC => CK2
3128 : #include "pm_sampleCor@routines.inc.F90"
3129 50 : end procedure
3130 : #endif
3131 :
3132 : #if CK1_ENABLED
3133 50 : module procedure setPrsOrgWTR_XY_CK1
3134 : use pm_kind, only: TKC => CK1
3135 : #include "pm_sampleCor@routines.inc.F90"
3136 50 : end procedure
3137 : #endif
3138 :
3139 : #undef CK_ENABLED
3140 :
3141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3142 :
3143 : #define RK_ENABLED 1
3144 :
3145 : #if RK5_ENABLED
3146 : module procedure setPrsOrgWTR_XY_RK5
3147 : use pm_kind, only: TKC => RK5
3148 : #include "pm_sampleCor@routines.inc.F90"
3149 : end procedure
3150 : #endif
3151 :
3152 : #if RK4_ENABLED
3153 50 : module procedure setPrsOrgWTR_XY_RK4
3154 : use pm_kind, only: TKC => RK4
3155 : #include "pm_sampleCor@routines.inc.F90"
3156 50 : end procedure
3157 : #endif
3158 :
3159 : #if RK3_ENABLED
3160 50 : module procedure setPrsOrgWTR_XY_RK3
3161 : use pm_kind, only: TKC => RK3
3162 : #include "pm_sampleCor@routines.inc.F90"
3163 50 : end procedure
3164 : #endif
3165 :
3166 : #if RK2_ENABLED
3167 50 : module procedure setPrsOrgWTR_XY_RK2
3168 : use pm_kind, only: TKC => RK2
3169 : #include "pm_sampleCor@routines.inc.F90"
3170 50 : end procedure
3171 : #endif
3172 :
3173 : #if RK1_ENABLED
3174 51 : module procedure setPrsOrgWTR_XY_RK1
3175 : use pm_kind, only: TKC => RK1
3176 : #include "pm_sampleCor@routines.inc.F90"
3177 51 : end procedure
3178 : #endif
3179 :
3180 : #undef RK_ENABLED
3181 :
3182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3183 :
3184 : #undef Org_ENABLED
3185 :
3186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3189 :
3190 : #undef WTR_ENABLED
3191 :
3192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3195 :
3196 : #undef XY_ENABLED
3197 :
3198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3201 :
3202 : #define UXD_ENABLED 1
3203 :
3204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3207 :
3208 : #define WNO_ENABLED 1
3209 :
3210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3213 :
3214 : #define Avg_ENABLED 1
3215 :
3216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3217 :
3218 : #define CK_ENABLED 1
3219 :
3220 : #if CK5_ENABLED
3221 : module procedure setPrsAvgWNO_UXD_CK5
3222 : use pm_kind, only: TKC => CK5
3223 : #include "pm_sampleCor@routines.inc.F90"
3224 : end procedure
3225 : #endif
3226 :
3227 : #if CK4_ENABLED
3228 150 : module procedure setPrsAvgWNO_UXD_CK4
3229 : use pm_kind, only: TKC => CK4
3230 : #include "pm_sampleCor@routines.inc.F90"
3231 150 : end procedure
3232 : #endif
3233 :
3234 : #if CK3_ENABLED
3235 150 : module procedure setPrsAvgWNO_UXD_CK3
3236 : use pm_kind, only: TKC => CK3
3237 : #include "pm_sampleCor@routines.inc.F90"
3238 150 : end procedure
3239 : #endif
3240 :
3241 : #if CK2_ENABLED
3242 150 : module procedure setPrsAvgWNO_UXD_CK2
3243 : use pm_kind, only: TKC => CK2
3244 : #include "pm_sampleCor@routines.inc.F90"
3245 150 : end procedure
3246 : #endif
3247 :
3248 : #if CK1_ENABLED
3249 150 : module procedure setPrsAvgWNO_UXD_CK1
3250 : use pm_kind, only: TKC => CK1
3251 : #include "pm_sampleCor@routines.inc.F90"
3252 150 : end procedure
3253 : #endif
3254 :
3255 : #undef CK_ENABLED
3256 :
3257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3258 :
3259 : #define RK_ENABLED 1
3260 :
3261 : #if RK5_ENABLED
3262 : module procedure setPrsAvgWNO_UXD_RK5
3263 : use pm_kind, only: TKC => RK5
3264 : #include "pm_sampleCor@routines.inc.F90"
3265 : end procedure
3266 : #endif
3267 :
3268 : #if RK4_ENABLED
3269 150 : module procedure setPrsAvgWNO_UXD_RK4
3270 : use pm_kind, only: TKC => RK4
3271 : #include "pm_sampleCor@routines.inc.F90"
3272 150 : end procedure
3273 : #endif
3274 :
3275 : #if RK3_ENABLED
3276 150 : module procedure setPrsAvgWNO_UXD_RK3
3277 : use pm_kind, only: TKC => RK3
3278 : #include "pm_sampleCor@routines.inc.F90"
3279 150 : end procedure
3280 : #endif
3281 :
3282 : #if RK2_ENABLED
3283 2908 : module procedure setPrsAvgWNO_UXD_RK2
3284 : use pm_kind, only: TKC => RK2
3285 : #include "pm_sampleCor@routines.inc.F90"
3286 2908 : end procedure
3287 : #endif
3288 :
3289 : #if RK1_ENABLED
3290 154 : module procedure setPrsAvgWNO_UXD_RK1
3291 : use pm_kind, only: TKC => RK1
3292 : #include "pm_sampleCor@routines.inc.F90"
3293 154 : end procedure
3294 : #endif
3295 :
3296 : #undef RK_ENABLED
3297 :
3298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3299 :
3300 : #undef Avg_ENABLED
3301 :
3302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3305 :
3306 : #define Org_ENABLED 1
3307 :
3308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3309 :
3310 : #define CK_ENABLED 1
3311 :
3312 : #if CK5_ENABLED
3313 : module procedure setPrsOrgWNO_UXD_CK5
3314 : use pm_kind, only: TKC => CK5
3315 : #include "pm_sampleCor@routines.inc.F90"
3316 : end procedure
3317 : #endif
3318 :
3319 : #if CK4_ENABLED
3320 50 : module procedure setPrsOrgWNO_UXD_CK4
3321 : use pm_kind, only: TKC => CK4
3322 : #include "pm_sampleCor@routines.inc.F90"
3323 50 : end procedure
3324 : #endif
3325 :
3326 : #if CK3_ENABLED
3327 50 : module procedure setPrsOrgWNO_UXD_CK3
3328 : use pm_kind, only: TKC => CK3
3329 : #include "pm_sampleCor@routines.inc.F90"
3330 50 : end procedure
3331 : #endif
3332 :
3333 : #if CK2_ENABLED
3334 50 : module procedure setPrsOrgWNO_UXD_CK2
3335 : use pm_kind, only: TKC => CK2
3336 : #include "pm_sampleCor@routines.inc.F90"
3337 50 : end procedure
3338 : #endif
3339 :
3340 : #if CK1_ENABLED
3341 50 : module procedure setPrsOrgWNO_UXD_CK1
3342 : use pm_kind, only: TKC => CK1
3343 : #include "pm_sampleCor@routines.inc.F90"
3344 50 : end procedure
3345 : #endif
3346 :
3347 : #undef CK_ENABLED
3348 :
3349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3350 :
3351 : #define RK_ENABLED 1
3352 :
3353 : #if RK5_ENABLED
3354 : module procedure setPrsOrgWNO_UXD_RK5
3355 : use pm_kind, only: TKC => RK5
3356 : #include "pm_sampleCor@routines.inc.F90"
3357 : end procedure
3358 : #endif
3359 :
3360 : #if RK4_ENABLED
3361 50 : module procedure setPrsOrgWNO_UXD_RK4
3362 : use pm_kind, only: TKC => RK4
3363 : #include "pm_sampleCor@routines.inc.F90"
3364 50 : end procedure
3365 : #endif
3366 :
3367 : #if RK3_ENABLED
3368 50 : module procedure setPrsOrgWNO_UXD_RK3
3369 : use pm_kind, only: TKC => RK3
3370 : #include "pm_sampleCor@routines.inc.F90"
3371 50 : end procedure
3372 : #endif
3373 :
3374 : #if RK2_ENABLED
3375 50 : module procedure setPrsOrgWNO_UXD_RK2
3376 : use pm_kind, only: TKC => RK2
3377 : #include "pm_sampleCor@routines.inc.F90"
3378 50 : end procedure
3379 : #endif
3380 :
3381 : #if RK1_ENABLED
3382 52 : module procedure setPrsOrgWNO_UXD_RK1
3383 : use pm_kind, only: TKC => RK1
3384 : #include "pm_sampleCor@routines.inc.F90"
3385 52 : end procedure
3386 : #endif
3387 :
3388 : #undef RK_ENABLED
3389 :
3390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3391 :
3392 : #undef Org_ENABLED
3393 :
3394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3397 :
3398 : #undef WNO_ENABLED
3399 :
3400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3403 :
3404 : #define WTI_ENABLED 1
3405 :
3406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3409 :
3410 : #define Avg_ENABLED 1
3411 :
3412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3413 :
3414 : #define CK_ENABLED 1
3415 :
3416 : #if CK5_ENABLED
3417 : module procedure setPrsAvgWTI_UXD_CK5
3418 : use pm_kind, only: TKC => CK5
3419 : #include "pm_sampleCor@routines.inc.F90"
3420 : end procedure
3421 : #endif
3422 :
3423 : #if CK4_ENABLED
3424 150 : module procedure setPrsAvgWTI_UXD_CK4
3425 : use pm_kind, only: TKC => CK4
3426 : #include "pm_sampleCor@routines.inc.F90"
3427 150 : end procedure
3428 : #endif
3429 :
3430 : #if CK3_ENABLED
3431 150 : module procedure setPrsAvgWTI_UXD_CK3
3432 : use pm_kind, only: TKC => CK3
3433 : #include "pm_sampleCor@routines.inc.F90"
3434 150 : end procedure
3435 : #endif
3436 :
3437 : #if CK2_ENABLED
3438 150 : module procedure setPrsAvgWTI_UXD_CK2
3439 : use pm_kind, only: TKC => CK2
3440 : #include "pm_sampleCor@routines.inc.F90"
3441 150 : end procedure
3442 : #endif
3443 :
3444 : #if CK1_ENABLED
3445 150 : module procedure setPrsAvgWTI_UXD_CK1
3446 : use pm_kind, only: TKC => CK1
3447 : #include "pm_sampleCor@routines.inc.F90"
3448 150 : end procedure
3449 : #endif
3450 :
3451 : #undef CK_ENABLED
3452 :
3453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3454 :
3455 : #define RK_ENABLED 1
3456 :
3457 : #if RK5_ENABLED
3458 : module procedure setPrsAvgWTI_UXD_RK5
3459 : use pm_kind, only: TKC => RK5
3460 : #include "pm_sampleCor@routines.inc.F90"
3461 : end procedure
3462 : #endif
3463 :
3464 : #if RK4_ENABLED
3465 150 : module procedure setPrsAvgWTI_UXD_RK4
3466 : use pm_kind, only: TKC => RK4
3467 : #include "pm_sampleCor@routines.inc.F90"
3468 150 : end procedure
3469 : #endif
3470 :
3471 : #if RK3_ENABLED
3472 150 : module procedure setPrsAvgWTI_UXD_RK3
3473 : use pm_kind, only: TKC => RK3
3474 : #include "pm_sampleCor@routines.inc.F90"
3475 150 : end procedure
3476 : #endif
3477 :
3478 : #if RK2_ENABLED
3479 1254 : module procedure setPrsAvgWTI_UXD_RK2
3480 : use pm_kind, only: TKC => RK2
3481 : #include "pm_sampleCor@routines.inc.F90"
3482 1254 : end procedure
3483 : #endif
3484 :
3485 : #if RK1_ENABLED
3486 154 : module procedure setPrsAvgWTI_UXD_RK1
3487 : use pm_kind, only: TKC => RK1
3488 : #include "pm_sampleCor@routines.inc.F90"
3489 154 : end procedure
3490 : #endif
3491 :
3492 : #undef RK_ENABLED
3493 :
3494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3495 :
3496 : #undef Avg_ENABLED
3497 :
3498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3501 :
3502 : #define Org_ENABLED 1
3503 :
3504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3505 :
3506 : #define CK_ENABLED 1
3507 :
3508 : #if CK5_ENABLED
3509 : module procedure setPrsOrgWTI_UXD_CK5
3510 : use pm_kind, only: TKC => CK5
3511 : #include "pm_sampleCor@routines.inc.F90"
3512 : end procedure
3513 : #endif
3514 :
3515 : #if CK4_ENABLED
3516 50 : module procedure setPrsOrgWTI_UXD_CK4
3517 : use pm_kind, only: TKC => CK4
3518 : #include "pm_sampleCor@routines.inc.F90"
3519 50 : end procedure
3520 : #endif
3521 :
3522 : #if CK3_ENABLED
3523 50 : module procedure setPrsOrgWTI_UXD_CK3
3524 : use pm_kind, only: TKC => CK3
3525 : #include "pm_sampleCor@routines.inc.F90"
3526 50 : end procedure
3527 : #endif
3528 :
3529 : #if CK2_ENABLED
3530 50 : module procedure setPrsOrgWTI_UXD_CK2
3531 : use pm_kind, only: TKC => CK2
3532 : #include "pm_sampleCor@routines.inc.F90"
3533 50 : end procedure
3534 : #endif
3535 :
3536 : #if CK1_ENABLED
3537 50 : module procedure setPrsOrgWTI_UXD_CK1
3538 : use pm_kind, only: TKC => CK1
3539 : #include "pm_sampleCor@routines.inc.F90"
3540 50 : end procedure
3541 : #endif
3542 :
3543 : #undef CK_ENABLED
3544 :
3545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3546 :
3547 : #define RK_ENABLED 1
3548 :
3549 : #if RK5_ENABLED
3550 : module procedure setPrsOrgWTI_UXD_RK5
3551 : use pm_kind, only: TKC => RK5
3552 : #include "pm_sampleCor@routines.inc.F90"
3553 : end procedure
3554 : #endif
3555 :
3556 : #if RK4_ENABLED
3557 50 : module procedure setPrsOrgWTI_UXD_RK4
3558 : use pm_kind, only: TKC => RK4
3559 : #include "pm_sampleCor@routines.inc.F90"
3560 50 : end procedure
3561 : #endif
3562 :
3563 : #if RK3_ENABLED
3564 50 : module procedure setPrsOrgWTI_UXD_RK3
3565 : use pm_kind, only: TKC => RK3
3566 : #include "pm_sampleCor@routines.inc.F90"
3567 50 : end procedure
3568 : #endif
3569 :
3570 : #if RK2_ENABLED
3571 50 : module procedure setPrsOrgWTI_UXD_RK2
3572 : use pm_kind, only: TKC => RK2
3573 : #include "pm_sampleCor@routines.inc.F90"
3574 50 : end procedure
3575 : #endif
3576 :
3577 : #if RK1_ENABLED
3578 52 : module procedure setPrsOrgWTI_UXD_RK1
3579 : use pm_kind, only: TKC => RK1
3580 : #include "pm_sampleCor@routines.inc.F90"
3581 52 : end procedure
3582 : #endif
3583 :
3584 : #undef RK_ENABLED
3585 :
3586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3587 :
3588 : #undef Org_ENABLED
3589 :
3590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3593 :
3594 : #undef WTI_ENABLED
3595 :
3596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3599 :
3600 : #define WTR_ENABLED 1
3601 :
3602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3605 :
3606 : #define Avg_ENABLED 1
3607 :
3608 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3609 :
3610 : #define CK_ENABLED 1
3611 :
3612 : #if CK5_ENABLED
3613 : module procedure setPrsAvgWTR_UXD_CK5
3614 : use pm_kind, only: TKC => CK5
3615 : #include "pm_sampleCor@routines.inc.F90"
3616 : end procedure
3617 : #endif
3618 :
3619 : #if CK4_ENABLED
3620 150 : module procedure setPrsAvgWTR_UXD_CK4
3621 : use pm_kind, only: TKC => CK4
3622 : #include "pm_sampleCor@routines.inc.F90"
3623 150 : end procedure
3624 : #endif
3625 :
3626 : #if CK3_ENABLED
3627 150 : module procedure setPrsAvgWTR_UXD_CK3
3628 : use pm_kind, only: TKC => CK3
3629 : #include "pm_sampleCor@routines.inc.F90"
3630 150 : end procedure
3631 : #endif
3632 :
3633 : #if CK2_ENABLED
3634 150 : module procedure setPrsAvgWTR_UXD_CK2
3635 : use pm_kind, only: TKC => CK2
3636 : #include "pm_sampleCor@routines.inc.F90"
3637 150 : end procedure
3638 : #endif
3639 :
3640 : #if CK1_ENABLED
3641 150 : module procedure setPrsAvgWTR_UXD_CK1
3642 : use pm_kind, only: TKC => CK1
3643 : #include "pm_sampleCor@routines.inc.F90"
3644 150 : end procedure
3645 : #endif
3646 :
3647 : #undef CK_ENABLED
3648 :
3649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3650 :
3651 : #define RK_ENABLED 1
3652 :
3653 : #if RK5_ENABLED
3654 : module procedure setPrsAvgWTR_UXD_RK5
3655 : use pm_kind, only: TKC => RK5
3656 : #include "pm_sampleCor@routines.inc.F90"
3657 : end procedure
3658 : #endif
3659 :
3660 : #if RK4_ENABLED
3661 150 : module procedure setPrsAvgWTR_UXD_RK4
3662 : use pm_kind, only: TKC => RK4
3663 : #include "pm_sampleCor@routines.inc.F90"
3664 150 : end procedure
3665 : #endif
3666 :
3667 : #if RK3_ENABLED
3668 150 : module procedure setPrsAvgWTR_UXD_RK3
3669 : use pm_kind, only: TKC => RK3
3670 : #include "pm_sampleCor@routines.inc.F90"
3671 150 : end procedure
3672 : #endif
3673 :
3674 : #if RK2_ENABLED
3675 4554 : module procedure setPrsAvgWTR_UXD_RK2
3676 : use pm_kind, only: TKC => RK2
3677 : #include "pm_sampleCor@routines.inc.F90"
3678 4554 : end procedure
3679 : #endif
3680 :
3681 : #if RK1_ENABLED
3682 154 : module procedure setPrsAvgWTR_UXD_RK1
3683 : use pm_kind, only: TKC => RK1
3684 : #include "pm_sampleCor@routines.inc.F90"
3685 154 : end procedure
3686 : #endif
3687 :
3688 : #undef RK_ENABLED
3689 :
3690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3691 :
3692 : #undef Avg_ENABLED
3693 :
3694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3697 :
3698 : #define Org_ENABLED 1
3699 :
3700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3701 :
3702 : #define CK_ENABLED 1
3703 :
3704 : #if CK5_ENABLED
3705 : module procedure setPrsOrgWTR_UXD_CK5
3706 : use pm_kind, only: TKC => CK5
3707 : #include "pm_sampleCor@routines.inc.F90"
3708 : end procedure
3709 : #endif
3710 :
3711 : #if CK4_ENABLED
3712 50 : module procedure setPrsOrgWTR_UXD_CK4
3713 : use pm_kind, only: TKC => CK4
3714 : #include "pm_sampleCor@routines.inc.F90"
3715 50 : end procedure
3716 : #endif
3717 :
3718 : #if CK3_ENABLED
3719 50 : module procedure setPrsOrgWTR_UXD_CK3
3720 : use pm_kind, only: TKC => CK3
3721 : #include "pm_sampleCor@routines.inc.F90"
3722 50 : end procedure
3723 : #endif
3724 :
3725 : #if CK2_ENABLED
3726 50 : module procedure setPrsOrgWTR_UXD_CK2
3727 : use pm_kind, only: TKC => CK2
3728 : #include "pm_sampleCor@routines.inc.F90"
3729 50 : end procedure
3730 : #endif
3731 :
3732 : #if CK1_ENABLED
3733 50 : module procedure setPrsOrgWTR_UXD_CK1
3734 : use pm_kind, only: TKC => CK1
3735 : #include "pm_sampleCor@routines.inc.F90"
3736 50 : end procedure
3737 : #endif
3738 :
3739 : #undef CK_ENABLED
3740 :
3741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3742 :
3743 : #define RK_ENABLED 1
3744 :
3745 : #if RK5_ENABLED
3746 : module procedure setPrsOrgWTR_UXD_RK5
3747 : use pm_kind, only: TKC => RK5
3748 : #include "pm_sampleCor@routines.inc.F90"
3749 : end procedure
3750 : #endif
3751 :
3752 : #if RK4_ENABLED
3753 50 : module procedure setPrsOrgWTR_UXD_RK4
3754 : use pm_kind, only: TKC => RK4
3755 : #include "pm_sampleCor@routines.inc.F90"
3756 50 : end procedure
3757 : #endif
3758 :
3759 : #if RK3_ENABLED
3760 50 : module procedure setPrsOrgWTR_UXD_RK3
3761 : use pm_kind, only: TKC => RK3
3762 : #include "pm_sampleCor@routines.inc.F90"
3763 50 : end procedure
3764 : #endif
3765 :
3766 : #if RK2_ENABLED
3767 50 : module procedure setPrsOrgWTR_UXD_RK2
3768 : use pm_kind, only: TKC => RK2
3769 : #include "pm_sampleCor@routines.inc.F90"
3770 50 : end procedure
3771 : #endif
3772 :
3773 : #if RK1_ENABLED
3774 52 : module procedure setPrsOrgWTR_UXD_RK1
3775 : use pm_kind, only: TKC => RK1
3776 : #include "pm_sampleCor@routines.inc.F90"
3777 52 : end procedure
3778 : #endif
3779 :
3780 : #undef RK_ENABLED
3781 :
3782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3783 :
3784 : #undef Org_ENABLED
3785 :
3786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3789 :
3790 : #undef WTR_ENABLED
3791 :
3792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3795 :
3796 : #undef UXD_ENABLED
3797 :
3798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3799 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3801 :
3802 : #define XLD_ENABLED 1
3803 :
3804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3807 :
3808 : #define WNO_ENABLED 1
3809 :
3810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3811 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3813 :
3814 : #define Avg_ENABLED 1
3815 :
3816 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3817 :
3818 : #define CK_ENABLED 1
3819 :
3820 : #if CK5_ENABLED
3821 : module procedure setPrsAvgWNO_XLD_CK5
3822 : use pm_kind, only: TKC => CK5
3823 : #include "pm_sampleCor@routines.inc.F90"
3824 : end procedure
3825 : #endif
3826 :
3827 : #if CK4_ENABLED
3828 50 : module procedure setPrsAvgWNO_XLD_CK4
3829 : use pm_kind, only: TKC => CK4
3830 : #include "pm_sampleCor@routines.inc.F90"
3831 50 : end procedure
3832 : #endif
3833 :
3834 : #if CK3_ENABLED
3835 50 : module procedure setPrsAvgWNO_XLD_CK3
3836 : use pm_kind, only: TKC => CK3
3837 : #include "pm_sampleCor@routines.inc.F90"
3838 50 : end procedure
3839 : #endif
3840 :
3841 : #if CK2_ENABLED
3842 50 : module procedure setPrsAvgWNO_XLD_CK2
3843 : use pm_kind, only: TKC => CK2
3844 : #include "pm_sampleCor@routines.inc.F90"
3845 50 : end procedure
3846 : #endif
3847 :
3848 : #if CK1_ENABLED
3849 50 : module procedure setPrsAvgWNO_XLD_CK1
3850 : use pm_kind, only: TKC => CK1
3851 : #include "pm_sampleCor@routines.inc.F90"
3852 50 : end procedure
3853 : #endif
3854 :
3855 : #undef CK_ENABLED
3856 :
3857 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3858 :
3859 : #define RK_ENABLED 1
3860 :
3861 : #if RK5_ENABLED
3862 : module procedure setPrsAvgWNO_XLD_RK5
3863 : use pm_kind, only: TKC => RK5
3864 : #include "pm_sampleCor@routines.inc.F90"
3865 : end procedure
3866 : #endif
3867 :
3868 : #if RK4_ENABLED
3869 50 : module procedure setPrsAvgWNO_XLD_RK4
3870 : use pm_kind, only: TKC => RK4
3871 : #include "pm_sampleCor@routines.inc.F90"
3872 50 : end procedure
3873 : #endif
3874 :
3875 : #if RK3_ENABLED
3876 50 : module procedure setPrsAvgWNO_XLD_RK3
3877 : use pm_kind, only: TKC => RK3
3878 : #include "pm_sampleCor@routines.inc.F90"
3879 50 : end procedure
3880 : #endif
3881 :
3882 : #if RK2_ENABLED
3883 602 : module procedure setPrsAvgWNO_XLD_RK2
3884 : use pm_kind, only: TKC => RK2
3885 : #include "pm_sampleCor@routines.inc.F90"
3886 602 : end procedure
3887 : #endif
3888 :
3889 : #if RK1_ENABLED
3890 52 : module procedure setPrsAvgWNO_XLD_RK1
3891 : use pm_kind, only: TKC => RK1
3892 : #include "pm_sampleCor@routines.inc.F90"
3893 52 : end procedure
3894 : #endif
3895 :
3896 : #undef RK_ENABLED
3897 :
3898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3899 :
3900 : #undef Avg_ENABLED
3901 :
3902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3905 :
3906 : #define Org_ENABLED 1
3907 :
3908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3909 :
3910 : #define CK_ENABLED 1
3911 :
3912 : #if CK5_ENABLED
3913 : module procedure setPrsOrgWNO_XLD_CK5
3914 : use pm_kind, only: TKC => CK5
3915 : #include "pm_sampleCor@routines.inc.F90"
3916 : end procedure
3917 : #endif
3918 :
3919 : #if CK4_ENABLED
3920 50 : module procedure setPrsOrgWNO_XLD_CK4
3921 : use pm_kind, only: TKC => CK4
3922 : #include "pm_sampleCor@routines.inc.F90"
3923 50 : end procedure
3924 : #endif
3925 :
3926 : #if CK3_ENABLED
3927 50 : module procedure setPrsOrgWNO_XLD_CK3
3928 : use pm_kind, only: TKC => CK3
3929 : #include "pm_sampleCor@routines.inc.F90"
3930 50 : end procedure
3931 : #endif
3932 :
3933 : #if CK2_ENABLED
3934 50 : module procedure setPrsOrgWNO_XLD_CK2
3935 : use pm_kind, only: TKC => CK2
3936 : #include "pm_sampleCor@routines.inc.F90"
3937 50 : end procedure
3938 : #endif
3939 :
3940 : #if CK1_ENABLED
3941 50 : module procedure setPrsOrgWNO_XLD_CK1
3942 : use pm_kind, only: TKC => CK1
3943 : #include "pm_sampleCor@routines.inc.F90"
3944 50 : end procedure
3945 : #endif
3946 :
3947 : #undef CK_ENABLED
3948 :
3949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3950 :
3951 : #define RK_ENABLED 1
3952 :
3953 : #if RK5_ENABLED
3954 : module procedure setPrsOrgWNO_XLD_RK5
3955 : use pm_kind, only: TKC => RK5
3956 : #include "pm_sampleCor@routines.inc.F90"
3957 : end procedure
3958 : #endif
3959 :
3960 : #if RK4_ENABLED
3961 50 : module procedure setPrsOrgWNO_XLD_RK4
3962 : use pm_kind, only: TKC => RK4
3963 : #include "pm_sampleCor@routines.inc.F90"
3964 50 : end procedure
3965 : #endif
3966 :
3967 : #if RK3_ENABLED
3968 50 : module procedure setPrsOrgWNO_XLD_RK3
3969 : use pm_kind, only: TKC => RK3
3970 : #include "pm_sampleCor@routines.inc.F90"
3971 50 : end procedure
3972 : #endif
3973 :
3974 : #if RK2_ENABLED
3975 50 : module procedure setPrsOrgWNO_XLD_RK2
3976 : use pm_kind, only: TKC => RK2
3977 : #include "pm_sampleCor@routines.inc.F90"
3978 50 : end procedure
3979 : #endif
3980 :
3981 : #if RK1_ENABLED
3982 53 : module procedure setPrsOrgWNO_XLD_RK1
3983 : use pm_kind, only: TKC => RK1
3984 : #include "pm_sampleCor@routines.inc.F90"
3985 53 : end procedure
3986 : #endif
3987 :
3988 : #undef RK_ENABLED
3989 :
3990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3991 :
3992 : #undef Org_ENABLED
3993 :
3994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3997 :
3998 : #undef WNO_ENABLED
3999 :
4000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4003 :
4004 : #define WTI_ENABLED 1
4005 :
4006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4007 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4008 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4009 :
4010 : #define Avg_ENABLED 1
4011 :
4012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4013 :
4014 : #define CK_ENABLED 1
4015 :
4016 : #if CK5_ENABLED
4017 : module procedure setPrsAvgWTI_XLD_CK5
4018 : use pm_kind, only: TKC => CK5
4019 : #include "pm_sampleCor@routines.inc.F90"
4020 : end procedure
4021 : #endif
4022 :
4023 : #if CK4_ENABLED
4024 50 : module procedure setPrsAvgWTI_XLD_CK4
4025 : use pm_kind, only: TKC => CK4
4026 : #include "pm_sampleCor@routines.inc.F90"
4027 50 : end procedure
4028 : #endif
4029 :
4030 : #if CK3_ENABLED
4031 50 : module procedure setPrsAvgWTI_XLD_CK3
4032 : use pm_kind, only: TKC => CK3
4033 : #include "pm_sampleCor@routines.inc.F90"
4034 50 : end procedure
4035 : #endif
4036 :
4037 : #if CK2_ENABLED
4038 50 : module procedure setPrsAvgWTI_XLD_CK2
4039 : use pm_kind, only: TKC => CK2
4040 : #include "pm_sampleCor@routines.inc.F90"
4041 50 : end procedure
4042 : #endif
4043 :
4044 : #if CK1_ENABLED
4045 50 : module procedure setPrsAvgWTI_XLD_CK1
4046 : use pm_kind, only: TKC => CK1
4047 : #include "pm_sampleCor@routines.inc.F90"
4048 50 : end procedure
4049 : #endif
4050 :
4051 : #undef CK_ENABLED
4052 :
4053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4054 :
4055 : #define RK_ENABLED 1
4056 :
4057 : #if RK5_ENABLED
4058 : module procedure setPrsAvgWTI_XLD_RK5
4059 : use pm_kind, only: TKC => RK5
4060 : #include "pm_sampleCor@routines.inc.F90"
4061 : end procedure
4062 : #endif
4063 :
4064 : #if RK4_ENABLED
4065 50 : module procedure setPrsAvgWTI_XLD_RK4
4066 : use pm_kind, only: TKC => RK4
4067 : #include "pm_sampleCor@routines.inc.F90"
4068 50 : end procedure
4069 : #endif
4070 :
4071 : #if RK3_ENABLED
4072 50 : module procedure setPrsAvgWTI_XLD_RK3
4073 : use pm_kind, only: TKC => RK3
4074 : #include "pm_sampleCor@routines.inc.F90"
4075 50 : end procedure
4076 : #endif
4077 :
4078 : #if RK2_ENABLED
4079 602 : module procedure setPrsAvgWTI_XLD_RK2
4080 : use pm_kind, only: TKC => RK2
4081 : #include "pm_sampleCor@routines.inc.F90"
4082 602 : end procedure
4083 : #endif
4084 :
4085 : #if RK1_ENABLED
4086 52 : module procedure setPrsAvgWTI_XLD_RK1
4087 : use pm_kind, only: TKC => RK1
4088 : #include "pm_sampleCor@routines.inc.F90"
4089 52 : end procedure
4090 : #endif
4091 :
4092 : #undef RK_ENABLED
4093 :
4094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4095 :
4096 : #undef Avg_ENABLED
4097 :
4098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4101 :
4102 : #define Org_ENABLED 1
4103 :
4104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4105 :
4106 : #define CK_ENABLED 1
4107 :
4108 : #if CK5_ENABLED
4109 : module procedure setPrsOrgWTI_XLD_CK5
4110 : use pm_kind, only: TKC => CK5
4111 : #include "pm_sampleCor@routines.inc.F90"
4112 : end procedure
4113 : #endif
4114 :
4115 : #if CK4_ENABLED
4116 50 : module procedure setPrsOrgWTI_XLD_CK4
4117 : use pm_kind, only: TKC => CK4
4118 : #include "pm_sampleCor@routines.inc.F90"
4119 50 : end procedure
4120 : #endif
4121 :
4122 : #if CK3_ENABLED
4123 50 : module procedure setPrsOrgWTI_XLD_CK3
4124 : use pm_kind, only: TKC => CK3
4125 : #include "pm_sampleCor@routines.inc.F90"
4126 50 : end procedure
4127 : #endif
4128 :
4129 : #if CK2_ENABLED
4130 50 : module procedure setPrsOrgWTI_XLD_CK2
4131 : use pm_kind, only: TKC => CK2
4132 : #include "pm_sampleCor@routines.inc.F90"
4133 50 : end procedure
4134 : #endif
4135 :
4136 : #if CK1_ENABLED
4137 50 : module procedure setPrsOrgWTI_XLD_CK1
4138 : use pm_kind, only: TKC => CK1
4139 : #include "pm_sampleCor@routines.inc.F90"
4140 50 : end procedure
4141 : #endif
4142 :
4143 : #undef CK_ENABLED
4144 :
4145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4146 :
4147 : #define RK_ENABLED 1
4148 :
4149 : #if RK5_ENABLED
4150 : module procedure setPrsOrgWTI_XLD_RK5
4151 : use pm_kind, only: TKC => RK5
4152 : #include "pm_sampleCor@routines.inc.F90"
4153 : end procedure
4154 : #endif
4155 :
4156 : #if RK4_ENABLED
4157 50 : module procedure setPrsOrgWTI_XLD_RK4
4158 : use pm_kind, only: TKC => RK4
4159 : #include "pm_sampleCor@routines.inc.F90"
4160 50 : end procedure
4161 : #endif
4162 :
4163 : #if RK3_ENABLED
4164 50 : module procedure setPrsOrgWTI_XLD_RK3
4165 : use pm_kind, only: TKC => RK3
4166 : #include "pm_sampleCor@routines.inc.F90"
4167 50 : end procedure
4168 : #endif
4169 :
4170 : #if RK2_ENABLED
4171 50 : module procedure setPrsOrgWTI_XLD_RK2
4172 : use pm_kind, only: TKC => RK2
4173 : #include "pm_sampleCor@routines.inc.F90"
4174 50 : end procedure
4175 : #endif
4176 :
4177 : #if RK1_ENABLED
4178 52 : module procedure setPrsOrgWTI_XLD_RK1
4179 : use pm_kind, only: TKC => RK1
4180 : #include "pm_sampleCor@routines.inc.F90"
4181 52 : end procedure
4182 : #endif
4183 :
4184 : #undef RK_ENABLED
4185 :
4186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4187 :
4188 : #undef Org_ENABLED
4189 :
4190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4193 :
4194 : #undef WTI_ENABLED
4195 :
4196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4197 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4199 :
4200 : #define WTR_ENABLED 1
4201 :
4202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4205 :
4206 : #define Avg_ENABLED 1
4207 :
4208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4209 :
4210 : #define CK_ENABLED 1
4211 :
4212 : #if CK5_ENABLED
4213 : module procedure setPrsAvgWTR_XLD_CK5
4214 : use pm_kind, only: TKC => CK5
4215 : #include "pm_sampleCor@routines.inc.F90"
4216 : end procedure
4217 : #endif
4218 :
4219 : #if CK4_ENABLED
4220 50 : module procedure setPrsAvgWTR_XLD_CK4
4221 : use pm_kind, only: TKC => CK4
4222 : #include "pm_sampleCor@routines.inc.F90"
4223 50 : end procedure
4224 : #endif
4225 :
4226 : #if CK3_ENABLED
4227 50 : module procedure setPrsAvgWTR_XLD_CK3
4228 : use pm_kind, only: TKC => CK3
4229 : #include "pm_sampleCor@routines.inc.F90"
4230 50 : end procedure
4231 : #endif
4232 :
4233 : #if CK2_ENABLED
4234 50 : module procedure setPrsAvgWTR_XLD_CK2
4235 : use pm_kind, only: TKC => CK2
4236 : #include "pm_sampleCor@routines.inc.F90"
4237 50 : end procedure
4238 : #endif
4239 :
4240 : #if CK1_ENABLED
4241 50 : module procedure setPrsAvgWTR_XLD_CK1
4242 : use pm_kind, only: TKC => CK1
4243 : #include "pm_sampleCor@routines.inc.F90"
4244 50 : end procedure
4245 : #endif
4246 :
4247 : #undef CK_ENABLED
4248 :
4249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4250 :
4251 : #define RK_ENABLED 1
4252 :
4253 : #if RK5_ENABLED
4254 : module procedure setPrsAvgWTR_XLD_RK5
4255 : use pm_kind, only: TKC => RK5
4256 : #include "pm_sampleCor@routines.inc.F90"
4257 : end procedure
4258 : #endif
4259 :
4260 : #if RK4_ENABLED
4261 50 : module procedure setPrsAvgWTR_XLD_RK4
4262 : use pm_kind, only: TKC => RK4
4263 : #include "pm_sampleCor@routines.inc.F90"
4264 50 : end procedure
4265 : #endif
4266 :
4267 : #if RK3_ENABLED
4268 50 : module procedure setPrsAvgWTR_XLD_RK3
4269 : use pm_kind, only: TKC => RK3
4270 : #include "pm_sampleCor@routines.inc.F90"
4271 50 : end procedure
4272 : #endif
4273 :
4274 : #if RK2_ENABLED
4275 602 : module procedure setPrsAvgWTR_XLD_RK2
4276 : use pm_kind, only: TKC => RK2
4277 : #include "pm_sampleCor@routines.inc.F90"
4278 602 : end procedure
4279 : #endif
4280 :
4281 : #if RK1_ENABLED
4282 52 : module procedure setPrsAvgWTR_XLD_RK1
4283 : use pm_kind, only: TKC => RK1
4284 : #include "pm_sampleCor@routines.inc.F90"
4285 52 : end procedure
4286 : #endif
4287 :
4288 : #undef RK_ENABLED
4289 :
4290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4291 :
4292 : #undef Avg_ENABLED
4293 :
4294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4297 :
4298 : #define Org_ENABLED 1
4299 :
4300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4301 :
4302 : #define CK_ENABLED 1
4303 :
4304 : #if CK5_ENABLED
4305 : module procedure setPrsOrgWTR_XLD_CK5
4306 : use pm_kind, only: TKC => CK5
4307 : #include "pm_sampleCor@routines.inc.F90"
4308 : end procedure
4309 : #endif
4310 :
4311 : #if CK4_ENABLED
4312 50 : module procedure setPrsOrgWTR_XLD_CK4
4313 : use pm_kind, only: TKC => CK4
4314 : #include "pm_sampleCor@routines.inc.F90"
4315 50 : end procedure
4316 : #endif
4317 :
4318 : #if CK3_ENABLED
4319 50 : module procedure setPrsOrgWTR_XLD_CK3
4320 : use pm_kind, only: TKC => CK3
4321 : #include "pm_sampleCor@routines.inc.F90"
4322 50 : end procedure
4323 : #endif
4324 :
4325 : #if CK2_ENABLED
4326 50 : module procedure setPrsOrgWTR_XLD_CK2
4327 : use pm_kind, only: TKC => CK2
4328 : #include "pm_sampleCor@routines.inc.F90"
4329 50 : end procedure
4330 : #endif
4331 :
4332 : #if CK1_ENABLED
4333 50 : module procedure setPrsOrgWTR_XLD_CK1
4334 : use pm_kind, only: TKC => CK1
4335 : #include "pm_sampleCor@routines.inc.F90"
4336 50 : end procedure
4337 : #endif
4338 :
4339 : #undef CK_ENABLED
4340 :
4341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4342 :
4343 : #define RK_ENABLED 1
4344 :
4345 : #if RK5_ENABLED
4346 : module procedure setPrsOrgWTR_XLD_RK5
4347 : use pm_kind, only: TKC => RK5
4348 : #include "pm_sampleCor@routines.inc.F90"
4349 : end procedure
4350 : #endif
4351 :
4352 : #if RK4_ENABLED
4353 50 : module procedure setPrsOrgWTR_XLD_RK4
4354 : use pm_kind, only: TKC => RK4
4355 : #include "pm_sampleCor@routines.inc.F90"
4356 50 : end procedure
4357 : #endif
4358 :
4359 : #if RK3_ENABLED
4360 50 : module procedure setPrsOrgWTR_XLD_RK3
4361 : use pm_kind, only: TKC => RK3
4362 : #include "pm_sampleCor@routines.inc.F90"
4363 50 : end procedure
4364 : #endif
4365 :
4366 : #if RK2_ENABLED
4367 50 : module procedure setPrsOrgWTR_XLD_RK2
4368 : use pm_kind, only: TKC => RK2
4369 : #include "pm_sampleCor@routines.inc.F90"
4370 50 : end procedure
4371 : #endif
4372 :
4373 : #if RK1_ENABLED
4374 52 : module procedure setPrsOrgWTR_XLD_RK1
4375 : use pm_kind, only: TKC => RK1
4376 : #include "pm_sampleCor@routines.inc.F90"
4377 52 : end procedure
4378 : #endif
4379 :
4380 : #undef RK_ENABLED
4381 :
4382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4383 :
4384 : #undef Org_ENABLED
4385 :
4386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4389 :
4390 : #undef WTR_ENABLED
4391 :
4392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4395 :
4396 : #undef XLD_ENABLED
4397 :
4398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4401 :
4402 : #undef Prs_ENABLED
4403 :
4404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4407 :
4408 : #undef setCor_ENABLED
4409 :
4410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4411 :
4412 : #define getRho_ENABLED 1
4413 :
4414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4417 :
4418 : #define XY_D0_ENABLED 1
4419 :
4420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4423 :
4424 : #define WNO_ENABLED 1
4425 :
4426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4427 :
4428 : #define SK_ENABLED 1
4429 :
4430 : #if SK5_ENABLED
4431 : module procedure getRhoWNO_XY_D0_SK5
4432 : use pm_kind, only: TKC => SK5
4433 : #include "pm_sampleCor@routines.inc.F90"
4434 : end procedure
4435 : #endif
4436 :
4437 : #if SK4_ENABLED
4438 : module procedure getRhoWNO_XY_D0_SK4
4439 : use pm_kind, only: TKC => SK4
4440 : #include "pm_sampleCor@routines.inc.F90"
4441 : end procedure
4442 : #endif
4443 :
4444 : #if SK3_ENABLED
4445 : module procedure getRhoWNO_XY_D0_SK3
4446 : use pm_kind, only: TKC => SK3
4447 : #include "pm_sampleCor@routines.inc.F90"
4448 : end procedure
4449 : #endif
4450 :
4451 : #if SK2_ENABLED
4452 : module procedure getRhoWNO_XY_D0_SK2
4453 : use pm_kind, only: TKC => SK2
4454 : #include "pm_sampleCor@routines.inc.F90"
4455 : end procedure
4456 : #endif
4457 :
4458 : #if SK1_ENABLED
4459 51 : module procedure getRhoWNO_XY_D0_SK1
4460 : use pm_kind, only: TKC => SK1
4461 : #include "pm_sampleCor@routines.inc.F90"
4462 51 : end procedure
4463 : #endif
4464 :
4465 : #undef SK_ENABLED
4466 :
4467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4468 :
4469 : #undef WNO_ENABLED
4470 :
4471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4474 :
4475 : #define WTI_ENABLED 1
4476 :
4477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4478 :
4479 : #define SK_ENABLED 1
4480 :
4481 : #if SK5_ENABLED
4482 : module procedure getRhoWTI_XY_D0_SK5
4483 : use pm_kind, only: TKC => SK5
4484 : #include "pm_sampleCor@routines.inc.F90"
4485 : end procedure
4486 : #endif
4487 :
4488 : #if SK4_ENABLED
4489 : module procedure getRhoWTI_XY_D0_SK4
4490 : use pm_kind, only: TKC => SK4
4491 : #include "pm_sampleCor@routines.inc.F90"
4492 : end procedure
4493 : #endif
4494 :
4495 : #if SK3_ENABLED
4496 : module procedure getRhoWTI_XY_D0_SK3
4497 : use pm_kind, only: TKC => SK3
4498 : #include "pm_sampleCor@routines.inc.F90"
4499 : end procedure
4500 : #endif
4501 :
4502 : #if SK2_ENABLED
4503 : module procedure getRhoWTI_XY_D0_SK2
4504 : use pm_kind, only: TKC => SK2
4505 : #include "pm_sampleCor@routines.inc.F90"
4506 : end procedure
4507 : #endif
4508 :
4509 : #if SK1_ENABLED
4510 50 : module procedure getRhoWTI_XY_D0_SK1
4511 : use pm_kind, only: TKC => SK1
4512 : #include "pm_sampleCor@routines.inc.F90"
4513 50 : end procedure
4514 : #endif
4515 :
4516 : #undef SK_ENABLED
4517 :
4518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4519 :
4520 : #undef WTI_ENABLED
4521 :
4522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4525 :
4526 : #define WTR_ENABLED 1
4527 :
4528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4529 :
4530 : #define SK_ENABLED 1
4531 :
4532 : #if SK5_ENABLED
4533 : module procedure getRhoWTR_XY_D0_SK5
4534 : use pm_kind, only: TKC => SK5
4535 : #include "pm_sampleCor@routines.inc.F90"
4536 : end procedure
4537 : #endif
4538 :
4539 : #if SK4_ENABLED
4540 : module procedure getRhoWTR_XY_D0_SK4
4541 : use pm_kind, only: TKC => SK4
4542 : #include "pm_sampleCor@routines.inc.F90"
4543 : end procedure
4544 : #endif
4545 :
4546 : #if SK3_ENABLED
4547 : module procedure getRhoWTR_XY_D0_SK3
4548 : use pm_kind, only: TKC => SK3
4549 : #include "pm_sampleCor@routines.inc.F90"
4550 : end procedure
4551 : #endif
4552 :
4553 : #if SK2_ENABLED
4554 : module procedure getRhoWTR_XY_D0_SK2
4555 : use pm_kind, only: TKC => SK2
4556 : #include "pm_sampleCor@routines.inc.F90"
4557 : end procedure
4558 : #endif
4559 :
4560 : #if SK1_ENABLED
4561 50 : module procedure getRhoWTR_XY_D0_SK1
4562 : use pm_kind, only: TKC => SK1
4563 : #include "pm_sampleCor@routines.inc.F90"
4564 50 : end procedure
4565 : #endif
4566 :
4567 : #undef SK_ENABLED
4568 :
4569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4570 :
4571 : #undef WTR_ENABLED
4572 :
4573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4576 :
4577 : #undef XY_D0_ENABLED
4578 :
4579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4582 :
4583 : #undef getRho_ENABLED
4584 :
4585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4586 :
4587 : #define getRho_ENABLED 1
4588 :
4589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4592 :
4593 : #define XY_D1_ENABLED 1
4594 :
4595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4598 :
4599 : #define WNO_ENABLED 1
4600 :
4601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4602 :
4603 : #define SK_ENABLED 1
4604 :
4605 : #if SK5_ENABLED
4606 : module procedure getRhoWNO_XY_D1_SK5
4607 : use pm_kind, only: TKC => SK5
4608 : #include "pm_sampleCor@routines.inc.F90"
4609 : end procedure
4610 : #endif
4611 :
4612 : #if SK4_ENABLED
4613 : module procedure getRhoWNO_XY_D1_SK4
4614 : use pm_kind, only: TKC => SK4
4615 : #include "pm_sampleCor@routines.inc.F90"
4616 : end procedure
4617 : #endif
4618 :
4619 : #if SK3_ENABLED
4620 : module procedure getRhoWNO_XY_D1_SK3
4621 : use pm_kind, only: TKC => SK3
4622 : #include "pm_sampleCor@routines.inc.F90"
4623 : end procedure
4624 : #endif
4625 :
4626 : #if SK2_ENABLED
4627 : module procedure getRhoWNO_XY_D1_SK2
4628 : use pm_kind, only: TKC => SK2
4629 : #include "pm_sampleCor@routines.inc.F90"
4630 : end procedure
4631 : #endif
4632 :
4633 : #if SK1_ENABLED
4634 51 : module procedure getRhoWNO_XY_D1_SK1
4635 : use pm_kind, only: TKC => SK1
4636 : #include "pm_sampleCor@routines.inc.F90"
4637 51 : end procedure
4638 : #endif
4639 :
4640 : #undef SK_ENABLED
4641 :
4642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4643 :
4644 : #define IK_ENABLED 1
4645 :
4646 : #if IK5_ENABLED
4647 50 : module procedure getRhoWNO_XY_D1_IK5
4648 : use pm_kind, only: TKC => IK5
4649 : #include "pm_sampleCor@routines.inc.F90"
4650 50 : end procedure
4651 : #endif
4652 :
4653 : #if IK4_ENABLED
4654 50 : module procedure getRhoWNO_XY_D1_IK4
4655 : use pm_kind, only: TKC => IK4
4656 : #include "pm_sampleCor@routines.inc.F90"
4657 50 : end procedure
4658 : #endif
4659 :
4660 : #if IK3_ENABLED
4661 51 : module procedure getRhoWNO_XY_D1_IK3
4662 : use pm_kind, only: TKC => IK3
4663 : #include "pm_sampleCor@routines.inc.F90"
4664 51 : end procedure
4665 : #endif
4666 :
4667 : #if IK2_ENABLED
4668 50 : module procedure getRhoWNO_XY_D1_IK2
4669 : use pm_kind, only: TKC => IK2
4670 : #include "pm_sampleCor@routines.inc.F90"
4671 50 : end procedure
4672 : #endif
4673 :
4674 : #if IK1_ENABLED
4675 50 : module procedure getRhoWNO_XY_D1_IK1
4676 : use pm_kind, only: TKC => IK1
4677 : #include "pm_sampleCor@routines.inc.F90"
4678 50 : end procedure
4679 : #endif
4680 :
4681 : #undef IK_ENABLED
4682 :
4683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4684 :
4685 : #define RK_ENABLED 1
4686 :
4687 : #if RK5_ENABLED
4688 : module procedure getRhoWNO_XY_D1_RK5
4689 : use pm_kind, only: TKC => RK5
4690 : #include "pm_sampleCor@routines.inc.F90"
4691 : end procedure
4692 : #endif
4693 :
4694 : #if RK4_ENABLED
4695 50 : module procedure getRhoWNO_XY_D1_RK4
4696 : use pm_kind, only: TKC => RK4
4697 : #include "pm_sampleCor@routines.inc.F90"
4698 50 : end procedure
4699 : #endif
4700 :
4701 : #if RK3_ENABLED
4702 50 : module procedure getRhoWNO_XY_D1_RK3
4703 : use pm_kind, only: TKC => RK3
4704 : #include "pm_sampleCor@routines.inc.F90"
4705 50 : end procedure
4706 : #endif
4707 :
4708 : #if RK2_ENABLED
4709 50 : module procedure getRhoWNO_XY_D1_RK2
4710 : use pm_kind, only: TKC => RK2
4711 : #include "pm_sampleCor@routines.inc.F90"
4712 50 : end procedure
4713 : #endif
4714 :
4715 : #if RK1_ENABLED
4716 51 : module procedure getRhoWNO_XY_D1_RK1
4717 : use pm_kind, only: TKC => RK1
4718 : #include "pm_sampleCor@routines.inc.F90"
4719 51 : end procedure
4720 : #endif
4721 :
4722 : #undef RK_ENABLED
4723 :
4724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4725 :
4726 : #if !__GFORTRAN__
4727 : #define PSSK_ENABLED 1
4728 :
4729 : #if SK5_ENABLED
4730 : module procedure getRhoWNO_XY_D1_PSSK5
4731 : use pm_kind, only: TKC => SK5
4732 : #include "pm_sampleCor@routines.inc.F90"
4733 : end procedure
4734 : #endif
4735 :
4736 : #if SK4_ENABLED
4737 : module procedure getRhoWNO_XY_D1_PSSK4
4738 : use pm_kind, only: TKC => SK4
4739 : #include "pm_sampleCor@routines.inc.F90"
4740 : end procedure
4741 : #endif
4742 :
4743 : #if SK3_ENABLED
4744 : module procedure getRhoWNO_XY_D1_PSSK3
4745 : use pm_kind, only: TKC => SK3
4746 : #include "pm_sampleCor@routines.inc.F90"
4747 : end procedure
4748 : #endif
4749 :
4750 : #if SK2_ENABLED
4751 : module procedure getRhoWNO_XY_D1_PSSK2
4752 : use pm_kind, only: TKC => SK2
4753 : #include "pm_sampleCor@routines.inc.F90"
4754 : end procedure
4755 : #endif
4756 :
4757 : #if SK1_ENABLED
4758 : module procedure getRhoWNO_XY_D1_PSSK1
4759 : use pm_kind, only: TKC => SK1
4760 : #include "pm_sampleCor@routines.inc.F90"
4761 : end procedure
4762 : #endif
4763 :
4764 : #undef PSSK_ENABLED
4765 : #endif
4766 :
4767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4768 :
4769 : #define BSSK_ENABLED 1
4770 :
4771 50 : module procedure getRhoWNO_XY_D1_BSSK
4772 : use pm_kind, only: TKC => SK
4773 : #include "pm_sampleCor@routines.inc.F90"
4774 50 : end procedure
4775 :
4776 : #undef BSSK_ENABLED
4777 :
4778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4779 :
4780 : #undef WNO_ENABLED
4781 :
4782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4785 :
4786 : #define WTI_ENABLED 1
4787 :
4788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4789 :
4790 : #define SK_ENABLED 1
4791 :
4792 : #if SK5_ENABLED
4793 : module procedure getRhoWTI_XY_D1_SK5
4794 : use pm_kind, only: TKC => SK5
4795 : #include "pm_sampleCor@routines.inc.F90"
4796 : end procedure
4797 : #endif
4798 :
4799 : #if SK4_ENABLED
4800 : module procedure getRhoWTI_XY_D1_SK4
4801 : use pm_kind, only: TKC => SK4
4802 : #include "pm_sampleCor@routines.inc.F90"
4803 : end procedure
4804 : #endif
4805 :
4806 : #if SK3_ENABLED
4807 : module procedure getRhoWTI_XY_D1_SK3
4808 : use pm_kind, only: TKC => SK3
4809 : #include "pm_sampleCor@routines.inc.F90"
4810 : end procedure
4811 : #endif
4812 :
4813 : #if SK2_ENABLED
4814 : module procedure getRhoWTI_XY_D1_SK2
4815 : use pm_kind, only: TKC => SK2
4816 : #include "pm_sampleCor@routines.inc.F90"
4817 : end procedure
4818 : #endif
4819 :
4820 : #if SK1_ENABLED
4821 50 : module procedure getRhoWTI_XY_D1_SK1
4822 : use pm_kind, only: TKC => SK1
4823 : #include "pm_sampleCor@routines.inc.F90"
4824 50 : end procedure
4825 : #endif
4826 :
4827 : #undef SK_ENABLED
4828 :
4829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4830 :
4831 : #define IK_ENABLED 1
4832 :
4833 : #if IK5_ENABLED
4834 50 : module procedure getRhoWTI_XY_D1_IK5
4835 : use pm_kind, only: TKC => IK5
4836 : #include "pm_sampleCor@routines.inc.F90"
4837 50 : end procedure
4838 : #endif
4839 :
4840 : #if IK4_ENABLED
4841 50 : module procedure getRhoWTI_XY_D1_IK4
4842 : use pm_kind, only: TKC => IK4
4843 : #include "pm_sampleCor@routines.inc.F90"
4844 50 : end procedure
4845 : #endif
4846 :
4847 : #if IK3_ENABLED
4848 50 : module procedure getRhoWTI_XY_D1_IK3
4849 : use pm_kind, only: TKC => IK3
4850 : #include "pm_sampleCor@routines.inc.F90"
4851 50 : end procedure
4852 : #endif
4853 :
4854 : #if IK2_ENABLED
4855 50 : module procedure getRhoWTI_XY_D1_IK2
4856 : use pm_kind, only: TKC => IK2
4857 : #include "pm_sampleCor@routines.inc.F90"
4858 50 : end procedure
4859 : #endif
4860 :
4861 : #if IK1_ENABLED
4862 50 : module procedure getRhoWTI_XY_D1_IK1
4863 : use pm_kind, only: TKC => IK1
4864 : #include "pm_sampleCor@routines.inc.F90"
4865 50 : end procedure
4866 : #endif
4867 :
4868 : #undef IK_ENABLED
4869 :
4870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4871 :
4872 : #define RK_ENABLED 1
4873 :
4874 : #if RK5_ENABLED
4875 : module procedure getRhoWTI_XY_D1_RK5
4876 : use pm_kind, only: TKC => RK5
4877 : #include "pm_sampleCor@routines.inc.F90"
4878 : end procedure
4879 : #endif
4880 :
4881 : #if RK4_ENABLED
4882 50 : module procedure getRhoWTI_XY_D1_RK4
4883 : use pm_kind, only: TKC => RK4
4884 : #include "pm_sampleCor@routines.inc.F90"
4885 50 : end procedure
4886 : #endif
4887 :
4888 : #if RK3_ENABLED
4889 50 : module procedure getRhoWTI_XY_D1_RK3
4890 : use pm_kind, only: TKC => RK3
4891 : #include "pm_sampleCor@routines.inc.F90"
4892 50 : end procedure
4893 : #endif
4894 :
4895 : #if RK2_ENABLED
4896 50 : module procedure getRhoWTI_XY_D1_RK2
4897 : use pm_kind, only: TKC => RK2
4898 : #include "pm_sampleCor@routines.inc.F90"
4899 50 : end procedure
4900 : #endif
4901 :
4902 : #if RK1_ENABLED
4903 51 : module procedure getRhoWTI_XY_D1_RK1
4904 : use pm_kind, only: TKC => RK1
4905 : #include "pm_sampleCor@routines.inc.F90"
4906 51 : end procedure
4907 : #endif
4908 :
4909 : #undef RK_ENABLED
4910 :
4911 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4912 :
4913 : #if !__GFORTRAN__
4914 : #define PSSK_ENABLED 1
4915 :
4916 : #if SK5_ENABLED
4917 : module procedure getRhoWTI_XY_D1_PSSK5
4918 : use pm_kind, only: TKC => SK5
4919 : #include "pm_sampleCor@routines.inc.F90"
4920 : end procedure
4921 : #endif
4922 :
4923 : #if SK4_ENABLED
4924 : module procedure getRhoWTI_XY_D1_PSSK4
4925 : use pm_kind, only: TKC => SK4
4926 : #include "pm_sampleCor@routines.inc.F90"
4927 : end procedure
4928 : #endif
4929 :
4930 : #if SK3_ENABLED
4931 : module procedure getRhoWTI_XY_D1_PSSK3
4932 : use pm_kind, only: TKC => SK3
4933 : #include "pm_sampleCor@routines.inc.F90"
4934 : end procedure
4935 : #endif
4936 :
4937 : #if SK2_ENABLED
4938 : module procedure getRhoWTI_XY_D1_PSSK2
4939 : use pm_kind, only: TKC => SK2
4940 : #include "pm_sampleCor@routines.inc.F90"
4941 : end procedure
4942 : #endif
4943 :
4944 : #if SK1_ENABLED
4945 : module procedure getRhoWTI_XY_D1_PSSK1
4946 : use pm_kind, only: TKC => SK1
4947 : #include "pm_sampleCor@routines.inc.F90"
4948 : end procedure
4949 : #endif
4950 :
4951 : #undef PSSK_ENABLED
4952 : #endif
4953 :
4954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4955 :
4956 : #define BSSK_ENABLED 1
4957 :
4958 50 : module procedure getRhoWTI_XY_D1_BSSK
4959 : use pm_kind, only: TKC => SK
4960 : #include "pm_sampleCor@routines.inc.F90"
4961 50 : end procedure
4962 :
4963 : #undef BSSK_ENABLED
4964 :
4965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4966 :
4967 : #undef WTI_ENABLED
4968 :
4969 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4972 :
4973 : #define WTR_ENABLED 1
4974 :
4975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4976 :
4977 : #define SK_ENABLED 1
4978 :
4979 : #if SK5_ENABLED
4980 : module procedure getRhoWTR_XY_D1_SK5
4981 : use pm_kind, only: TKC => SK5
4982 : #include "pm_sampleCor@routines.inc.F90"
4983 : end procedure
4984 : #endif
4985 :
4986 : #if SK4_ENABLED
4987 : module procedure getRhoWTR_XY_D1_SK4
4988 : use pm_kind, only: TKC => SK4
4989 : #include "pm_sampleCor@routines.inc.F90"
4990 : end procedure
4991 : #endif
4992 :
4993 : #if SK3_ENABLED
4994 : module procedure getRhoWTR_XY_D1_SK3
4995 : use pm_kind, only: TKC => SK3
4996 : #include "pm_sampleCor@routines.inc.F90"
4997 : end procedure
4998 : #endif
4999 :
5000 : #if SK2_ENABLED
5001 : module procedure getRhoWTR_XY_D1_SK2
5002 : use pm_kind, only: TKC => SK2
5003 : #include "pm_sampleCor@routines.inc.F90"
5004 : end procedure
5005 : #endif
5006 :
5007 : #if SK1_ENABLED
5008 50 : module procedure getRhoWTR_XY_D1_SK1
5009 : use pm_kind, only: TKC => SK1
5010 : #include "pm_sampleCor@routines.inc.F90"
5011 50 : end procedure
5012 : #endif
5013 :
5014 : #undef SK_ENABLED
5015 :
5016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5017 :
5018 : #define IK_ENABLED 1
5019 :
5020 : #if IK5_ENABLED
5021 50 : module procedure getRhoWTR_XY_D1_IK5
5022 : use pm_kind, only: TKC => IK5
5023 : #include "pm_sampleCor@routines.inc.F90"
5024 50 : end procedure
5025 : #endif
5026 :
5027 : #if IK4_ENABLED
5028 50 : module procedure getRhoWTR_XY_D1_IK4
5029 : use pm_kind, only: TKC => IK4
5030 : #include "pm_sampleCor@routines.inc.F90"
5031 50 : end procedure
5032 : #endif
5033 :
5034 : #if IK3_ENABLED
5035 50 : module procedure getRhoWTR_XY_D1_IK3
5036 : use pm_kind, only: TKC => IK3
5037 : #include "pm_sampleCor@routines.inc.F90"
5038 50 : end procedure
5039 : #endif
5040 :
5041 : #if IK2_ENABLED
5042 50 : module procedure getRhoWTR_XY_D1_IK2
5043 : use pm_kind, only: TKC => IK2
5044 : #include "pm_sampleCor@routines.inc.F90"
5045 50 : end procedure
5046 : #endif
5047 :
5048 : #if IK1_ENABLED
5049 50 : module procedure getRhoWTR_XY_D1_IK1
5050 : use pm_kind, only: TKC => IK1
5051 : #include "pm_sampleCor@routines.inc.F90"
5052 50 : end procedure
5053 : #endif
5054 :
5055 : #undef IK_ENABLED
5056 :
5057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5058 :
5059 : #define RK_ENABLED 1
5060 :
5061 : #if RK5_ENABLED
5062 : module procedure getRhoWTR_XY_D1_RK5
5063 : use pm_kind, only: TKC => RK5
5064 : #include "pm_sampleCor@routines.inc.F90"
5065 : end procedure
5066 : #endif
5067 :
5068 : #if RK4_ENABLED
5069 50 : module procedure getRhoWTR_XY_D1_RK4
5070 : use pm_kind, only: TKC => RK4
5071 : #include "pm_sampleCor@routines.inc.F90"
5072 50 : end procedure
5073 : #endif
5074 :
5075 : #if RK3_ENABLED
5076 50 : module procedure getRhoWTR_XY_D1_RK3
5077 : use pm_kind, only: TKC => RK3
5078 : #include "pm_sampleCor@routines.inc.F90"
5079 50 : end procedure
5080 : #endif
5081 :
5082 : #if RK2_ENABLED
5083 50 : module procedure getRhoWTR_XY_D1_RK2
5084 : use pm_kind, only: TKC => RK2
5085 : #include "pm_sampleCor@routines.inc.F90"
5086 50 : end procedure
5087 : #endif
5088 :
5089 : #if RK1_ENABLED
5090 51 : module procedure getRhoWTR_XY_D1_RK1
5091 : use pm_kind, only: TKC => RK1
5092 : #include "pm_sampleCor@routines.inc.F90"
5093 51 : end procedure
5094 : #endif
5095 :
5096 : #undef RK_ENABLED
5097 :
5098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5099 :
5100 : #if !__GFORTRAN__
5101 : #define PSSK_ENABLED 1
5102 :
5103 : #if SK5_ENABLED
5104 : module procedure getRhoWTR_XY_D1_PSSK5
5105 : use pm_kind, only: TKC => SK5
5106 : #include "pm_sampleCor@routines.inc.F90"
5107 : end procedure
5108 : #endif
5109 :
5110 : #if SK4_ENABLED
5111 : module procedure getRhoWTR_XY_D1_PSSK4
5112 : use pm_kind, only: TKC => SK4
5113 : #include "pm_sampleCor@routines.inc.F90"
5114 : end procedure
5115 : #endif
5116 :
5117 : #if SK3_ENABLED
5118 : module procedure getRhoWTR_XY_D1_PSSK3
5119 : use pm_kind, only: TKC => SK3
5120 : #include "pm_sampleCor@routines.inc.F90"
5121 : end procedure
5122 : #endif
5123 :
5124 : #if SK2_ENABLED
5125 : module procedure getRhoWTR_XY_D1_PSSK2
5126 : use pm_kind, only: TKC => SK2
5127 : #include "pm_sampleCor@routines.inc.F90"
5128 : end procedure
5129 : #endif
5130 :
5131 : #if SK1_ENABLED
5132 : module procedure getRhoWTR_XY_D1_PSSK1
5133 : use pm_kind, only: TKC => SK1
5134 : #include "pm_sampleCor@routines.inc.F90"
5135 : end procedure
5136 : #endif
5137 :
5138 : #undef PSSK_ENABLED
5139 : #endif
5140 :
5141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5142 :
5143 : #define BSSK_ENABLED 1
5144 :
5145 50 : module procedure getRhoWTR_XY_D1_BSSK
5146 : use pm_kind, only: TKC => SK
5147 : #include "pm_sampleCor@routines.inc.F90"
5148 50 : end procedure
5149 :
5150 : #undef BSSK_ENABLED
5151 :
5152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5153 :
5154 : #undef WTR_ENABLED
5155 :
5156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5159 :
5160 : #undef XY_D1_ENABLED
5161 :
5162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5165 :
5166 : #undef getRho_ENABLED
5167 :
5168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5169 :
5170 : #define getRho_ENABLED 1
5171 :
5172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5175 :
5176 : #define ULD_ENABLED 1
5177 :
5178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5181 :
5182 : #define WNO_ENABLED 1
5183 :
5184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5185 :
5186 : #define SK_ENABLED 1
5187 :
5188 : #if SK5_ENABLED
5189 : module procedure getRhoWNO_ULD_SK5
5190 : use pm_kind, only: TKC => SK5
5191 : #include "pm_sampleCor@routines.inc.F90"
5192 : end procedure
5193 : #endif
5194 :
5195 : #if SK4_ENABLED
5196 : module procedure getRhoWNO_ULD_SK4
5197 : use pm_kind, only: TKC => SK4
5198 : #include "pm_sampleCor@routines.inc.F90"
5199 : end procedure
5200 : #endif
5201 :
5202 : #if SK3_ENABLED
5203 : module procedure getRhoWNO_ULD_SK3
5204 : use pm_kind, only: TKC => SK3
5205 : #include "pm_sampleCor@routines.inc.F90"
5206 : end procedure
5207 : #endif
5208 :
5209 : #if SK2_ENABLED
5210 : module procedure getRhoWNO_ULD_SK2
5211 : use pm_kind, only: TKC => SK2
5212 : #include "pm_sampleCor@routines.inc.F90"
5213 : end procedure
5214 : #endif
5215 :
5216 : #if SK1_ENABLED
5217 52 : module procedure getRhoWNO_ULD_SK1
5218 : use pm_kind, only: TKC => SK1
5219 : #include "pm_sampleCor@routines.inc.F90"
5220 52 : end procedure
5221 : #endif
5222 :
5223 : #undef SK_ENABLED
5224 :
5225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5226 :
5227 : #define IK_ENABLED 1
5228 :
5229 : #if IK5_ENABLED
5230 50 : module procedure getRhoWNO_ULD_IK5
5231 : use pm_kind, only: TKC => IK5
5232 : #include "pm_sampleCor@routines.inc.F90"
5233 50 : end procedure
5234 : #endif
5235 :
5236 : #if IK4_ENABLED
5237 50 : module procedure getRhoWNO_ULD_IK4
5238 : use pm_kind, only: TKC => IK4
5239 : #include "pm_sampleCor@routines.inc.F90"
5240 50 : end procedure
5241 : #endif
5242 :
5243 : #if IK3_ENABLED
5244 52 : module procedure getRhoWNO_ULD_IK3
5245 : use pm_kind, only: TKC => IK3
5246 : #include "pm_sampleCor@routines.inc.F90"
5247 52 : end procedure
5248 : #endif
5249 :
5250 : #if IK2_ENABLED
5251 50 : module procedure getRhoWNO_ULD_IK2
5252 : use pm_kind, only: TKC => IK2
5253 : #include "pm_sampleCor@routines.inc.F90"
5254 50 : end procedure
5255 : #endif
5256 :
5257 : #if IK1_ENABLED
5258 50 : module procedure getRhoWNO_ULD_IK1
5259 : use pm_kind, only: TKC => IK1
5260 : #include "pm_sampleCor@routines.inc.F90"
5261 50 : end procedure
5262 : #endif
5263 :
5264 : #undef IK_ENABLED
5265 :
5266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5267 :
5268 : #define RK_ENABLED 1
5269 :
5270 : #if RK5_ENABLED
5271 : module procedure getRhoWNO_ULD_RK5
5272 : use pm_kind, only: TKC => RK5
5273 : #include "pm_sampleCor@routines.inc.F90"
5274 : end procedure
5275 : #endif
5276 :
5277 : #if RK4_ENABLED
5278 50 : module procedure getRhoWNO_ULD_RK4
5279 : use pm_kind, only: TKC => RK4
5280 : #include "pm_sampleCor@routines.inc.F90"
5281 50 : end procedure
5282 : #endif
5283 :
5284 : #if RK3_ENABLED
5285 50 : module procedure getRhoWNO_ULD_RK3
5286 : use pm_kind, only: TKC => RK3
5287 : #include "pm_sampleCor@routines.inc.F90"
5288 50 : end procedure
5289 : #endif
5290 :
5291 : #if RK2_ENABLED
5292 50 : module procedure getRhoWNO_ULD_RK2
5293 : use pm_kind, only: TKC => RK2
5294 : #include "pm_sampleCor@routines.inc.F90"
5295 50 : end procedure
5296 : #endif
5297 :
5298 : #if RK1_ENABLED
5299 52 : module procedure getRhoWNO_ULD_RK1
5300 : use pm_kind, only: TKC => RK1
5301 : #include "pm_sampleCor@routines.inc.F90"
5302 52 : end procedure
5303 : #endif
5304 :
5305 : #undef RK_ENABLED
5306 :
5307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5308 :
5309 : #if !__GFORTRAN__
5310 : #define PSSK_ENABLED 1
5311 :
5312 : #if SK5_ENABLED
5313 : module procedure getRhoWNO_ULD_PSSK5
5314 : use pm_kind, only: TKC => SK5
5315 : #include "pm_sampleCor@routines.inc.F90"
5316 : end procedure
5317 : #endif
5318 :
5319 : #if SK4_ENABLED
5320 : module procedure getRhoWNO_ULD_PSSK4
5321 : use pm_kind, only: TKC => SK4
5322 : #include "pm_sampleCor@routines.inc.F90"
5323 : end procedure
5324 : #endif
5325 :
5326 : #if SK3_ENABLED
5327 : module procedure getRhoWNO_ULD_PSSK3
5328 : use pm_kind, only: TKC => SK3
5329 : #include "pm_sampleCor@routines.inc.F90"
5330 : end procedure
5331 : #endif
5332 :
5333 : #if SK2_ENABLED
5334 : module procedure getRhoWNO_ULD_PSSK2
5335 : use pm_kind, only: TKC => SK2
5336 : #include "pm_sampleCor@routines.inc.F90"
5337 : end procedure
5338 : #endif
5339 :
5340 : #if SK1_ENABLED
5341 : module procedure getRhoWNO_ULD_PSSK1
5342 : use pm_kind, only: TKC => SK1
5343 : #include "pm_sampleCor@routines.inc.F90"
5344 : end procedure
5345 : #endif
5346 :
5347 : #undef PSSK_ENABLED
5348 : #endif
5349 :
5350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5351 :
5352 : #define BSSK_ENABLED 1
5353 :
5354 50 : module procedure getRhoWNO_ULD_BSSK
5355 : use pm_kind, only: TKC => SK
5356 : #include "pm_sampleCor@routines.inc.F90"
5357 50 : end procedure
5358 :
5359 : #undef BSSK_ENABLED
5360 :
5361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5362 :
5363 : #undef WNO_ENABLED
5364 :
5365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5368 :
5369 : #define WTI_ENABLED 1
5370 :
5371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5372 :
5373 : #define SK_ENABLED 1
5374 :
5375 : #if SK5_ENABLED
5376 : module procedure getRhoWTI_ULD_SK5
5377 : use pm_kind, only: TKC => SK5
5378 : #include "pm_sampleCor@routines.inc.F90"
5379 : end procedure
5380 : #endif
5381 :
5382 : #if SK4_ENABLED
5383 : module procedure getRhoWTI_ULD_SK4
5384 : use pm_kind, only: TKC => SK4
5385 : #include "pm_sampleCor@routines.inc.F90"
5386 : end procedure
5387 : #endif
5388 :
5389 : #if SK3_ENABLED
5390 : module procedure getRhoWTI_ULD_SK3
5391 : use pm_kind, only: TKC => SK3
5392 : #include "pm_sampleCor@routines.inc.F90"
5393 : end procedure
5394 : #endif
5395 :
5396 : #if SK2_ENABLED
5397 : module procedure getRhoWTI_ULD_SK2
5398 : use pm_kind, only: TKC => SK2
5399 : #include "pm_sampleCor@routines.inc.F90"
5400 : end procedure
5401 : #endif
5402 :
5403 : #if SK1_ENABLED
5404 50 : module procedure getRhoWTI_ULD_SK1
5405 : use pm_kind, only: TKC => SK1
5406 : #include "pm_sampleCor@routines.inc.F90"
5407 50 : end procedure
5408 : #endif
5409 :
5410 : #undef SK_ENABLED
5411 :
5412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5413 :
5414 : #define IK_ENABLED 1
5415 :
5416 : #if IK5_ENABLED
5417 50 : module procedure getRhoWTI_ULD_IK5
5418 : use pm_kind, only: TKC => IK5
5419 : #include "pm_sampleCor@routines.inc.F90"
5420 50 : end procedure
5421 : #endif
5422 :
5423 : #if IK4_ENABLED
5424 50 : module procedure getRhoWTI_ULD_IK4
5425 : use pm_kind, only: TKC => IK4
5426 : #include "pm_sampleCor@routines.inc.F90"
5427 50 : end procedure
5428 : #endif
5429 :
5430 : #if IK3_ENABLED
5431 50 : module procedure getRhoWTI_ULD_IK3
5432 : use pm_kind, only: TKC => IK3
5433 : #include "pm_sampleCor@routines.inc.F90"
5434 50 : end procedure
5435 : #endif
5436 :
5437 : #if IK2_ENABLED
5438 50 : module procedure getRhoWTI_ULD_IK2
5439 : use pm_kind, only: TKC => IK2
5440 : #include "pm_sampleCor@routines.inc.F90"
5441 50 : end procedure
5442 : #endif
5443 :
5444 : #if IK1_ENABLED
5445 50 : module procedure getRhoWTI_ULD_IK1
5446 : use pm_kind, only: TKC => IK1
5447 : #include "pm_sampleCor@routines.inc.F90"
5448 50 : end procedure
5449 : #endif
5450 :
5451 : #undef IK_ENABLED
5452 :
5453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5454 :
5455 : #define RK_ENABLED 1
5456 :
5457 : #if RK5_ENABLED
5458 : module procedure getRhoWTI_ULD_RK5
5459 : use pm_kind, only: TKC => RK5
5460 : #include "pm_sampleCor@routines.inc.F90"
5461 : end procedure
5462 : #endif
5463 :
5464 : #if RK4_ENABLED
5465 50 : module procedure getRhoWTI_ULD_RK4
5466 : use pm_kind, only: TKC => RK4
5467 : #include "pm_sampleCor@routines.inc.F90"
5468 50 : end procedure
5469 : #endif
5470 :
5471 : #if RK3_ENABLED
5472 50 : module procedure getRhoWTI_ULD_RK3
5473 : use pm_kind, only: TKC => RK3
5474 : #include "pm_sampleCor@routines.inc.F90"
5475 50 : end procedure
5476 : #endif
5477 :
5478 : #if RK2_ENABLED
5479 50 : module procedure getRhoWTI_ULD_RK2
5480 : use pm_kind, only: TKC => RK2
5481 : #include "pm_sampleCor@routines.inc.F90"
5482 50 : end procedure
5483 : #endif
5484 :
5485 : #if RK1_ENABLED
5486 52 : module procedure getRhoWTI_ULD_RK1
5487 : use pm_kind, only: TKC => RK1
5488 : #include "pm_sampleCor@routines.inc.F90"
5489 52 : end procedure
5490 : #endif
5491 :
5492 : #undef RK_ENABLED
5493 :
5494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5495 :
5496 : #if !__GFORTRAN__
5497 : #define PSSK_ENABLED 1
5498 :
5499 : #if SK5_ENABLED
5500 : module procedure getRhoWTI_ULD_PSSK5
5501 : use pm_kind, only: TKC => SK5
5502 : #include "pm_sampleCor@routines.inc.F90"
5503 : end procedure
5504 : #endif
5505 :
5506 : #if SK4_ENABLED
5507 : module procedure getRhoWTI_ULD_PSSK4
5508 : use pm_kind, only: TKC => SK4
5509 : #include "pm_sampleCor@routines.inc.F90"
5510 : end procedure
5511 : #endif
5512 :
5513 : #if SK3_ENABLED
5514 : module procedure getRhoWTI_ULD_PSSK3
5515 : use pm_kind, only: TKC => SK3
5516 : #include "pm_sampleCor@routines.inc.F90"
5517 : end procedure
5518 : #endif
5519 :
5520 : #if SK2_ENABLED
5521 : module procedure getRhoWTI_ULD_PSSK2
5522 : use pm_kind, only: TKC => SK2
5523 : #include "pm_sampleCor@routines.inc.F90"
5524 : end procedure
5525 : #endif
5526 :
5527 : #if SK1_ENABLED
5528 : module procedure getRhoWTI_ULD_PSSK1
5529 : use pm_kind, only: TKC => SK1
5530 : #include "pm_sampleCor@routines.inc.F90"
5531 : end procedure
5532 : #endif
5533 :
5534 : #undef PSSK_ENABLED
5535 : #endif
5536 :
5537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5538 :
5539 : #define BSSK_ENABLED 1
5540 :
5541 50 : module procedure getRhoWTI_ULD_BSSK
5542 : use pm_kind, only: TKC => SK
5543 : #include "pm_sampleCor@routines.inc.F90"
5544 50 : end procedure
5545 :
5546 : #undef BSSK_ENABLED
5547 :
5548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5549 :
5550 : #undef WTI_ENABLED
5551 :
5552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5555 :
5556 : #define WTR_ENABLED 1
5557 :
5558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5559 :
5560 : #define SK_ENABLED 1
5561 :
5562 : #if SK5_ENABLED
5563 : module procedure getRhoWTR_ULD_SK5
5564 : use pm_kind, only: TKC => SK5
5565 : #include "pm_sampleCor@routines.inc.F90"
5566 : end procedure
5567 : #endif
5568 :
5569 : #if SK4_ENABLED
5570 : module procedure getRhoWTR_ULD_SK4
5571 : use pm_kind, only: TKC => SK4
5572 : #include "pm_sampleCor@routines.inc.F90"
5573 : end procedure
5574 : #endif
5575 :
5576 : #if SK3_ENABLED
5577 : module procedure getRhoWTR_ULD_SK3
5578 : use pm_kind, only: TKC => SK3
5579 : #include "pm_sampleCor@routines.inc.F90"
5580 : end procedure
5581 : #endif
5582 :
5583 : #if SK2_ENABLED
5584 : module procedure getRhoWTR_ULD_SK2
5585 : use pm_kind, only: TKC => SK2
5586 : #include "pm_sampleCor@routines.inc.F90"
5587 : end procedure
5588 : #endif
5589 :
5590 : #if SK1_ENABLED
5591 50 : module procedure getRhoWTR_ULD_SK1
5592 : use pm_kind, only: TKC => SK1
5593 : #include "pm_sampleCor@routines.inc.F90"
5594 50 : end procedure
5595 : #endif
5596 :
5597 : #undef SK_ENABLED
5598 :
5599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5600 :
5601 : #define IK_ENABLED 1
5602 :
5603 : #if IK5_ENABLED
5604 50 : module procedure getRhoWTR_ULD_IK5
5605 : use pm_kind, only: TKC => IK5
5606 : #include "pm_sampleCor@routines.inc.F90"
5607 50 : end procedure
5608 : #endif
5609 :
5610 : #if IK4_ENABLED
5611 50 : module procedure getRhoWTR_ULD_IK4
5612 : use pm_kind, only: TKC => IK4
5613 : #include "pm_sampleCor@routines.inc.F90"
5614 50 : end procedure
5615 : #endif
5616 :
5617 : #if IK3_ENABLED
5618 50 : module procedure getRhoWTR_ULD_IK3
5619 : use pm_kind, only: TKC => IK3
5620 : #include "pm_sampleCor@routines.inc.F90"
5621 50 : end procedure
5622 : #endif
5623 :
5624 : #if IK2_ENABLED
5625 50 : module procedure getRhoWTR_ULD_IK2
5626 : use pm_kind, only: TKC => IK2
5627 : #include "pm_sampleCor@routines.inc.F90"
5628 50 : end procedure
5629 : #endif
5630 :
5631 : #if IK1_ENABLED
5632 50 : module procedure getRhoWTR_ULD_IK1
5633 : use pm_kind, only: TKC => IK1
5634 : #include "pm_sampleCor@routines.inc.F90"
5635 50 : end procedure
5636 : #endif
5637 :
5638 : #undef IK_ENABLED
5639 :
5640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5641 :
5642 : #define RK_ENABLED 1
5643 :
5644 : #if RK5_ENABLED
5645 : module procedure getRhoWTR_ULD_RK5
5646 : use pm_kind, only: TKC => RK5
5647 : #include "pm_sampleCor@routines.inc.F90"
5648 : end procedure
5649 : #endif
5650 :
5651 : #if RK4_ENABLED
5652 50 : module procedure getRhoWTR_ULD_RK4
5653 : use pm_kind, only: TKC => RK4
5654 : #include "pm_sampleCor@routines.inc.F90"
5655 50 : end procedure
5656 : #endif
5657 :
5658 : #if RK3_ENABLED
5659 50 : module procedure getRhoWTR_ULD_RK3
5660 : use pm_kind, only: TKC => RK3
5661 : #include "pm_sampleCor@routines.inc.F90"
5662 50 : end procedure
5663 : #endif
5664 :
5665 : #if RK2_ENABLED
5666 50 : module procedure getRhoWTR_ULD_RK2
5667 : use pm_kind, only: TKC => RK2
5668 : #include "pm_sampleCor@routines.inc.F90"
5669 50 : end procedure
5670 : #endif
5671 :
5672 : #if RK1_ENABLED
5673 52 : module procedure getRhoWTR_ULD_RK1
5674 : use pm_kind, only: TKC => RK1
5675 : #include "pm_sampleCor@routines.inc.F90"
5676 52 : end procedure
5677 : #endif
5678 :
5679 : #undef RK_ENABLED
5680 :
5681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5682 :
5683 : #if !__GFORTRAN__
5684 : #define PSSK_ENABLED 1
5685 :
5686 : #if SK5_ENABLED
5687 : module procedure getRhoWTR_ULD_PSSK5
5688 : use pm_kind, only: TKC => SK5
5689 : #include "pm_sampleCor@routines.inc.F90"
5690 : end procedure
5691 : #endif
5692 :
5693 : #if SK4_ENABLED
5694 : module procedure getRhoWTR_ULD_PSSK4
5695 : use pm_kind, only: TKC => SK4
5696 : #include "pm_sampleCor@routines.inc.F90"
5697 : end procedure
5698 : #endif
5699 :
5700 : #if SK3_ENABLED
5701 : module procedure getRhoWTR_ULD_PSSK3
5702 : use pm_kind, only: TKC => SK3
5703 : #include "pm_sampleCor@routines.inc.F90"
5704 : end procedure
5705 : #endif
5706 :
5707 : #if SK2_ENABLED
5708 : module procedure getRhoWTR_ULD_PSSK2
5709 : use pm_kind, only: TKC => SK2
5710 : #include "pm_sampleCor@routines.inc.F90"
5711 : end procedure
5712 : #endif
5713 :
5714 : #if SK1_ENABLED
5715 : module procedure getRhoWTR_ULD_PSSK1
5716 : use pm_kind, only: TKC => SK1
5717 : #include "pm_sampleCor@routines.inc.F90"
5718 : end procedure
5719 : #endif
5720 :
5721 : #undef PSSK_ENABLED
5722 : #endif
5723 :
5724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5725 :
5726 : #define BSSK_ENABLED 1
5727 :
5728 50 : module procedure getRhoWTR_ULD_BSSK
5729 : use pm_kind, only: TKC => SK
5730 : #include "pm_sampleCor@routines.inc.F90"
5731 50 : end procedure
5732 :
5733 : #undef BSSK_ENABLED
5734 :
5735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5736 :
5737 : #undef WTR_ENABLED
5738 :
5739 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5742 :
5743 : #undef ULD_ENABLED
5744 :
5745 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5748 :
5749 : #undef getRho_ENABLED
5750 :
5751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5752 :
5753 : #define setRho_ENABLED 1
5754 :
5755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5757 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5758 :
5759 : #define XY_D0_ENABLED 1
5760 :
5761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5764 :
5765 : #define WNO_ENABLED 1
5766 :
5767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5768 :
5769 : #define SK_ENABLED 1
5770 :
5771 : #if SK5_ENABLED
5772 : module procedure setRhoWNO_XY_D0_SK5
5773 : use pm_kind, only: TKC => SK5
5774 : #include "pm_sampleCor@routines.inc.F90"
5775 : end procedure
5776 : #endif
5777 :
5778 : #if SK4_ENABLED
5779 : module procedure setRhoWNO_XY_D0_SK4
5780 : use pm_kind, only: TKC => SK4
5781 : #include "pm_sampleCor@routines.inc.F90"
5782 : end procedure
5783 : #endif
5784 :
5785 : #if SK3_ENABLED
5786 : module procedure setRhoWNO_XY_D0_SK3
5787 : use pm_kind, only: TKC => SK3
5788 : #include "pm_sampleCor@routines.inc.F90"
5789 : end procedure
5790 : #endif
5791 :
5792 : #if SK2_ENABLED
5793 : module procedure setRhoWNO_XY_D0_SK2
5794 : use pm_kind, only: TKC => SK2
5795 : #include "pm_sampleCor@routines.inc.F90"
5796 : end procedure
5797 : #endif
5798 :
5799 : #if SK1_ENABLED
5800 101 : module procedure setRhoWNO_XY_D0_SK1
5801 : use pm_kind, only: TKC => SK1
5802 : #include "pm_sampleCor@routines.inc.F90"
5803 101 : end procedure
5804 : #endif
5805 :
5806 : #undef SK_ENABLED
5807 :
5808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5809 :
5810 : #undef WNO_ENABLED
5811 :
5812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5813 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5815 :
5816 : #define WTI_ENABLED 1
5817 :
5818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5819 :
5820 : #define SK_ENABLED 1
5821 :
5822 : #if SK5_ENABLED
5823 : module procedure setRhoWTI_XY_D0_SK5
5824 : use pm_kind, only: TKC => SK5
5825 : #include "pm_sampleCor@routines.inc.F90"
5826 : end procedure
5827 : #endif
5828 :
5829 : #if SK4_ENABLED
5830 : module procedure setRhoWTI_XY_D0_SK4
5831 : use pm_kind, only: TKC => SK4
5832 : #include "pm_sampleCor@routines.inc.F90"
5833 : end procedure
5834 : #endif
5835 :
5836 : #if SK3_ENABLED
5837 : module procedure setRhoWTI_XY_D0_SK3
5838 : use pm_kind, only: TKC => SK3
5839 : #include "pm_sampleCor@routines.inc.F90"
5840 : end procedure
5841 : #endif
5842 :
5843 : #if SK2_ENABLED
5844 : module procedure setRhoWTI_XY_D0_SK2
5845 : use pm_kind, only: TKC => SK2
5846 : #include "pm_sampleCor@routines.inc.F90"
5847 : end procedure
5848 : #endif
5849 :
5850 : #if SK1_ENABLED
5851 100 : module procedure setRhoWTI_XY_D0_SK1
5852 : use pm_kind, only: TKC => SK1
5853 : #include "pm_sampleCor@routines.inc.F90"
5854 100 : end procedure
5855 : #endif
5856 :
5857 : #undef SK_ENABLED
5858 :
5859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5860 :
5861 : #undef WTI_ENABLED
5862 :
5863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5866 :
5867 : #define WTR_ENABLED 1
5868 :
5869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5870 :
5871 : #define SK_ENABLED 1
5872 :
5873 : #if SK5_ENABLED
5874 : module procedure setRhoWTR_XY_D0_SK5
5875 : use pm_kind, only: TKC => SK5
5876 : #include "pm_sampleCor@routines.inc.F90"
5877 : end procedure
5878 : #endif
5879 :
5880 : #if SK4_ENABLED
5881 : module procedure setRhoWTR_XY_D0_SK4
5882 : use pm_kind, only: TKC => SK4
5883 : #include "pm_sampleCor@routines.inc.F90"
5884 : end procedure
5885 : #endif
5886 :
5887 : #if SK3_ENABLED
5888 : module procedure setRhoWTR_XY_D0_SK3
5889 : use pm_kind, only: TKC => SK3
5890 : #include "pm_sampleCor@routines.inc.F90"
5891 : end procedure
5892 : #endif
5893 :
5894 : #if SK2_ENABLED
5895 : module procedure setRhoWTR_XY_D0_SK2
5896 : use pm_kind, only: TKC => SK2
5897 : #include "pm_sampleCor@routines.inc.F90"
5898 : end procedure
5899 : #endif
5900 :
5901 : #if SK1_ENABLED
5902 100 : module procedure setRhoWTR_XY_D0_SK1
5903 : use pm_kind, only: TKC => SK1
5904 : #include "pm_sampleCor@routines.inc.F90"
5905 100 : end procedure
5906 : #endif
5907 :
5908 : #undef SK_ENABLED
5909 :
5910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5911 :
5912 : #undef WTR_ENABLED
5913 :
5914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5917 :
5918 : #undef XY_D0_ENABLED
5919 :
5920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5923 :
5924 : #undef setRho_ENABLED
5925 :
5926 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5927 :
5928 : #define setRho_ENABLED 1
5929 :
5930 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5931 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5933 :
5934 : #define XY_D1_ENABLED 1
5935 :
5936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5939 :
5940 : #define WNO_ENABLED 1
5941 :
5942 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5943 :
5944 : #define SK_ENABLED 1
5945 :
5946 : #if SK5_ENABLED
5947 : module procedure setRhoWNO_XY_D1_SK5
5948 : use pm_kind, only: TKC => SK5
5949 : #include "pm_sampleCor@routines.inc.F90"
5950 : end procedure
5951 : #endif
5952 :
5953 : #if SK4_ENABLED
5954 : module procedure setRhoWNO_XY_D1_SK4
5955 : use pm_kind, only: TKC => SK4
5956 : #include "pm_sampleCor@routines.inc.F90"
5957 : end procedure
5958 : #endif
5959 :
5960 : #if SK3_ENABLED
5961 : module procedure setRhoWNO_XY_D1_SK3
5962 : use pm_kind, only: TKC => SK3
5963 : #include "pm_sampleCor@routines.inc.F90"
5964 : end procedure
5965 : #endif
5966 :
5967 : #if SK2_ENABLED
5968 : module procedure setRhoWNO_XY_D1_SK2
5969 : use pm_kind, only: TKC => SK2
5970 : #include "pm_sampleCor@routines.inc.F90"
5971 : end procedure
5972 : #endif
5973 :
5974 : #if SK1_ENABLED
5975 101 : module procedure setRhoWNO_XY_D1_SK1
5976 : use pm_kind, only: TKC => SK1
5977 : #include "pm_sampleCor@routines.inc.F90"
5978 101 : end procedure
5979 : #endif
5980 :
5981 : #undef SK_ENABLED
5982 :
5983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5984 :
5985 : #define IK_ENABLED 1
5986 :
5987 : #if IK5_ENABLED
5988 100 : module procedure setRhoWNO_XY_D1_IK5
5989 : use pm_kind, only: TKC => IK5
5990 : #include "pm_sampleCor@routines.inc.F90"
5991 100 : end procedure
5992 : #endif
5993 :
5994 : #if IK4_ENABLED
5995 100 : module procedure setRhoWNO_XY_D1_IK4
5996 : use pm_kind, only: TKC => IK4
5997 : #include "pm_sampleCor@routines.inc.F90"
5998 100 : end procedure
5999 : #endif
6000 :
6001 : #if IK3_ENABLED
6002 101 : module procedure setRhoWNO_XY_D1_IK3
6003 : use pm_kind, only: TKC => IK3
6004 : #include "pm_sampleCor@routines.inc.F90"
6005 101 : end procedure
6006 : #endif
6007 :
6008 : #if IK2_ENABLED
6009 100 : module procedure setRhoWNO_XY_D1_IK2
6010 : use pm_kind, only: TKC => IK2
6011 : #include "pm_sampleCor@routines.inc.F90"
6012 100 : end procedure
6013 : #endif
6014 :
6015 : #if IK1_ENABLED
6016 100 : module procedure setRhoWNO_XY_D1_IK1
6017 : use pm_kind, only: TKC => IK1
6018 : #include "pm_sampleCor@routines.inc.F90"
6019 100 : end procedure
6020 : #endif
6021 :
6022 : #undef IK_ENABLED
6023 :
6024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6025 :
6026 : #define RK_ENABLED 1
6027 :
6028 : #if RK5_ENABLED
6029 : module procedure setRhoWNO_XY_D1_RK5
6030 : use pm_kind, only: TKC => RK5
6031 : #include "pm_sampleCor@routines.inc.F90"
6032 : end procedure
6033 : #endif
6034 :
6035 : #if RK4_ENABLED
6036 100 : module procedure setRhoWNO_XY_D1_RK4
6037 : use pm_kind, only: TKC => RK4
6038 : #include "pm_sampleCor@routines.inc.F90"
6039 100 : end procedure
6040 : #endif
6041 :
6042 : #if RK3_ENABLED
6043 100 : module procedure setRhoWNO_XY_D1_RK3
6044 : use pm_kind, only: TKC => RK3
6045 : #include "pm_sampleCor@routines.inc.F90"
6046 100 : end procedure
6047 : #endif
6048 :
6049 : #if RK2_ENABLED
6050 100 : module procedure setRhoWNO_XY_D1_RK2
6051 : use pm_kind, only: TKC => RK2
6052 : #include "pm_sampleCor@routines.inc.F90"
6053 100 : end procedure
6054 : #endif
6055 :
6056 : #if RK1_ENABLED
6057 102 : module procedure setRhoWNO_XY_D1_RK1
6058 : use pm_kind, only: TKC => RK1
6059 : #include "pm_sampleCor@routines.inc.F90"
6060 102 : end procedure
6061 : #endif
6062 :
6063 : #undef RK_ENABLED
6064 :
6065 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6066 :
6067 : #if !__GFORTRAN__
6068 : #define PSSK_ENABLED 1
6069 :
6070 : #if SK5_ENABLED
6071 : module procedure setRhoWNO_XY_D1_PSSK5
6072 : use pm_kind, only: TKC => SK5
6073 : #include "pm_sampleCor@routines.inc.F90"
6074 : end procedure
6075 : #endif
6076 :
6077 : #if SK4_ENABLED
6078 : module procedure setRhoWNO_XY_D1_PSSK4
6079 : use pm_kind, only: TKC => SK4
6080 : #include "pm_sampleCor@routines.inc.F90"
6081 : end procedure
6082 : #endif
6083 :
6084 : #if SK3_ENABLED
6085 : module procedure setRhoWNO_XY_D1_PSSK3
6086 : use pm_kind, only: TKC => SK3
6087 : #include "pm_sampleCor@routines.inc.F90"
6088 : end procedure
6089 : #endif
6090 :
6091 : #if SK2_ENABLED
6092 : module procedure setRhoWNO_XY_D1_PSSK2
6093 : use pm_kind, only: TKC => SK2
6094 : #include "pm_sampleCor@routines.inc.F90"
6095 : end procedure
6096 : #endif
6097 :
6098 : #if SK1_ENABLED
6099 : module procedure setRhoWNO_XY_D1_PSSK1
6100 : use pm_kind, only: TKC => SK1
6101 : #include "pm_sampleCor@routines.inc.F90"
6102 : end procedure
6103 : #endif
6104 :
6105 : #undef PSSK_ENABLED
6106 : #endif
6107 :
6108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6109 :
6110 : #define BSSK_ENABLED 1
6111 :
6112 100 : module procedure setRhoWNO_XY_D1_BSSK
6113 : use pm_kind, only: TKC => SK
6114 : #include "pm_sampleCor@routines.inc.F90"
6115 100 : end procedure
6116 :
6117 : #undef BSSK_ENABLED
6118 :
6119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6120 :
6121 : #undef WNO_ENABLED
6122 :
6123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6126 :
6127 : #define WTI_ENABLED 1
6128 :
6129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6130 :
6131 : #define SK_ENABLED 1
6132 :
6133 : #if SK5_ENABLED
6134 : module procedure setRhoWTI_XY_D1_SK5
6135 : use pm_kind, only: TKC => SK5
6136 : #include "pm_sampleCor@routines.inc.F90"
6137 : end procedure
6138 : #endif
6139 :
6140 : #if SK4_ENABLED
6141 : module procedure setRhoWTI_XY_D1_SK4
6142 : use pm_kind, only: TKC => SK4
6143 : #include "pm_sampleCor@routines.inc.F90"
6144 : end procedure
6145 : #endif
6146 :
6147 : #if SK3_ENABLED
6148 : module procedure setRhoWTI_XY_D1_SK3
6149 : use pm_kind, only: TKC => SK3
6150 : #include "pm_sampleCor@routines.inc.F90"
6151 : end procedure
6152 : #endif
6153 :
6154 : #if SK2_ENABLED
6155 : module procedure setRhoWTI_XY_D1_SK2
6156 : use pm_kind, only: TKC => SK2
6157 : #include "pm_sampleCor@routines.inc.F90"
6158 : end procedure
6159 : #endif
6160 :
6161 : #if SK1_ENABLED
6162 100 : module procedure setRhoWTI_XY_D1_SK1
6163 : use pm_kind, only: TKC => SK1
6164 : #include "pm_sampleCor@routines.inc.F90"
6165 100 : end procedure
6166 : #endif
6167 :
6168 : #undef SK_ENABLED
6169 :
6170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6171 :
6172 : #define IK_ENABLED 1
6173 :
6174 : #if IK5_ENABLED
6175 100 : module procedure setRhoWTI_XY_D1_IK5
6176 : use pm_kind, only: TKC => IK5
6177 : #include "pm_sampleCor@routines.inc.F90"
6178 100 : end procedure
6179 : #endif
6180 :
6181 : #if IK4_ENABLED
6182 100 : module procedure setRhoWTI_XY_D1_IK4
6183 : use pm_kind, only: TKC => IK4
6184 : #include "pm_sampleCor@routines.inc.F90"
6185 100 : end procedure
6186 : #endif
6187 :
6188 : #if IK3_ENABLED
6189 100 : module procedure setRhoWTI_XY_D1_IK3
6190 : use pm_kind, only: TKC => IK3
6191 : #include "pm_sampleCor@routines.inc.F90"
6192 100 : end procedure
6193 : #endif
6194 :
6195 : #if IK2_ENABLED
6196 100 : module procedure setRhoWTI_XY_D1_IK2
6197 : use pm_kind, only: TKC => IK2
6198 : #include "pm_sampleCor@routines.inc.F90"
6199 100 : end procedure
6200 : #endif
6201 :
6202 : #if IK1_ENABLED
6203 100 : module procedure setRhoWTI_XY_D1_IK1
6204 : use pm_kind, only: TKC => IK1
6205 : #include "pm_sampleCor@routines.inc.F90"
6206 100 : end procedure
6207 : #endif
6208 :
6209 : #undef IK_ENABLED
6210 :
6211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6212 :
6213 : #define RK_ENABLED 1
6214 :
6215 : #if RK5_ENABLED
6216 : module procedure setRhoWTI_XY_D1_RK5
6217 : use pm_kind, only: TKC => RK5
6218 : #include "pm_sampleCor@routines.inc.F90"
6219 : end procedure
6220 : #endif
6221 :
6222 : #if RK4_ENABLED
6223 100 : module procedure setRhoWTI_XY_D1_RK4
6224 : use pm_kind, only: TKC => RK4
6225 : #include "pm_sampleCor@routines.inc.F90"
6226 100 : end procedure
6227 : #endif
6228 :
6229 : #if RK3_ENABLED
6230 100 : module procedure setRhoWTI_XY_D1_RK3
6231 : use pm_kind, only: TKC => RK3
6232 : #include "pm_sampleCor@routines.inc.F90"
6233 100 : end procedure
6234 : #endif
6235 :
6236 : #if RK2_ENABLED
6237 100 : module procedure setRhoWTI_XY_D1_RK2
6238 : use pm_kind, only: TKC => RK2
6239 : #include "pm_sampleCor@routines.inc.F90"
6240 100 : end procedure
6241 : #endif
6242 :
6243 : #if RK1_ENABLED
6244 102 : module procedure setRhoWTI_XY_D1_RK1
6245 : use pm_kind, only: TKC => RK1
6246 : #include "pm_sampleCor@routines.inc.F90"
6247 102 : end procedure
6248 : #endif
6249 :
6250 : #undef RK_ENABLED
6251 :
6252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6253 :
6254 : #if !__GFORTRAN__
6255 : #define PSSK_ENABLED 1
6256 :
6257 : #if SK5_ENABLED
6258 : module procedure setRhoWTI_XY_D1_PSSK5
6259 : use pm_kind, only: TKC => SK5
6260 : #include "pm_sampleCor@routines.inc.F90"
6261 : end procedure
6262 : #endif
6263 :
6264 : #if SK4_ENABLED
6265 : module procedure setRhoWTI_XY_D1_PSSK4
6266 : use pm_kind, only: TKC => SK4
6267 : #include "pm_sampleCor@routines.inc.F90"
6268 : end procedure
6269 : #endif
6270 :
6271 : #if SK3_ENABLED
6272 : module procedure setRhoWTI_XY_D1_PSSK3
6273 : use pm_kind, only: TKC => SK3
6274 : #include "pm_sampleCor@routines.inc.F90"
6275 : end procedure
6276 : #endif
6277 :
6278 : #if SK2_ENABLED
6279 : module procedure setRhoWTI_XY_D1_PSSK2
6280 : use pm_kind, only: TKC => SK2
6281 : #include "pm_sampleCor@routines.inc.F90"
6282 : end procedure
6283 : #endif
6284 :
6285 : #if SK1_ENABLED
6286 : module procedure setRhoWTI_XY_D1_PSSK1
6287 : use pm_kind, only: TKC => SK1
6288 : #include "pm_sampleCor@routines.inc.F90"
6289 : end procedure
6290 : #endif
6291 :
6292 : #undef PSSK_ENABLED
6293 : #endif
6294 :
6295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6296 :
6297 : #define BSSK_ENABLED 1
6298 :
6299 100 : module procedure setRhoWTI_XY_D1_BSSK
6300 : use pm_kind, only: TKC => SK
6301 : #include "pm_sampleCor@routines.inc.F90"
6302 100 : end procedure
6303 :
6304 : #undef BSSK_ENABLED
6305 :
6306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6307 :
6308 : #undef WTI_ENABLED
6309 :
6310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6313 :
6314 : #define WTR_ENABLED 1
6315 :
6316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6317 :
6318 : #define SK_ENABLED 1
6319 :
6320 : #if SK5_ENABLED
6321 : module procedure setRhoWTR_XY_D1_SK5
6322 : use pm_kind, only: TKC => SK5
6323 : #include "pm_sampleCor@routines.inc.F90"
6324 : end procedure
6325 : #endif
6326 :
6327 : #if SK4_ENABLED
6328 : module procedure setRhoWTR_XY_D1_SK4
6329 : use pm_kind, only: TKC => SK4
6330 : #include "pm_sampleCor@routines.inc.F90"
6331 : end procedure
6332 : #endif
6333 :
6334 : #if SK3_ENABLED
6335 : module procedure setRhoWTR_XY_D1_SK3
6336 : use pm_kind, only: TKC => SK3
6337 : #include "pm_sampleCor@routines.inc.F90"
6338 : end procedure
6339 : #endif
6340 :
6341 : #if SK2_ENABLED
6342 : module procedure setRhoWTR_XY_D1_SK2
6343 : use pm_kind, only: TKC => SK2
6344 : #include "pm_sampleCor@routines.inc.F90"
6345 : end procedure
6346 : #endif
6347 :
6348 : #if SK1_ENABLED
6349 100 : module procedure setRhoWTR_XY_D1_SK1
6350 : use pm_kind, only: TKC => SK1
6351 : #include "pm_sampleCor@routines.inc.F90"
6352 100 : end procedure
6353 : #endif
6354 :
6355 : #undef SK_ENABLED
6356 :
6357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6358 :
6359 : #define IK_ENABLED 1
6360 :
6361 : #if IK5_ENABLED
6362 100 : module procedure setRhoWTR_XY_D1_IK5
6363 : use pm_kind, only: TKC => IK5
6364 : #include "pm_sampleCor@routines.inc.F90"
6365 100 : end procedure
6366 : #endif
6367 :
6368 : #if IK4_ENABLED
6369 100 : module procedure setRhoWTR_XY_D1_IK4
6370 : use pm_kind, only: TKC => IK4
6371 : #include "pm_sampleCor@routines.inc.F90"
6372 100 : end procedure
6373 : #endif
6374 :
6375 : #if IK3_ENABLED
6376 100 : module procedure setRhoWTR_XY_D1_IK3
6377 : use pm_kind, only: TKC => IK3
6378 : #include "pm_sampleCor@routines.inc.F90"
6379 100 : end procedure
6380 : #endif
6381 :
6382 : #if IK2_ENABLED
6383 100 : module procedure setRhoWTR_XY_D1_IK2
6384 : use pm_kind, only: TKC => IK2
6385 : #include "pm_sampleCor@routines.inc.F90"
6386 100 : end procedure
6387 : #endif
6388 :
6389 : #if IK1_ENABLED
6390 100 : module procedure setRhoWTR_XY_D1_IK1
6391 : use pm_kind, only: TKC => IK1
6392 : #include "pm_sampleCor@routines.inc.F90"
6393 100 : end procedure
6394 : #endif
6395 :
6396 : #undef IK_ENABLED
6397 :
6398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6399 :
6400 : #define RK_ENABLED 1
6401 :
6402 : #if RK5_ENABLED
6403 : module procedure setRhoWTR_XY_D1_RK5
6404 : use pm_kind, only: TKC => RK5
6405 : #include "pm_sampleCor@routines.inc.F90"
6406 : end procedure
6407 : #endif
6408 :
6409 : #if RK4_ENABLED
6410 100 : module procedure setRhoWTR_XY_D1_RK4
6411 : use pm_kind, only: TKC => RK4
6412 : #include "pm_sampleCor@routines.inc.F90"
6413 100 : end procedure
6414 : #endif
6415 :
6416 : #if RK3_ENABLED
6417 100 : module procedure setRhoWTR_XY_D1_RK3
6418 : use pm_kind, only: TKC => RK3
6419 : #include "pm_sampleCor@routines.inc.F90"
6420 100 : end procedure
6421 : #endif
6422 :
6423 : #if RK2_ENABLED
6424 100 : module procedure setRhoWTR_XY_D1_RK2
6425 : use pm_kind, only: TKC => RK2
6426 : #include "pm_sampleCor@routines.inc.F90"
6427 100 : end procedure
6428 : #endif
6429 :
6430 : #if RK1_ENABLED
6431 102 : module procedure setRhoWTR_XY_D1_RK1
6432 : use pm_kind, only: TKC => RK1
6433 : #include "pm_sampleCor@routines.inc.F90"
6434 102 : end procedure
6435 : #endif
6436 :
6437 : #undef RK_ENABLED
6438 :
6439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6440 :
6441 : #if !__GFORTRAN__
6442 : #define PSSK_ENABLED 1
6443 :
6444 : #if SK5_ENABLED
6445 : module procedure setRhoWTR_XY_D1_PSSK5
6446 : use pm_kind, only: TKC => SK5
6447 : #include "pm_sampleCor@routines.inc.F90"
6448 : end procedure
6449 : #endif
6450 :
6451 : #if SK4_ENABLED
6452 : module procedure setRhoWTR_XY_D1_PSSK4
6453 : use pm_kind, only: TKC => SK4
6454 : #include "pm_sampleCor@routines.inc.F90"
6455 : end procedure
6456 : #endif
6457 :
6458 : #if SK3_ENABLED
6459 : module procedure setRhoWTR_XY_D1_PSSK3
6460 : use pm_kind, only: TKC => SK3
6461 : #include "pm_sampleCor@routines.inc.F90"
6462 : end procedure
6463 : #endif
6464 :
6465 : #if SK2_ENABLED
6466 : module procedure setRhoWTR_XY_D1_PSSK2
6467 : use pm_kind, only: TKC => SK2
6468 : #include "pm_sampleCor@routines.inc.F90"
6469 : end procedure
6470 : #endif
6471 :
6472 : #if SK1_ENABLED
6473 : module procedure setRhoWTR_XY_D1_PSSK1
6474 : use pm_kind, only: TKC => SK1
6475 : #include "pm_sampleCor@routines.inc.F90"
6476 : end procedure
6477 : #endif
6478 :
6479 : #undef PSSK_ENABLED
6480 : #endif
6481 :
6482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6483 :
6484 : #define BSSK_ENABLED 1
6485 :
6486 100 : module procedure setRhoWTR_XY_D1_BSSK
6487 : use pm_kind, only: TKC => SK
6488 : #include "pm_sampleCor@routines.inc.F90"
6489 100 : end procedure
6490 :
6491 : #undef BSSK_ENABLED
6492 :
6493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6494 :
6495 : #undef WTR_ENABLED
6496 :
6497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6500 :
6501 : #undef XY_D1_ENABLED
6502 :
6503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6506 :
6507 : #undef setRho_ENABLED
6508 :
6509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6510 :
6511 : #define setRho_ENABLED 1
6512 :
6513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6516 :
6517 : #define UXD_ENABLED 1
6518 :
6519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6522 :
6523 : #define WNO_ENABLED 1
6524 :
6525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6526 :
6527 : #define SK_ENABLED 1
6528 :
6529 : #if SK5_ENABLED
6530 : module procedure setRhoWNO_UXD_SK5
6531 : use pm_kind, only: TKC => SK5
6532 : #include "pm_sampleCor@routines.inc.F90"
6533 : end procedure
6534 : #endif
6535 :
6536 : #if SK4_ENABLED
6537 : module procedure setRhoWNO_UXD_SK4
6538 : use pm_kind, only: TKC => SK4
6539 : #include "pm_sampleCor@routines.inc.F90"
6540 : end procedure
6541 : #endif
6542 :
6543 : #if SK3_ENABLED
6544 : module procedure setRhoWNO_UXD_SK3
6545 : use pm_kind, only: TKC => SK3
6546 : #include "pm_sampleCor@routines.inc.F90"
6547 : end procedure
6548 : #endif
6549 :
6550 : #if SK2_ENABLED
6551 : module procedure setRhoWNO_UXD_SK2
6552 : use pm_kind, only: TKC => SK2
6553 : #include "pm_sampleCor@routines.inc.F90"
6554 : end procedure
6555 : #endif
6556 :
6557 : #if SK1_ENABLED
6558 102 : module procedure setRhoWNO_UXD_SK1
6559 : use pm_kind, only: TKC => SK1
6560 : #include "pm_sampleCor@routines.inc.F90"
6561 102 : end procedure
6562 : #endif
6563 :
6564 : #undef SK_ENABLED
6565 :
6566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6567 :
6568 : #define IK_ENABLED 1
6569 :
6570 : #if IK5_ENABLED
6571 100 : module procedure setRhoWNO_UXD_IK5
6572 : use pm_kind, only: TKC => IK5
6573 : #include "pm_sampleCor@routines.inc.F90"
6574 100 : end procedure
6575 : #endif
6576 :
6577 : #if IK4_ENABLED
6578 100 : module procedure setRhoWNO_UXD_IK4
6579 : use pm_kind, only: TKC => IK4
6580 : #include "pm_sampleCor@routines.inc.F90"
6581 100 : end procedure
6582 : #endif
6583 :
6584 : #if IK3_ENABLED
6585 102 : module procedure setRhoWNO_UXD_IK3
6586 : use pm_kind, only: TKC => IK3
6587 : #include "pm_sampleCor@routines.inc.F90"
6588 102 : end procedure
6589 : #endif
6590 :
6591 : #if IK2_ENABLED
6592 100 : module procedure setRhoWNO_UXD_IK2
6593 : use pm_kind, only: TKC => IK2
6594 : #include "pm_sampleCor@routines.inc.F90"
6595 100 : end procedure
6596 : #endif
6597 :
6598 : #if IK1_ENABLED
6599 100 : module procedure setRhoWNO_UXD_IK1
6600 : use pm_kind, only: TKC => IK1
6601 : #include "pm_sampleCor@routines.inc.F90"
6602 100 : end procedure
6603 : #endif
6604 :
6605 : #undef IK_ENABLED
6606 :
6607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6608 :
6609 : #define RK_ENABLED 1
6610 :
6611 : #if RK5_ENABLED
6612 : module procedure setRhoWNO_UXD_RK5
6613 : use pm_kind, only: TKC => RK5
6614 : #include "pm_sampleCor@routines.inc.F90"
6615 : end procedure
6616 : #endif
6617 :
6618 : #if RK4_ENABLED
6619 100 : module procedure setRhoWNO_UXD_RK4
6620 : use pm_kind, only: TKC => RK4
6621 : #include "pm_sampleCor@routines.inc.F90"
6622 100 : end procedure
6623 : #endif
6624 :
6625 : #if RK3_ENABLED
6626 100 : module procedure setRhoWNO_UXD_RK3
6627 : use pm_kind, only: TKC => RK3
6628 : #include "pm_sampleCor@routines.inc.F90"
6629 100 : end procedure
6630 : #endif
6631 :
6632 : #if RK2_ENABLED
6633 100 : module procedure setRhoWNO_UXD_RK2
6634 : use pm_kind, only: TKC => RK2
6635 : #include "pm_sampleCor@routines.inc.F90"
6636 100 : end procedure
6637 : #endif
6638 :
6639 : #if RK1_ENABLED
6640 104 : module procedure setRhoWNO_UXD_RK1
6641 : use pm_kind, only: TKC => RK1
6642 : #include "pm_sampleCor@routines.inc.F90"
6643 104 : end procedure
6644 : #endif
6645 :
6646 : #undef RK_ENABLED
6647 :
6648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6649 :
6650 : #if !__GFORTRAN__
6651 : #define PSSK_ENABLED 1
6652 :
6653 : #if SK5_ENABLED
6654 : module procedure setRhoWNO_UXD_PSSK5
6655 : use pm_kind, only: TKC => SK5
6656 : #include "pm_sampleCor@routines.inc.F90"
6657 : end procedure
6658 : #endif
6659 :
6660 : #if SK4_ENABLED
6661 : module procedure setRhoWNO_UXD_PSSK4
6662 : use pm_kind, only: TKC => SK4
6663 : #include "pm_sampleCor@routines.inc.F90"
6664 : end procedure
6665 : #endif
6666 :
6667 : #if SK3_ENABLED
6668 : module procedure setRhoWNO_UXD_PSSK3
6669 : use pm_kind, only: TKC => SK3
6670 : #include "pm_sampleCor@routines.inc.F90"
6671 : end procedure
6672 : #endif
6673 :
6674 : #if SK2_ENABLED
6675 : module procedure setRhoWNO_UXD_PSSK2
6676 : use pm_kind, only: TKC => SK2
6677 : #include "pm_sampleCor@routines.inc.F90"
6678 : end procedure
6679 : #endif
6680 :
6681 : #if SK1_ENABLED
6682 : module procedure setRhoWNO_UXD_PSSK1
6683 : use pm_kind, only: TKC => SK1
6684 : #include "pm_sampleCor@routines.inc.F90"
6685 : end procedure
6686 : #endif
6687 :
6688 : #undef PSSK_ENABLED
6689 : #endif
6690 :
6691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6692 :
6693 : #define BSSK_ENABLED 1
6694 :
6695 100 : module procedure setRhoWNO_UXD_BSSK
6696 : use pm_kind, only: TKC => SK
6697 : #include "pm_sampleCor@routines.inc.F90"
6698 100 : end procedure
6699 :
6700 : #undef BSSK_ENABLED
6701 :
6702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6703 :
6704 : #undef WNO_ENABLED
6705 :
6706 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6708 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6709 :
6710 : #define WTI_ENABLED 1
6711 :
6712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6713 :
6714 : #define SK_ENABLED 1
6715 :
6716 : #if SK5_ENABLED
6717 : module procedure setRhoWTI_UXD_SK5
6718 : use pm_kind, only: TKC => SK5
6719 : #include "pm_sampleCor@routines.inc.F90"
6720 : end procedure
6721 : #endif
6722 :
6723 : #if SK4_ENABLED
6724 : module procedure setRhoWTI_UXD_SK4
6725 : use pm_kind, only: TKC => SK4
6726 : #include "pm_sampleCor@routines.inc.F90"
6727 : end procedure
6728 : #endif
6729 :
6730 : #if SK3_ENABLED
6731 : module procedure setRhoWTI_UXD_SK3
6732 : use pm_kind, only: TKC => SK3
6733 : #include "pm_sampleCor@routines.inc.F90"
6734 : end procedure
6735 : #endif
6736 :
6737 : #if SK2_ENABLED
6738 : module procedure setRhoWTI_UXD_SK2
6739 : use pm_kind, only: TKC => SK2
6740 : #include "pm_sampleCor@routines.inc.F90"
6741 : end procedure
6742 : #endif
6743 :
6744 : #if SK1_ENABLED
6745 100 : module procedure setRhoWTI_UXD_SK1
6746 : use pm_kind, only: TKC => SK1
6747 : #include "pm_sampleCor@routines.inc.F90"
6748 100 : end procedure
6749 : #endif
6750 :
6751 : #undef SK_ENABLED
6752 :
6753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6754 :
6755 : #define IK_ENABLED 1
6756 :
6757 : #if IK5_ENABLED
6758 100 : module procedure setRhoWTI_UXD_IK5
6759 : use pm_kind, only: TKC => IK5
6760 : #include "pm_sampleCor@routines.inc.F90"
6761 100 : end procedure
6762 : #endif
6763 :
6764 : #if IK4_ENABLED
6765 100 : module procedure setRhoWTI_UXD_IK4
6766 : use pm_kind, only: TKC => IK4
6767 : #include "pm_sampleCor@routines.inc.F90"
6768 100 : end procedure
6769 : #endif
6770 :
6771 : #if IK3_ENABLED
6772 100 : module procedure setRhoWTI_UXD_IK3
6773 : use pm_kind, only: TKC => IK3
6774 : #include "pm_sampleCor@routines.inc.F90"
6775 100 : end procedure
6776 : #endif
6777 :
6778 : #if IK2_ENABLED
6779 100 : module procedure setRhoWTI_UXD_IK2
6780 : use pm_kind, only: TKC => IK2
6781 : #include "pm_sampleCor@routines.inc.F90"
6782 100 : end procedure
6783 : #endif
6784 :
6785 : #if IK1_ENABLED
6786 100 : module procedure setRhoWTI_UXD_IK1
6787 : use pm_kind, only: TKC => IK1
6788 : #include "pm_sampleCor@routines.inc.F90"
6789 100 : end procedure
6790 : #endif
6791 :
6792 : #undef IK_ENABLED
6793 :
6794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6795 :
6796 : #define RK_ENABLED 1
6797 :
6798 : #if RK5_ENABLED
6799 : module procedure setRhoWTI_UXD_RK5
6800 : use pm_kind, only: TKC => RK5
6801 : #include "pm_sampleCor@routines.inc.F90"
6802 : end procedure
6803 : #endif
6804 :
6805 : #if RK4_ENABLED
6806 100 : module procedure setRhoWTI_UXD_RK4
6807 : use pm_kind, only: TKC => RK4
6808 : #include "pm_sampleCor@routines.inc.F90"
6809 100 : end procedure
6810 : #endif
6811 :
6812 : #if RK3_ENABLED
6813 100 : module procedure setRhoWTI_UXD_RK3
6814 : use pm_kind, only: TKC => RK3
6815 : #include "pm_sampleCor@routines.inc.F90"
6816 100 : end procedure
6817 : #endif
6818 :
6819 : #if RK2_ENABLED
6820 100 : module procedure setRhoWTI_UXD_RK2
6821 : use pm_kind, only: TKC => RK2
6822 : #include "pm_sampleCor@routines.inc.F90"
6823 100 : end procedure
6824 : #endif
6825 :
6826 : #if RK1_ENABLED
6827 104 : module procedure setRhoWTI_UXD_RK1
6828 : use pm_kind, only: TKC => RK1
6829 : #include "pm_sampleCor@routines.inc.F90"
6830 104 : end procedure
6831 : #endif
6832 :
6833 : #undef RK_ENABLED
6834 :
6835 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6836 :
6837 : #if !__GFORTRAN__
6838 : #define PSSK_ENABLED 1
6839 :
6840 : #if SK5_ENABLED
6841 : module procedure setRhoWTI_UXD_PSSK5
6842 : use pm_kind, only: TKC => SK5
6843 : #include "pm_sampleCor@routines.inc.F90"
6844 : end procedure
6845 : #endif
6846 :
6847 : #if SK4_ENABLED
6848 : module procedure setRhoWTI_UXD_PSSK4
6849 : use pm_kind, only: TKC => SK4
6850 : #include "pm_sampleCor@routines.inc.F90"
6851 : end procedure
6852 : #endif
6853 :
6854 : #if SK3_ENABLED
6855 : module procedure setRhoWTI_UXD_PSSK3
6856 : use pm_kind, only: TKC => SK3
6857 : #include "pm_sampleCor@routines.inc.F90"
6858 : end procedure
6859 : #endif
6860 :
6861 : #if SK2_ENABLED
6862 : module procedure setRhoWTI_UXD_PSSK2
6863 : use pm_kind, only: TKC => SK2
6864 : #include "pm_sampleCor@routines.inc.F90"
6865 : end procedure
6866 : #endif
6867 :
6868 : #if SK1_ENABLED
6869 : module procedure setRhoWTI_UXD_PSSK1
6870 : use pm_kind, only: TKC => SK1
6871 : #include "pm_sampleCor@routines.inc.F90"
6872 : end procedure
6873 : #endif
6874 :
6875 : #undef PSSK_ENABLED
6876 : #endif
6877 :
6878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6879 :
6880 : #define BSSK_ENABLED 1
6881 :
6882 100 : module procedure setRhoWTI_UXD_BSSK
6883 : use pm_kind, only: TKC => SK
6884 : #include "pm_sampleCor@routines.inc.F90"
6885 100 : end procedure
6886 :
6887 : #undef BSSK_ENABLED
6888 :
6889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6890 :
6891 : #undef WTI_ENABLED
6892 :
6893 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6896 :
6897 : #define WTR_ENABLED 1
6898 :
6899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6900 :
6901 : #define SK_ENABLED 1
6902 :
6903 : #if SK5_ENABLED
6904 : module procedure setRhoWTR_UXD_SK5
6905 : use pm_kind, only: TKC => SK5
6906 : #include "pm_sampleCor@routines.inc.F90"
6907 : end procedure
6908 : #endif
6909 :
6910 : #if SK4_ENABLED
6911 : module procedure setRhoWTR_UXD_SK4
6912 : use pm_kind, only: TKC => SK4
6913 : #include "pm_sampleCor@routines.inc.F90"
6914 : end procedure
6915 : #endif
6916 :
6917 : #if SK3_ENABLED
6918 : module procedure setRhoWTR_UXD_SK3
6919 : use pm_kind, only: TKC => SK3
6920 : #include "pm_sampleCor@routines.inc.F90"
6921 : end procedure
6922 : #endif
6923 :
6924 : #if SK2_ENABLED
6925 : module procedure setRhoWTR_UXD_SK2
6926 : use pm_kind, only: TKC => SK2
6927 : #include "pm_sampleCor@routines.inc.F90"
6928 : end procedure
6929 : #endif
6930 :
6931 : #if SK1_ENABLED
6932 100 : module procedure setRhoWTR_UXD_SK1
6933 : use pm_kind, only: TKC => SK1
6934 : #include "pm_sampleCor@routines.inc.F90"
6935 100 : end procedure
6936 : #endif
6937 :
6938 : #undef SK_ENABLED
6939 :
6940 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6941 :
6942 : #define IK_ENABLED 1
6943 :
6944 : #if IK5_ENABLED
6945 100 : module procedure setRhoWTR_UXD_IK5
6946 : use pm_kind, only: TKC => IK5
6947 : #include "pm_sampleCor@routines.inc.F90"
6948 100 : end procedure
6949 : #endif
6950 :
6951 : #if IK4_ENABLED
6952 100 : module procedure setRhoWTR_UXD_IK4
6953 : use pm_kind, only: TKC => IK4
6954 : #include "pm_sampleCor@routines.inc.F90"
6955 100 : end procedure
6956 : #endif
6957 :
6958 : #if IK3_ENABLED
6959 100 : module procedure setRhoWTR_UXD_IK3
6960 : use pm_kind, only: TKC => IK3
6961 : #include "pm_sampleCor@routines.inc.F90"
6962 100 : end procedure
6963 : #endif
6964 :
6965 : #if IK2_ENABLED
6966 100 : module procedure setRhoWTR_UXD_IK2
6967 : use pm_kind, only: TKC => IK2
6968 : #include "pm_sampleCor@routines.inc.F90"
6969 100 : end procedure
6970 : #endif
6971 :
6972 : #if IK1_ENABLED
6973 100 : module procedure setRhoWTR_UXD_IK1
6974 : use pm_kind, only: TKC => IK1
6975 : #include "pm_sampleCor@routines.inc.F90"
6976 100 : end procedure
6977 : #endif
6978 :
6979 : #undef IK_ENABLED
6980 :
6981 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6982 :
6983 : #define RK_ENABLED 1
6984 :
6985 : #if RK5_ENABLED
6986 : module procedure setRhoWTR_UXD_RK5
6987 : use pm_kind, only: TKC => RK5
6988 : #include "pm_sampleCor@routines.inc.F90"
6989 : end procedure
6990 : #endif
6991 :
6992 : #if RK4_ENABLED
6993 100 : module procedure setRhoWTR_UXD_RK4
6994 : use pm_kind, only: TKC => RK4
6995 : #include "pm_sampleCor@routines.inc.F90"
6996 100 : end procedure
6997 : #endif
6998 :
6999 : #if RK3_ENABLED
7000 100 : module procedure setRhoWTR_UXD_RK3
7001 : use pm_kind, only: TKC => RK3
7002 : #include "pm_sampleCor@routines.inc.F90"
7003 100 : end procedure
7004 : #endif
7005 :
7006 : #if RK2_ENABLED
7007 100 : module procedure setRhoWTR_UXD_RK2
7008 : use pm_kind, only: TKC => RK2
7009 : #include "pm_sampleCor@routines.inc.F90"
7010 100 : end procedure
7011 : #endif
7012 :
7013 : #if RK1_ENABLED
7014 104 : module procedure setRhoWTR_UXD_RK1
7015 : use pm_kind, only: TKC => RK1
7016 : #include "pm_sampleCor@routines.inc.F90"
7017 104 : end procedure
7018 : #endif
7019 :
7020 : #undef RK_ENABLED
7021 :
7022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7023 :
7024 : #if !__GFORTRAN__
7025 : #define PSSK_ENABLED 1
7026 :
7027 : #if SK5_ENABLED
7028 : module procedure setRhoWTR_UXD_PSSK5
7029 : use pm_kind, only: TKC => SK5
7030 : #include "pm_sampleCor@routines.inc.F90"
7031 : end procedure
7032 : #endif
7033 :
7034 : #if SK4_ENABLED
7035 : module procedure setRhoWTR_UXD_PSSK4
7036 : use pm_kind, only: TKC => SK4
7037 : #include "pm_sampleCor@routines.inc.F90"
7038 : end procedure
7039 : #endif
7040 :
7041 : #if SK3_ENABLED
7042 : module procedure setRhoWTR_UXD_PSSK3
7043 : use pm_kind, only: TKC => SK3
7044 : #include "pm_sampleCor@routines.inc.F90"
7045 : end procedure
7046 : #endif
7047 :
7048 : #if SK2_ENABLED
7049 : module procedure setRhoWTR_UXD_PSSK2
7050 : use pm_kind, only: TKC => SK2
7051 : #include "pm_sampleCor@routines.inc.F90"
7052 : end procedure
7053 : #endif
7054 :
7055 : #if SK1_ENABLED
7056 : module procedure setRhoWTR_UXD_PSSK1
7057 : use pm_kind, only: TKC => SK1
7058 : #include "pm_sampleCor@routines.inc.F90"
7059 : end procedure
7060 : #endif
7061 :
7062 : #undef PSSK_ENABLED
7063 : #endif
7064 :
7065 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7066 :
7067 : #define BSSK_ENABLED 1
7068 :
7069 100 : module procedure setRhoWTR_UXD_BSSK
7070 : use pm_kind, only: TKC => SK
7071 : #include "pm_sampleCor@routines.inc.F90"
7072 100 : end procedure
7073 :
7074 : #undef BSSK_ENABLED
7075 :
7076 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7077 :
7078 : #undef WTR_ENABLED
7079 :
7080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7082 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7083 :
7084 : #undef UXD_ENABLED
7085 :
7086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7089 :
7090 : #undef setRho_ENABLED
7091 :
7092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7093 :
7094 : #define setRho_ENABLED 1
7095 :
7096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7099 :
7100 : #define XLD_ENABLED 1
7101 :
7102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7105 :
7106 : #define WNO_ENABLED 1
7107 :
7108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7109 :
7110 : #define SK_ENABLED 1
7111 :
7112 : #if SK5_ENABLED
7113 : module procedure setRhoWNO_XLD_SK5
7114 : use pm_kind, only: TKC => SK5
7115 : #include "pm_sampleCor@routines.inc.F90"
7116 : end procedure
7117 : #endif
7118 :
7119 : #if SK4_ENABLED
7120 : module procedure setRhoWNO_XLD_SK4
7121 : use pm_kind, only: TKC => SK4
7122 : #include "pm_sampleCor@routines.inc.F90"
7123 : end procedure
7124 : #endif
7125 :
7126 : #if SK3_ENABLED
7127 : module procedure setRhoWNO_XLD_SK3
7128 : use pm_kind, only: TKC => SK3
7129 : #include "pm_sampleCor@routines.inc.F90"
7130 : end procedure
7131 : #endif
7132 :
7133 : #if SK2_ENABLED
7134 : module procedure setRhoWNO_XLD_SK2
7135 : use pm_kind, only: TKC => SK2
7136 : #include "pm_sampleCor@routines.inc.F90"
7137 : end procedure
7138 : #endif
7139 :
7140 : #if SK1_ENABLED
7141 50 : module procedure setRhoWNO_XLD_SK1
7142 : use pm_kind, only: TKC => SK1
7143 : #include "pm_sampleCor@routines.inc.F90"
7144 50 : end procedure
7145 : #endif
7146 :
7147 : #undef SK_ENABLED
7148 :
7149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7150 :
7151 : #define IK_ENABLED 1
7152 :
7153 : #if IK5_ENABLED
7154 50 : module procedure setRhoWNO_XLD_IK5
7155 : use pm_kind, only: TKC => IK5
7156 : #include "pm_sampleCor@routines.inc.F90"
7157 50 : end procedure
7158 : #endif
7159 :
7160 : #if IK4_ENABLED
7161 50 : module procedure setRhoWNO_XLD_IK4
7162 : use pm_kind, only: TKC => IK4
7163 : #include "pm_sampleCor@routines.inc.F90"
7164 50 : end procedure
7165 : #endif
7166 :
7167 : #if IK3_ENABLED
7168 50 : module procedure setRhoWNO_XLD_IK3
7169 : use pm_kind, only: TKC => IK3
7170 : #include "pm_sampleCor@routines.inc.F90"
7171 50 : end procedure
7172 : #endif
7173 :
7174 : #if IK2_ENABLED
7175 50 : module procedure setRhoWNO_XLD_IK2
7176 : use pm_kind, only: TKC => IK2
7177 : #include "pm_sampleCor@routines.inc.F90"
7178 50 : end procedure
7179 : #endif
7180 :
7181 : #if IK1_ENABLED
7182 50 : module procedure setRhoWNO_XLD_IK1
7183 : use pm_kind, only: TKC => IK1
7184 : #include "pm_sampleCor@routines.inc.F90"
7185 50 : end procedure
7186 : #endif
7187 :
7188 : #undef IK_ENABLED
7189 :
7190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7191 :
7192 : #define RK_ENABLED 1
7193 :
7194 : #if RK5_ENABLED
7195 : module procedure setRhoWNO_XLD_RK5
7196 : use pm_kind, only: TKC => RK5
7197 : #include "pm_sampleCor@routines.inc.F90"
7198 : end procedure
7199 : #endif
7200 :
7201 : #if RK4_ENABLED
7202 50 : module procedure setRhoWNO_XLD_RK4
7203 : use pm_kind, only: TKC => RK4
7204 : #include "pm_sampleCor@routines.inc.F90"
7205 50 : end procedure
7206 : #endif
7207 :
7208 : #if RK3_ENABLED
7209 50 : module procedure setRhoWNO_XLD_RK3
7210 : use pm_kind, only: TKC => RK3
7211 : #include "pm_sampleCor@routines.inc.F90"
7212 50 : end procedure
7213 : #endif
7214 :
7215 : #if RK2_ENABLED
7216 50 : module procedure setRhoWNO_XLD_RK2
7217 : use pm_kind, only: TKC => RK2
7218 : #include "pm_sampleCor@routines.inc.F90"
7219 50 : end procedure
7220 : #endif
7221 :
7222 : #if RK1_ENABLED
7223 52 : module procedure setRhoWNO_XLD_RK1
7224 : use pm_kind, only: TKC => RK1
7225 : #include "pm_sampleCor@routines.inc.F90"
7226 52 : end procedure
7227 : #endif
7228 :
7229 : #undef RK_ENABLED
7230 :
7231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7232 :
7233 : #if !__GFORTRAN__
7234 : #define PSSK_ENABLED 1
7235 :
7236 : #if SK5_ENABLED
7237 : module procedure setRhoWNO_XLD_PSSK5
7238 : use pm_kind, only: TKC => SK5
7239 : #include "pm_sampleCor@routines.inc.F90"
7240 : end procedure
7241 : #endif
7242 :
7243 : #if SK4_ENABLED
7244 : module procedure setRhoWNO_XLD_PSSK4
7245 : use pm_kind, only: TKC => SK4
7246 : #include "pm_sampleCor@routines.inc.F90"
7247 : end procedure
7248 : #endif
7249 :
7250 : #if SK3_ENABLED
7251 : module procedure setRhoWNO_XLD_PSSK3
7252 : use pm_kind, only: TKC => SK3
7253 : #include "pm_sampleCor@routines.inc.F90"
7254 : end procedure
7255 : #endif
7256 :
7257 : #if SK2_ENABLED
7258 : module procedure setRhoWNO_XLD_PSSK2
7259 : use pm_kind, only: TKC => SK2
7260 : #include "pm_sampleCor@routines.inc.F90"
7261 : end procedure
7262 : #endif
7263 :
7264 : #if SK1_ENABLED
7265 : module procedure setRhoWNO_XLD_PSSK1
7266 : use pm_kind, only: TKC => SK1
7267 : #include "pm_sampleCor@routines.inc.F90"
7268 : end procedure
7269 : #endif
7270 :
7271 : #undef PSSK_ENABLED
7272 : #endif
7273 :
7274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7275 :
7276 : #define BSSK_ENABLED 1
7277 :
7278 50 : module procedure setRhoWNO_XLD_BSSK
7279 : use pm_kind, only: TKC => SK
7280 : #include "pm_sampleCor@routines.inc.F90"
7281 50 : end procedure
7282 :
7283 : #undef BSSK_ENABLED
7284 :
7285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7286 :
7287 : #undef WNO_ENABLED
7288 :
7289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7292 :
7293 : #define WTI_ENABLED 1
7294 :
7295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7296 :
7297 : #define SK_ENABLED 1
7298 :
7299 : #if SK5_ENABLED
7300 : module procedure setRhoWTI_XLD_SK5
7301 : use pm_kind, only: TKC => SK5
7302 : #include "pm_sampleCor@routines.inc.F90"
7303 : end procedure
7304 : #endif
7305 :
7306 : #if SK4_ENABLED
7307 : module procedure setRhoWTI_XLD_SK4
7308 : use pm_kind, only: TKC => SK4
7309 : #include "pm_sampleCor@routines.inc.F90"
7310 : end procedure
7311 : #endif
7312 :
7313 : #if SK3_ENABLED
7314 : module procedure setRhoWTI_XLD_SK3
7315 : use pm_kind, only: TKC => SK3
7316 : #include "pm_sampleCor@routines.inc.F90"
7317 : end procedure
7318 : #endif
7319 :
7320 : #if SK2_ENABLED
7321 : module procedure setRhoWTI_XLD_SK2
7322 : use pm_kind, only: TKC => SK2
7323 : #include "pm_sampleCor@routines.inc.F90"
7324 : end procedure
7325 : #endif
7326 :
7327 : #if SK1_ENABLED
7328 50 : module procedure setRhoWTI_XLD_SK1
7329 : use pm_kind, only: TKC => SK1
7330 : #include "pm_sampleCor@routines.inc.F90"
7331 50 : end procedure
7332 : #endif
7333 :
7334 : #undef SK_ENABLED
7335 :
7336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7337 :
7338 : #define IK_ENABLED 1
7339 :
7340 : #if IK5_ENABLED
7341 50 : module procedure setRhoWTI_XLD_IK5
7342 : use pm_kind, only: TKC => IK5
7343 : #include "pm_sampleCor@routines.inc.F90"
7344 50 : end procedure
7345 : #endif
7346 :
7347 : #if IK4_ENABLED
7348 50 : module procedure setRhoWTI_XLD_IK4
7349 : use pm_kind, only: TKC => IK4
7350 : #include "pm_sampleCor@routines.inc.F90"
7351 50 : end procedure
7352 : #endif
7353 :
7354 : #if IK3_ENABLED
7355 50 : module procedure setRhoWTI_XLD_IK3
7356 : use pm_kind, only: TKC => IK3
7357 : #include "pm_sampleCor@routines.inc.F90"
7358 50 : end procedure
7359 : #endif
7360 :
7361 : #if IK2_ENABLED
7362 50 : module procedure setRhoWTI_XLD_IK2
7363 : use pm_kind, only: TKC => IK2
7364 : #include "pm_sampleCor@routines.inc.F90"
7365 50 : end procedure
7366 : #endif
7367 :
7368 : #if IK1_ENABLED
7369 50 : module procedure setRhoWTI_XLD_IK1
7370 : use pm_kind, only: TKC => IK1
7371 : #include "pm_sampleCor@routines.inc.F90"
7372 50 : end procedure
7373 : #endif
7374 :
7375 : #undef IK_ENABLED
7376 :
7377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7378 :
7379 : #define RK_ENABLED 1
7380 :
7381 : #if RK5_ENABLED
7382 : module procedure setRhoWTI_XLD_RK5
7383 : use pm_kind, only: TKC => RK5
7384 : #include "pm_sampleCor@routines.inc.F90"
7385 : end procedure
7386 : #endif
7387 :
7388 : #if RK4_ENABLED
7389 50 : module procedure setRhoWTI_XLD_RK4
7390 : use pm_kind, only: TKC => RK4
7391 : #include "pm_sampleCor@routines.inc.F90"
7392 50 : end procedure
7393 : #endif
7394 :
7395 : #if RK3_ENABLED
7396 50 : module procedure setRhoWTI_XLD_RK3
7397 : use pm_kind, only: TKC => RK3
7398 : #include "pm_sampleCor@routines.inc.F90"
7399 50 : end procedure
7400 : #endif
7401 :
7402 : #if RK2_ENABLED
7403 50 : module procedure setRhoWTI_XLD_RK2
7404 : use pm_kind, only: TKC => RK2
7405 : #include "pm_sampleCor@routines.inc.F90"
7406 50 : end procedure
7407 : #endif
7408 :
7409 : #if RK1_ENABLED
7410 52 : module procedure setRhoWTI_XLD_RK1
7411 : use pm_kind, only: TKC => RK1
7412 : #include "pm_sampleCor@routines.inc.F90"
7413 52 : end procedure
7414 : #endif
7415 :
7416 : #undef RK_ENABLED
7417 :
7418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7419 :
7420 : #if !__GFORTRAN__
7421 : #define PSSK_ENABLED 1
7422 :
7423 : #if SK5_ENABLED
7424 : module procedure setRhoWTI_XLD_PSSK5
7425 : use pm_kind, only: TKC => SK5
7426 : #include "pm_sampleCor@routines.inc.F90"
7427 : end procedure
7428 : #endif
7429 :
7430 : #if SK4_ENABLED
7431 : module procedure setRhoWTI_XLD_PSSK4
7432 : use pm_kind, only: TKC => SK4
7433 : #include "pm_sampleCor@routines.inc.F90"
7434 : end procedure
7435 : #endif
7436 :
7437 : #if SK3_ENABLED
7438 : module procedure setRhoWTI_XLD_PSSK3
7439 : use pm_kind, only: TKC => SK3
7440 : #include "pm_sampleCor@routines.inc.F90"
7441 : end procedure
7442 : #endif
7443 :
7444 : #if SK2_ENABLED
7445 : module procedure setRhoWTI_XLD_PSSK2
7446 : use pm_kind, only: TKC => SK2
7447 : #include "pm_sampleCor@routines.inc.F90"
7448 : end procedure
7449 : #endif
7450 :
7451 : #if SK1_ENABLED
7452 : module procedure setRhoWTI_XLD_PSSK1
7453 : use pm_kind, only: TKC => SK1
7454 : #include "pm_sampleCor@routines.inc.F90"
7455 : end procedure
7456 : #endif
7457 :
7458 : #undef PSSK_ENABLED
7459 : #endif
7460 :
7461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7462 :
7463 : #define BSSK_ENABLED 1
7464 :
7465 50 : module procedure setRhoWTI_XLD_BSSK
7466 : use pm_kind, only: TKC => SK
7467 : #include "pm_sampleCor@routines.inc.F90"
7468 50 : end procedure
7469 :
7470 : #undef BSSK_ENABLED
7471 :
7472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7473 :
7474 : #undef WTI_ENABLED
7475 :
7476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7479 :
7480 : #define WTR_ENABLED 1
7481 :
7482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7483 :
7484 : #define SK_ENABLED 1
7485 :
7486 : #if SK5_ENABLED
7487 : module procedure setRhoWTR_XLD_SK5
7488 : use pm_kind, only: TKC => SK5
7489 : #include "pm_sampleCor@routines.inc.F90"
7490 : end procedure
7491 : #endif
7492 :
7493 : #if SK4_ENABLED
7494 : module procedure setRhoWTR_XLD_SK4
7495 : use pm_kind, only: TKC => SK4
7496 : #include "pm_sampleCor@routines.inc.F90"
7497 : end procedure
7498 : #endif
7499 :
7500 : #if SK3_ENABLED
7501 : module procedure setRhoWTR_XLD_SK3
7502 : use pm_kind, only: TKC => SK3
7503 : #include "pm_sampleCor@routines.inc.F90"
7504 : end procedure
7505 : #endif
7506 :
7507 : #if SK2_ENABLED
7508 : module procedure setRhoWTR_XLD_SK2
7509 : use pm_kind, only: TKC => SK2
7510 : #include "pm_sampleCor@routines.inc.F90"
7511 : end procedure
7512 : #endif
7513 :
7514 : #if SK1_ENABLED
7515 50 : module procedure setRhoWTR_XLD_SK1
7516 : use pm_kind, only: TKC => SK1
7517 : #include "pm_sampleCor@routines.inc.F90"
7518 50 : end procedure
7519 : #endif
7520 :
7521 : #undef SK_ENABLED
7522 :
7523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7524 :
7525 : #define IK_ENABLED 1
7526 :
7527 : #if IK5_ENABLED
7528 50 : module procedure setRhoWTR_XLD_IK5
7529 : use pm_kind, only: TKC => IK5
7530 : #include "pm_sampleCor@routines.inc.F90"
7531 50 : end procedure
7532 : #endif
7533 :
7534 : #if IK4_ENABLED
7535 50 : module procedure setRhoWTR_XLD_IK4
7536 : use pm_kind, only: TKC => IK4
7537 : #include "pm_sampleCor@routines.inc.F90"
7538 50 : end procedure
7539 : #endif
7540 :
7541 : #if IK3_ENABLED
7542 50 : module procedure setRhoWTR_XLD_IK3
7543 : use pm_kind, only: TKC => IK3
7544 : #include "pm_sampleCor@routines.inc.F90"
7545 50 : end procedure
7546 : #endif
7547 :
7548 : #if IK2_ENABLED
7549 50 : module procedure setRhoWTR_XLD_IK2
7550 : use pm_kind, only: TKC => IK2
7551 : #include "pm_sampleCor@routines.inc.F90"
7552 50 : end procedure
7553 : #endif
7554 :
7555 : #if IK1_ENABLED
7556 50 : module procedure setRhoWTR_XLD_IK1
7557 : use pm_kind, only: TKC => IK1
7558 : #include "pm_sampleCor@routines.inc.F90"
7559 50 : end procedure
7560 : #endif
7561 :
7562 : #undef IK_ENABLED
7563 :
7564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7565 :
7566 : #define RK_ENABLED 1
7567 :
7568 : #if RK5_ENABLED
7569 : module procedure setRhoWTR_XLD_RK5
7570 : use pm_kind, only: TKC => RK5
7571 : #include "pm_sampleCor@routines.inc.F90"
7572 : end procedure
7573 : #endif
7574 :
7575 : #if RK4_ENABLED
7576 50 : module procedure setRhoWTR_XLD_RK4
7577 : use pm_kind, only: TKC => RK4
7578 : #include "pm_sampleCor@routines.inc.F90"
7579 50 : end procedure
7580 : #endif
7581 :
7582 : #if RK3_ENABLED
7583 50 : module procedure setRhoWTR_XLD_RK3
7584 : use pm_kind, only: TKC => RK3
7585 : #include "pm_sampleCor@routines.inc.F90"
7586 50 : end procedure
7587 : #endif
7588 :
7589 : #if RK2_ENABLED
7590 50 : module procedure setRhoWTR_XLD_RK2
7591 : use pm_kind, only: TKC => RK2
7592 : #include "pm_sampleCor@routines.inc.F90"
7593 50 : end procedure
7594 : #endif
7595 :
7596 : #if RK1_ENABLED
7597 52 : module procedure setRhoWTR_XLD_RK1
7598 : use pm_kind, only: TKC => RK1
7599 : #include "pm_sampleCor@routines.inc.F90"
7600 52 : end procedure
7601 : #endif
7602 :
7603 : #undef RK_ENABLED
7604 :
7605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7606 :
7607 : #if !__GFORTRAN__
7608 : #define PSSK_ENABLED 1
7609 :
7610 : #if SK5_ENABLED
7611 : module procedure setRhoWTR_XLD_PSSK5
7612 : use pm_kind, only: TKC => SK5
7613 : #include "pm_sampleCor@routines.inc.F90"
7614 : end procedure
7615 : #endif
7616 :
7617 : #if SK4_ENABLED
7618 : module procedure setRhoWTR_XLD_PSSK4
7619 : use pm_kind, only: TKC => SK4
7620 : #include "pm_sampleCor@routines.inc.F90"
7621 : end procedure
7622 : #endif
7623 :
7624 : #if SK3_ENABLED
7625 : module procedure setRhoWTR_XLD_PSSK3
7626 : use pm_kind, only: TKC => SK3
7627 : #include "pm_sampleCor@routines.inc.F90"
7628 : end procedure
7629 : #endif
7630 :
7631 : #if SK2_ENABLED
7632 : module procedure setRhoWTR_XLD_PSSK2
7633 : use pm_kind, only: TKC => SK2
7634 : #include "pm_sampleCor@routines.inc.F90"
7635 : end procedure
7636 : #endif
7637 :
7638 : #if SK1_ENABLED
7639 : module procedure setRhoWTR_XLD_PSSK1
7640 : use pm_kind, only: TKC => SK1
7641 : #include "pm_sampleCor@routines.inc.F90"
7642 : end procedure
7643 : #endif
7644 :
7645 : #undef PSSK_ENABLED
7646 : #endif
7647 :
7648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7649 :
7650 : #define BSSK_ENABLED 1
7651 :
7652 50 : module procedure setRhoWTR_XLD_BSSK
7653 : use pm_kind, only: TKC => SK
7654 : #include "pm_sampleCor@routines.inc.F90"
7655 50 : end procedure
7656 :
7657 : #undef BSSK_ENABLED
7658 :
7659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7660 :
7661 : #undef WTR_ENABLED
7662 :
7663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7666 :
7667 : #undef XLD_ENABLED
7668 :
7669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7672 :
7673 : #undef setRho_ENABLED
7674 :
7675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7676 : !
7677 : !#define getTau_ENABLED 1
7678 : !
7679 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7680 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7681 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7682 : !
7683 : !#define XY_D0_ENABLED 1
7684 : !
7685 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7686 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7687 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7688 : !
7689 : !#define WNO_ENABLED 1
7690 : !
7691 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7692 : !
7693 : !#define SK_ENABLED 1
7694 : !
7695 : !#if SK5_ENABLED
7696 : ! module procedure getTauWNO_XY_D0_SK5
7697 : ! use pm_kind, only: TKC => SK5
7698 : !#include "pm_sampleCor@routines.inc.F90"
7699 : ! end procedure
7700 : !#endif
7701 : !
7702 : !#if SK4_ENABLED
7703 : ! module procedure getTauWNO_XY_D0_SK4
7704 : ! use pm_kind, only: TKC => SK4
7705 : !#include "pm_sampleCor@routines.inc.F90"
7706 : ! end procedure
7707 : !#endif
7708 : !
7709 : !#if SK3_ENABLED
7710 : ! module procedure getTauWNO_XY_D0_SK3
7711 : ! use pm_kind, only: TKC => SK3
7712 : !#include "pm_sampleCor@routines.inc.F90"
7713 : ! end procedure
7714 : !#endif
7715 : !
7716 : !#if SK2_ENABLED
7717 : ! module procedure getTauWNO_XY_D0_SK2
7718 : ! use pm_kind, only: TKC => SK2
7719 : !#include "pm_sampleCor@routines.inc.F90"
7720 : ! end procedure
7721 : !#endif
7722 : !
7723 : !#if SK1_ENABLED
7724 : ! module procedure getTauWNO_XY_D0_SK1
7725 : ! use pm_kind, only: TKC => SK1
7726 : !#include "pm_sampleCor@routines.inc.F90"
7727 : ! end procedure
7728 : !#endif
7729 : !
7730 : !#undef SK_ENABLED
7731 : !
7732 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7733 : !
7734 : !#undef WNO_ENABLED
7735 : !
7736 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7737 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7738 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7739 : !
7740 : !#define WTI_ENABLED 1
7741 : !
7742 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7743 : !
7744 : !#define SK_ENABLED 1
7745 : !
7746 : !#if SK5_ENABLED
7747 : ! module procedure getTauWTI_XY_D0_SK5
7748 : ! use pm_kind, only: TKC => SK5
7749 : !#include "pm_sampleCor@routines.inc.F90"
7750 : ! end procedure
7751 : !#endif
7752 : !
7753 : !#if SK4_ENABLED
7754 : ! module procedure getTauWTI_XY_D0_SK4
7755 : ! use pm_kind, only: TKC => SK4
7756 : !#include "pm_sampleCor@routines.inc.F90"
7757 : ! end procedure
7758 : !#endif
7759 : !
7760 : !#if SK3_ENABLED
7761 : ! module procedure getTauWTI_XY_D0_SK3
7762 : ! use pm_kind, only: TKC => SK3
7763 : !#include "pm_sampleCor@routines.inc.F90"
7764 : ! end procedure
7765 : !#endif
7766 : !
7767 : !#if SK2_ENABLED
7768 : ! module procedure getTauWTI_XY_D0_SK2
7769 : ! use pm_kind, only: TKC => SK2
7770 : !#include "pm_sampleCor@routines.inc.F90"
7771 : ! end procedure
7772 : !#endif
7773 : !
7774 : !#if SK1_ENABLED
7775 : ! module procedure getTauWTI_XY_D0_SK1
7776 : ! use pm_kind, only: TKC => SK1
7777 : !#include "pm_sampleCor@routines.inc.F90"
7778 : ! end procedure
7779 : !#endif
7780 : !
7781 : !#undef SK_ENABLED
7782 : !
7783 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7784 : !
7785 : !#undef WTI_ENABLED
7786 : !
7787 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7788 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7789 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7790 : !
7791 : !#define WTR_ENABLED 1
7792 : !
7793 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7794 : !
7795 : !#define SK_ENABLED 1
7796 : !
7797 : !#if SK5_ENABLED
7798 : ! module procedure getTauWTR_XY_D0_SK5
7799 : ! use pm_kind, only: TKC => SK5
7800 : !#include "pm_sampleCor@routines.inc.F90"
7801 : ! end procedure
7802 : !#endif
7803 : !
7804 : !#if SK4_ENABLED
7805 : ! module procedure getTauWTR_XY_D0_SK4
7806 : ! use pm_kind, only: TKC => SK4
7807 : !#include "pm_sampleCor@routines.inc.F90"
7808 : ! end procedure
7809 : !#endif
7810 : !
7811 : !#if SK3_ENABLED
7812 : ! module procedure getTauWTR_XY_D0_SK3
7813 : ! use pm_kind, only: TKC => SK3
7814 : !#include "pm_sampleCor@routines.inc.F90"
7815 : ! end procedure
7816 : !#endif
7817 : !
7818 : !#if SK2_ENABLED
7819 : ! module procedure getTauWTR_XY_D0_SK2
7820 : ! use pm_kind, only: TKC => SK2
7821 : !#include "pm_sampleCor@routines.inc.F90"
7822 : ! end procedure
7823 : !#endif
7824 : !
7825 : !#if SK1_ENABLED
7826 : ! module procedure getTauWTR_XY_D0_SK1
7827 : ! use pm_kind, only: TKC => SK1
7828 : !#include "pm_sampleCor@routines.inc.F90"
7829 : ! end procedure
7830 : !#endif
7831 : !
7832 : !#undef SK_ENABLED
7833 : !
7834 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7835 : !
7836 : !#undef WTR_ENABLED
7837 : !
7838 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7839 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7840 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7841 : !
7842 : !#undef XY_D0_ENABLED
7843 : !
7844 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7845 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7846 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7847 : !
7848 : !#undef getTau_ENABLED
7849 : !
7850 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7851 : !
7852 : !#define getTau_ENABLED 1
7853 : !
7854 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7855 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7856 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7857 : !
7858 : !#define XY_D1_ENABLED 1
7859 : !
7860 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7861 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7862 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7863 : !
7864 : !#define WNO_ENABLED 1
7865 : !
7866 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7867 : !
7868 : !#define SK_ENABLED 1
7869 : !
7870 : !#if SK5_ENABLED
7871 : ! module procedure getTauWNO_XY_D1_SK5
7872 : ! use pm_kind, only: TKC => SK5
7873 : !#include "pm_sampleCor@routines.inc.F90"
7874 : ! end procedure
7875 : !#endif
7876 : !
7877 : !#if SK4_ENABLED
7878 : ! module procedure getTauWNO_XY_D1_SK4
7879 : ! use pm_kind, only: TKC => SK4
7880 : !#include "pm_sampleCor@routines.inc.F90"
7881 : ! end procedure
7882 : !#endif
7883 : !
7884 : !#if SK3_ENABLED
7885 : ! module procedure getTauWNO_XY_D1_SK3
7886 : ! use pm_kind, only: TKC => SK3
7887 : !#include "pm_sampleCor@routines.inc.F90"
7888 : ! end procedure
7889 : !#endif
7890 : !
7891 : !#if SK2_ENABLED
7892 : ! module procedure getTauWNO_XY_D1_SK2
7893 : ! use pm_kind, only: TKC => SK2
7894 : !#include "pm_sampleCor@routines.inc.F90"
7895 : ! end procedure
7896 : !#endif
7897 : !
7898 : !#if SK1_ENABLED
7899 : ! module procedure getTauWNO_XY_D1_SK1
7900 : ! use pm_kind, only: TKC => SK1
7901 : !#include "pm_sampleCor@routines.inc.F90"
7902 : ! end procedure
7903 : !#endif
7904 : !
7905 : !#undef SK_ENABLED
7906 : !
7907 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7908 : !
7909 : !#define IK_ENABLED 1
7910 : !
7911 : !#if IK5_ENABLED
7912 : ! module procedure getTauWNO_XY_D1_IK5
7913 : ! use pm_kind, only: TKC => IK5
7914 : !#include "pm_sampleCor@routines.inc.F90"
7915 : ! end procedure
7916 : !#endif
7917 : !
7918 : !#if IK4_ENABLED
7919 : ! module procedure getTauWNO_XY_D1_IK4
7920 : ! use pm_kind, only: TKC => IK4
7921 : !#include "pm_sampleCor@routines.inc.F90"
7922 : ! end procedure
7923 : !#endif
7924 : !
7925 : !#if IK3_ENABLED
7926 : ! module procedure getTauWNO_XY_D1_IK3
7927 : ! use pm_kind, only: TKC => IK3
7928 : !#include "pm_sampleCor@routines.inc.F90"
7929 : ! end procedure
7930 : !#endif
7931 : !
7932 : !#if IK2_ENABLED
7933 : ! module procedure getTauWNO_XY_D1_IK2
7934 : ! use pm_kind, only: TKC => IK2
7935 : !#include "pm_sampleCor@routines.inc.F90"
7936 : ! end procedure
7937 : !#endif
7938 : !
7939 : !#if IK1_ENABLED
7940 : ! module procedure getTauWNO_XY_D1_IK1
7941 : ! use pm_kind, only: TKC => IK1
7942 : !#include "pm_sampleCor@routines.inc.F90"
7943 : ! end procedure
7944 : !#endif
7945 : !
7946 : !#undef IK_ENABLED
7947 : !
7948 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7949 : !
7950 : !#define RK_ENABLED 1
7951 : !
7952 : !#if RK5_ENABLED
7953 : ! module procedure getTauWNO_XY_D1_RK5
7954 : ! use pm_kind, only: TKC => RK5
7955 : !#include "pm_sampleCor@routines.inc.F90"
7956 : ! end procedure
7957 : !#endif
7958 : !
7959 : !#if RK4_ENABLED
7960 : ! module procedure getTauWNO_XY_D1_RK4
7961 : ! use pm_kind, only: TKC => RK4
7962 : !#include "pm_sampleCor@routines.inc.F90"
7963 : ! end procedure
7964 : !#endif
7965 : !
7966 : !#if RK3_ENABLED
7967 : ! module procedure getTauWNO_XY_D1_RK3
7968 : ! use pm_kind, only: TKC => RK3
7969 : !#include "pm_sampleCor@routines.inc.F90"
7970 : ! end procedure
7971 : !#endif
7972 : !
7973 : !#if RK2_ENABLED
7974 : ! module procedure getTauWNO_XY_D1_RK2
7975 : ! use pm_kind, only: TKC => RK2
7976 : !#include "pm_sampleCor@routines.inc.F90"
7977 : ! end procedure
7978 : !#endif
7979 : !
7980 : !#if RK1_ENABLED
7981 : ! module procedure getTauWNO_XY_D1_RK1
7982 : ! use pm_kind, only: TKC => RK1
7983 : !#include "pm_sampleCor@routines.inc.F90"
7984 : ! end procedure
7985 : !#endif
7986 : !
7987 : !#undef RK_ENABLED
7988 : !
7989 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7990 : !
7991 : !#if !__GFORTRAN__
7992 : !#define PSSK_ENABLED 1
7993 : !
7994 : !#if SK5_ENABLED
7995 : ! module procedure getTauWNO_XY_D1_PSSK5
7996 : ! use pm_kind, only: TKC => SK5
7997 : !#include "pm_sampleCor@routines.inc.F90"
7998 : ! end procedure
7999 : !#endif
8000 : !
8001 : !#if SK4_ENABLED
8002 : ! module procedure getTauWNO_XY_D1_PSSK4
8003 : ! use pm_kind, only: TKC => SK4
8004 : !#include "pm_sampleCor@routines.inc.F90"
8005 : ! end procedure
8006 : !#endif
8007 : !
8008 : !#if SK3_ENABLED
8009 : ! module procedure getTauWNO_XY_D1_PSSK3
8010 : ! use pm_kind, only: TKC => SK3
8011 : !#include "pm_sampleCor@routines.inc.F90"
8012 : ! end procedure
8013 : !#endif
8014 : !
8015 : !#if SK2_ENABLED
8016 : ! module procedure getTauWNO_XY_D1_PSSK2
8017 : ! use pm_kind, only: TKC => SK2
8018 : !#include "pm_sampleCor@routines.inc.F90"
8019 : ! end procedure
8020 : !#endif
8021 : !
8022 : !#if SK1_ENABLED
8023 : ! module procedure getTauWNO_XY_D1_PSSK1
8024 : ! use pm_kind, only: TKC => SK1
8025 : !#include "pm_sampleCor@routines.inc.F90"
8026 : ! end procedure
8027 : !#endif
8028 : !
8029 : !#undef PSSK_ENABLED
8030 : !#endif
8031 : !
8032 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8033 : !
8034 : !#define BSSK_ENABLED 1
8035 : !
8036 : ! module procedure getTauWNO_XY_D1_BSSK
8037 : ! use pm_kind, only: TKC => SK
8038 : !#include "pm_sampleCor@routines.inc.F90"
8039 : ! end procedure
8040 : !
8041 : !#undef BSSK_ENABLED
8042 : !
8043 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8044 : !
8045 : !#undef WNO_ENABLED
8046 : !
8047 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8048 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8049 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8050 : !
8051 : !#define WTI_ENABLED 1
8052 : !
8053 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8054 : !
8055 : !#define SK_ENABLED 1
8056 : !
8057 : !#if SK5_ENABLED
8058 : ! module procedure getTauWTI_XY_D1_SK5
8059 : ! use pm_kind, only: TKC => SK5
8060 : !#include "pm_sampleCor@routines.inc.F90"
8061 : ! end procedure
8062 : !#endif
8063 : !
8064 : !#if SK4_ENABLED
8065 : ! module procedure getTauWTI_XY_D1_SK4
8066 : ! use pm_kind, only: TKC => SK4
8067 : !#include "pm_sampleCor@routines.inc.F90"
8068 : ! end procedure
8069 : !#endif
8070 : !
8071 : !#if SK3_ENABLED
8072 : ! module procedure getTauWTI_XY_D1_SK3
8073 : ! use pm_kind, only: TKC => SK3
8074 : !#include "pm_sampleCor@routines.inc.F90"
8075 : ! end procedure
8076 : !#endif
8077 : !
8078 : !#if SK2_ENABLED
8079 : ! module procedure getTauWTI_XY_D1_SK2
8080 : ! use pm_kind, only: TKC => SK2
8081 : !#include "pm_sampleCor@routines.inc.F90"
8082 : ! end procedure
8083 : !#endif
8084 : !
8085 : !#if SK1_ENABLED
8086 : ! module procedure getTauWTI_XY_D1_SK1
8087 : ! use pm_kind, only: TKC => SK1
8088 : !#include "pm_sampleCor@routines.inc.F90"
8089 : ! end procedure
8090 : !#endif
8091 : !
8092 : !#undef SK_ENABLED
8093 : !
8094 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8095 : !
8096 : !#define IK_ENABLED 1
8097 : !
8098 : !#if IK5_ENABLED
8099 : ! module procedure getTauWTI_XY_D1_IK5
8100 : ! use pm_kind, only: TKC => IK5
8101 : !#include "pm_sampleCor@routines.inc.F90"
8102 : ! end procedure
8103 : !#endif
8104 : !
8105 : !#if IK4_ENABLED
8106 : ! module procedure getTauWTI_XY_D1_IK4
8107 : ! use pm_kind, only: TKC => IK4
8108 : !#include "pm_sampleCor@routines.inc.F90"
8109 : ! end procedure
8110 : !#endif
8111 : !
8112 : !#if IK3_ENABLED
8113 : ! module procedure getTauWTI_XY_D1_IK3
8114 : ! use pm_kind, only: TKC => IK3
8115 : !#include "pm_sampleCor@routines.inc.F90"
8116 : ! end procedure
8117 : !#endif
8118 : !
8119 : !#if IK2_ENABLED
8120 : ! module procedure getTauWTI_XY_D1_IK2
8121 : ! use pm_kind, only: TKC => IK2
8122 : !#include "pm_sampleCor@routines.inc.F90"
8123 : ! end procedure
8124 : !#endif
8125 : !
8126 : !#if IK1_ENABLED
8127 : ! module procedure getTauWTI_XY_D1_IK1
8128 : ! use pm_kind, only: TKC => IK1
8129 : !#include "pm_sampleCor@routines.inc.F90"
8130 : ! end procedure
8131 : !#endif
8132 : !
8133 : !#undef IK_ENABLED
8134 : !
8135 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8136 : !
8137 : !#define RK_ENABLED 1
8138 : !
8139 : !#if RK5_ENABLED
8140 : ! module procedure getTauWTI_XY_D1_RK5
8141 : ! use pm_kind, only: TKC => RK5
8142 : !#include "pm_sampleCor@routines.inc.F90"
8143 : ! end procedure
8144 : !#endif
8145 : !
8146 : !#if RK4_ENABLED
8147 : ! module procedure getTauWTI_XY_D1_RK4
8148 : ! use pm_kind, only: TKC => RK4
8149 : !#include "pm_sampleCor@routines.inc.F90"
8150 : ! end procedure
8151 : !#endif
8152 : !
8153 : !#if RK3_ENABLED
8154 : ! module procedure getTauWTI_XY_D1_RK3
8155 : ! use pm_kind, only: TKC => RK3
8156 : !#include "pm_sampleCor@routines.inc.F90"
8157 : ! end procedure
8158 : !#endif
8159 : !
8160 : !#if RK2_ENABLED
8161 : ! module procedure getTauWTI_XY_D1_RK2
8162 : ! use pm_kind, only: TKC => RK2
8163 : !#include "pm_sampleCor@routines.inc.F90"
8164 : ! end procedure
8165 : !#endif
8166 : !
8167 : !#if RK1_ENABLED
8168 : ! module procedure getTauWTI_XY_D1_RK1
8169 : ! use pm_kind, only: TKC => RK1
8170 : !#include "pm_sampleCor@routines.inc.F90"
8171 : ! end procedure
8172 : !#endif
8173 : !
8174 : !#undef RK_ENABLED
8175 : !
8176 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8177 : !
8178 : !#if !__GFORTRAN__
8179 : !#define PSSK_ENABLED 1
8180 : !
8181 : !#if SK5_ENABLED
8182 : ! module procedure getTauWTI_XY_D1_PSSK5
8183 : ! use pm_kind, only: TKC => SK5
8184 : !#include "pm_sampleCor@routines.inc.F90"
8185 : ! end procedure
8186 : !#endif
8187 : !
8188 : !#if SK4_ENABLED
8189 : ! module procedure getTauWTI_XY_D1_PSSK4
8190 : ! use pm_kind, only: TKC => SK4
8191 : !#include "pm_sampleCor@routines.inc.F90"
8192 : ! end procedure
8193 : !#endif
8194 : !
8195 : !#if SK3_ENABLED
8196 : ! module procedure getTauWTI_XY_D1_PSSK3
8197 : ! use pm_kind, only: TKC => SK3
8198 : !#include "pm_sampleCor@routines.inc.F90"
8199 : ! end procedure
8200 : !#endif
8201 : !
8202 : !#if SK2_ENABLED
8203 : ! module procedure getTauWTI_XY_D1_PSSK2
8204 : ! use pm_kind, only: TKC => SK2
8205 : !#include "pm_sampleCor@routines.inc.F90"
8206 : ! end procedure
8207 : !#endif
8208 : !
8209 : !#if SK1_ENABLED
8210 : ! module procedure getTauWTI_XY_D1_PSSK1
8211 : ! use pm_kind, only: TKC => SK1
8212 : !#include "pm_sampleCor@routines.inc.F90"
8213 : ! end procedure
8214 : !#endif
8215 : !
8216 : !#undef PSSK_ENABLED
8217 : !#endif
8218 : !
8219 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8220 : !
8221 : !#define BSSK_ENABLED 1
8222 : !
8223 : ! module procedure getTauWTI_XY_D1_BSSK
8224 : ! use pm_kind, only: TKC => SK
8225 : !#include "pm_sampleCor@routines.inc.F90"
8226 : ! end procedure
8227 : !
8228 : !#undef BSSK_ENABLED
8229 : !
8230 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8231 : !
8232 : !#undef WTI_ENABLED
8233 : !
8234 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8235 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8236 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8237 : !
8238 : !#define WTR_ENABLED 1
8239 : !
8240 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8241 : !
8242 : !#define SK_ENABLED 1
8243 : !
8244 : !#if SK5_ENABLED
8245 : ! module procedure getTauWTR_XY_D1_SK5
8246 : ! use pm_kind, only: TKC => SK5
8247 : !#include "pm_sampleCor@routines.inc.F90"
8248 : ! end procedure
8249 : !#endif
8250 : !
8251 : !#if SK4_ENABLED
8252 : ! module procedure getTauWTR_XY_D1_SK4
8253 : ! use pm_kind, only: TKC => SK4
8254 : !#include "pm_sampleCor@routines.inc.F90"
8255 : ! end procedure
8256 : !#endif
8257 : !
8258 : !#if SK3_ENABLED
8259 : ! module procedure getTauWTR_XY_D1_SK3
8260 : ! use pm_kind, only: TKC => SK3
8261 : !#include "pm_sampleCor@routines.inc.F90"
8262 : ! end procedure
8263 : !#endif
8264 : !
8265 : !#if SK2_ENABLED
8266 : ! module procedure getTauWTR_XY_D1_SK2
8267 : ! use pm_kind, only: TKC => SK2
8268 : !#include "pm_sampleCor@routines.inc.F90"
8269 : ! end procedure
8270 : !#endif
8271 : !
8272 : !#if SK1_ENABLED
8273 : ! module procedure getTauWTR_XY_D1_SK1
8274 : ! use pm_kind, only: TKC => SK1
8275 : !#include "pm_sampleCor@routines.inc.F90"
8276 : ! end procedure
8277 : !#endif
8278 : !
8279 : !#undef SK_ENABLED
8280 : !
8281 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8282 : !
8283 : !#define IK_ENABLED 1
8284 : !
8285 : !#if IK5_ENABLED
8286 : ! module procedure getTauWTR_XY_D1_IK5
8287 : ! use pm_kind, only: TKC => IK5
8288 : !#include "pm_sampleCor@routines.inc.F90"
8289 : ! end procedure
8290 : !#endif
8291 : !
8292 : !#if IK4_ENABLED
8293 : ! module procedure getTauWTR_XY_D1_IK4
8294 : ! use pm_kind, only: TKC => IK4
8295 : !#include "pm_sampleCor@routines.inc.F90"
8296 : ! end procedure
8297 : !#endif
8298 : !
8299 : !#if IK3_ENABLED
8300 : ! module procedure getTauWTR_XY_D1_IK3
8301 : ! use pm_kind, only: TKC => IK3
8302 : !#include "pm_sampleCor@routines.inc.F90"
8303 : ! end procedure
8304 : !#endif
8305 : !
8306 : !#if IK2_ENABLED
8307 : ! module procedure getTauWTR_XY_D1_IK2
8308 : ! use pm_kind, only: TKC => IK2
8309 : !#include "pm_sampleCor@routines.inc.F90"
8310 : ! end procedure
8311 : !#endif
8312 : !
8313 : !#if IK1_ENABLED
8314 : ! module procedure getTauWTR_XY_D1_IK1
8315 : ! use pm_kind, only: TKC => IK1
8316 : !#include "pm_sampleCor@routines.inc.F90"
8317 : ! end procedure
8318 : !#endif
8319 : !
8320 : !#undef IK_ENABLED
8321 : !
8322 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8323 : !
8324 : !#define RK_ENABLED 1
8325 : !
8326 : !#if RK5_ENABLED
8327 : ! module procedure getTauWTR_XY_D1_RK5
8328 : ! use pm_kind, only: TKC => RK5
8329 : !#include "pm_sampleCor@routines.inc.F90"
8330 : ! end procedure
8331 : !#endif
8332 : !
8333 : !#if RK4_ENABLED
8334 : ! module procedure getTauWTR_XY_D1_RK4
8335 : ! use pm_kind, only: TKC => RK4
8336 : !#include "pm_sampleCor@routines.inc.F90"
8337 : ! end procedure
8338 : !#endif
8339 : !
8340 : !#if RK3_ENABLED
8341 : ! module procedure getTauWTR_XY_D1_RK3
8342 : ! use pm_kind, only: TKC => RK3
8343 : !#include "pm_sampleCor@routines.inc.F90"
8344 : ! end procedure
8345 : !#endif
8346 : !
8347 : !#if RK2_ENABLED
8348 : ! module procedure getTauWTR_XY_D1_RK2
8349 : ! use pm_kind, only: TKC => RK2
8350 : !#include "pm_sampleCor@routines.inc.F90"
8351 : ! end procedure
8352 : !#endif
8353 : !
8354 : !#if RK1_ENABLED
8355 : ! module procedure getTauWTR_XY_D1_RK1
8356 : ! use pm_kind, only: TKC => RK1
8357 : !#include "pm_sampleCor@routines.inc.F90"
8358 : ! end procedure
8359 : !#endif
8360 : !
8361 : !#undef RK_ENABLED
8362 : !
8363 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8364 : !
8365 : !#if !__GFORTRAN__
8366 : !#define PSSK_ENABLED 1
8367 : !
8368 : !#if SK5_ENABLED
8369 : ! module procedure getTauWTR_XY_D1_PSSK5
8370 : ! use pm_kind, only: TKC => SK5
8371 : !#include "pm_sampleCor@routines.inc.F90"
8372 : ! end procedure
8373 : !#endif
8374 : !
8375 : !#if SK4_ENABLED
8376 : ! module procedure getTauWTR_XY_D1_PSSK4
8377 : ! use pm_kind, only: TKC => SK4
8378 : !#include "pm_sampleCor@routines.inc.F90"
8379 : ! end procedure
8380 : !#endif
8381 : !
8382 : !#if SK3_ENABLED
8383 : ! module procedure getTauWTR_XY_D1_PSSK3
8384 : ! use pm_kind, only: TKC => SK3
8385 : !#include "pm_sampleCor@routines.inc.F90"
8386 : ! end procedure
8387 : !#endif
8388 : !
8389 : !#if SK2_ENABLED
8390 : ! module procedure getTauWTR_XY_D1_PSSK2
8391 : ! use pm_kind, only: TKC => SK2
8392 : !#include "pm_sampleCor@routines.inc.F90"
8393 : ! end procedure
8394 : !#endif
8395 : !
8396 : !#if SK1_ENABLED
8397 : ! module procedure getTauWTR_XY_D1_PSSK1
8398 : ! use pm_kind, only: TKC => SK1
8399 : !#include "pm_sampleCor@routines.inc.F90"
8400 : ! end procedure
8401 : !#endif
8402 : !
8403 : !#undef PSSK_ENABLED
8404 : !#endif
8405 : !
8406 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8407 : !
8408 : !#define BSSK_ENABLED 1
8409 : !
8410 : ! module procedure getTauWTR_XY_D1_BSSK
8411 : ! use pm_kind, only: TKC => SK
8412 : !#include "pm_sampleCor@routines.inc.F90"
8413 : ! end procedure
8414 : !
8415 : !#undef BSSK_ENABLED
8416 : !
8417 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8418 : !
8419 : !#undef WTR_ENABLED
8420 : !
8421 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8422 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8423 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8424 : !
8425 : !#undef XY_D1_ENABLED
8426 : !
8427 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8428 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8429 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8430 : !
8431 : !#undef getTau_ENABLED
8432 : !
8433 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8434 : !
8435 : !#define getTau_ENABLED 1
8436 : !
8437 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8438 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8439 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8440 : !
8441 : !#define ULD_ENABLED 1
8442 : !
8443 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8444 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8445 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8446 : !
8447 : !#define WNO_ENABLED 1
8448 : !
8449 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8450 : !
8451 : !#define SK_ENABLED 1
8452 : !
8453 : !#if SK5_ENABLED
8454 : ! module procedure getTauWNO_ULD_SK5
8455 : ! use pm_kind, only: TKC => SK5
8456 : !#include "pm_sampleCor@routines.inc.F90"
8457 : ! end procedure
8458 : !#endif
8459 : !
8460 : !#if SK4_ENABLED
8461 : ! module procedure getTauWNO_ULD_SK4
8462 : ! use pm_kind, only: TKC => SK4
8463 : !#include "pm_sampleCor@routines.inc.F90"
8464 : ! end procedure
8465 : !#endif
8466 : !
8467 : !#if SK3_ENABLED
8468 : ! module procedure getTauWNO_ULD_SK3
8469 : ! use pm_kind, only: TKC => SK3
8470 : !#include "pm_sampleCor@routines.inc.F90"
8471 : ! end procedure
8472 : !#endif
8473 : !
8474 : !#if SK2_ENABLED
8475 : ! module procedure getTauWNO_ULD_SK2
8476 : ! use pm_kind, only: TKC => SK2
8477 : !#include "pm_sampleCor@routines.inc.F90"
8478 : ! end procedure
8479 : !#endif
8480 : !
8481 : !#if SK1_ENABLED
8482 : ! module procedure getTauWNO_ULD_SK1
8483 : ! use pm_kind, only: TKC => SK1
8484 : !#include "pm_sampleCor@routines.inc.F90"
8485 : ! end procedure
8486 : !#endif
8487 : !
8488 : !#undef SK_ENABLED
8489 : !
8490 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8491 : !
8492 : !#define IK_ENABLED 1
8493 : !
8494 : !#if IK5_ENABLED
8495 : ! module procedure getTauWNO_ULD_IK5
8496 : ! use pm_kind, only: TKC => IK5
8497 : !#include "pm_sampleCor@routines.inc.F90"
8498 : ! end procedure
8499 : !#endif
8500 : !
8501 : !#if IK4_ENABLED
8502 : ! module procedure getTauWNO_ULD_IK4
8503 : ! use pm_kind, only: TKC => IK4
8504 : !#include "pm_sampleCor@routines.inc.F90"
8505 : ! end procedure
8506 : !#endif
8507 : !
8508 : !#if IK3_ENABLED
8509 : ! module procedure getTauWNO_ULD_IK3
8510 : ! use pm_kind, only: TKC => IK3
8511 : !#include "pm_sampleCor@routines.inc.F90"
8512 : ! end procedure
8513 : !#endif
8514 : !
8515 : !#if IK2_ENABLED
8516 : ! module procedure getTauWNO_ULD_IK2
8517 : ! use pm_kind, only: TKC => IK2
8518 : !#include "pm_sampleCor@routines.inc.F90"
8519 : ! end procedure
8520 : !#endif
8521 : !
8522 : !#if IK1_ENABLED
8523 : ! module procedure getTauWNO_ULD_IK1
8524 : ! use pm_kind, only: TKC => IK1
8525 : !#include "pm_sampleCor@routines.inc.F90"
8526 : ! end procedure
8527 : !#endif
8528 : !
8529 : !#undef IK_ENABLED
8530 : !
8531 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8532 : !
8533 : !#define RK_ENABLED 1
8534 : !
8535 : !#if RK5_ENABLED
8536 : ! module procedure getTauWNO_ULD_RK5
8537 : ! use pm_kind, only: TKC => RK5
8538 : !#include "pm_sampleCor@routines.inc.F90"
8539 : ! end procedure
8540 : !#endif
8541 : !
8542 : !#if RK4_ENABLED
8543 : ! module procedure getTauWNO_ULD_RK4
8544 : ! use pm_kind, only: TKC => RK4
8545 : !#include "pm_sampleCor@routines.inc.F90"
8546 : ! end procedure
8547 : !#endif
8548 : !
8549 : !#if RK3_ENABLED
8550 : ! module procedure getTauWNO_ULD_RK3
8551 : ! use pm_kind, only: TKC => RK3
8552 : !#include "pm_sampleCor@routines.inc.F90"
8553 : ! end procedure
8554 : !#endif
8555 : !
8556 : !#if RK2_ENABLED
8557 : ! module procedure getTauWNO_ULD_RK2
8558 : ! use pm_kind, only: TKC => RK2
8559 : !#include "pm_sampleCor@routines.inc.F90"
8560 : ! end procedure
8561 : !#endif
8562 : !
8563 : !#if RK1_ENABLED
8564 : ! module procedure getTauWNO_ULD_RK1
8565 : ! use pm_kind, only: TKC => RK1
8566 : !#include "pm_sampleCor@routines.inc.F90"
8567 : ! end procedure
8568 : !#endif
8569 : !
8570 : !#undef RK_ENABLED
8571 : !
8572 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8573 : !
8574 : !#if !__GFORTRAN__
8575 : !#define PSSK_ENABLED 1
8576 : !
8577 : !#if SK5_ENABLED
8578 : ! module procedure getTauWNO_ULD_PSSK5
8579 : ! use pm_kind, only: TKC => SK5
8580 : !#include "pm_sampleCor@routines.inc.F90"
8581 : ! end procedure
8582 : !#endif
8583 : !
8584 : !#if SK4_ENABLED
8585 : ! module procedure getTauWNO_ULD_PSSK4
8586 : ! use pm_kind, only: TKC => SK4
8587 : !#include "pm_sampleCor@routines.inc.F90"
8588 : ! end procedure
8589 : !#endif
8590 : !
8591 : !#if SK3_ENABLED
8592 : ! module procedure getTauWNO_ULD_PSSK3
8593 : ! use pm_kind, only: TKC => SK3
8594 : !#include "pm_sampleCor@routines.inc.F90"
8595 : ! end procedure
8596 : !#endif
8597 : !
8598 : !#if SK2_ENABLED
8599 : ! module procedure getTauWNO_ULD_PSSK2
8600 : ! use pm_kind, only: TKC => SK2
8601 : !#include "pm_sampleCor@routines.inc.F90"
8602 : ! end procedure
8603 : !#endif
8604 : !
8605 : !#if SK1_ENABLED
8606 : ! module procedure getTauWNO_ULD_PSSK1
8607 : ! use pm_kind, only: TKC => SK1
8608 : !#include "pm_sampleCor@routines.inc.F90"
8609 : ! end procedure
8610 : !#endif
8611 : !
8612 : !#undef PSSK_ENABLED
8613 : !#endif
8614 : !
8615 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8616 : !
8617 : !#define BSSK_ENABLED 1
8618 : !
8619 : ! module procedure getTauWNO_ULD_BSSK
8620 : ! use pm_kind, only: TKC => SK
8621 : !#include "pm_sampleCor@routines.inc.F90"
8622 : ! end procedure
8623 : !
8624 : !#undef BSSK_ENABLED
8625 : !
8626 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8627 : !
8628 : !#undef WNO_ENABLED
8629 : !
8630 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8631 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8632 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8633 : !
8634 : !#define WTI_ENABLED 1
8635 : !
8636 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8637 : !
8638 : !#define SK_ENABLED 1
8639 : !
8640 : !#if SK5_ENABLED
8641 : ! module procedure getTauWTI_ULD_SK5
8642 : ! use pm_kind, only: TKC => SK5
8643 : !#include "pm_sampleCor@routines.inc.F90"
8644 : ! end procedure
8645 : !#endif
8646 : !
8647 : !#if SK4_ENABLED
8648 : ! module procedure getTauWTI_ULD_SK4
8649 : ! use pm_kind, only: TKC => SK4
8650 : !#include "pm_sampleCor@routines.inc.F90"
8651 : ! end procedure
8652 : !#endif
8653 : !
8654 : !#if SK3_ENABLED
8655 : ! module procedure getTauWTI_ULD_SK3
8656 : ! use pm_kind, only: TKC => SK3
8657 : !#include "pm_sampleCor@routines.inc.F90"
8658 : ! end procedure
8659 : !#endif
8660 : !
8661 : !#if SK2_ENABLED
8662 : ! module procedure getTauWTI_ULD_SK2
8663 : ! use pm_kind, only: TKC => SK2
8664 : !#include "pm_sampleCor@routines.inc.F90"
8665 : ! end procedure
8666 : !#endif
8667 : !
8668 : !#if SK1_ENABLED
8669 : ! module procedure getTauWTI_ULD_SK1
8670 : ! use pm_kind, only: TKC => SK1
8671 : !#include "pm_sampleCor@routines.inc.F90"
8672 : ! end procedure
8673 : !#endif
8674 : !
8675 : !#undef SK_ENABLED
8676 : !
8677 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8678 : !
8679 : !#define IK_ENABLED 1
8680 : !
8681 : !#if IK5_ENABLED
8682 : ! module procedure getTauWTI_ULD_IK5
8683 : ! use pm_kind, only: TKC => IK5
8684 : !#include "pm_sampleCor@routines.inc.F90"
8685 : ! end procedure
8686 : !#endif
8687 : !
8688 : !#if IK4_ENABLED
8689 : ! module procedure getTauWTI_ULD_IK4
8690 : ! use pm_kind, only: TKC => IK4
8691 : !#include "pm_sampleCor@routines.inc.F90"
8692 : ! end procedure
8693 : !#endif
8694 : !
8695 : !#if IK3_ENABLED
8696 : ! module procedure getTauWTI_ULD_IK3
8697 : ! use pm_kind, only: TKC => IK3
8698 : !#include "pm_sampleCor@routines.inc.F90"
8699 : ! end procedure
8700 : !#endif
8701 : !
8702 : !#if IK2_ENABLED
8703 : ! module procedure getTauWTI_ULD_IK2
8704 : ! use pm_kind, only: TKC => IK2
8705 : !#include "pm_sampleCor@routines.inc.F90"
8706 : ! end procedure
8707 : !#endif
8708 : !
8709 : !#if IK1_ENABLED
8710 : ! module procedure getTauWTI_ULD_IK1
8711 : ! use pm_kind, only: TKC => IK1
8712 : !#include "pm_sampleCor@routines.inc.F90"
8713 : ! end procedure
8714 : !#endif
8715 : !
8716 : !#undef IK_ENABLED
8717 : !
8718 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8719 : !
8720 : !#define RK_ENABLED 1
8721 : !
8722 : !#if RK5_ENABLED
8723 : ! module procedure getTauWTI_ULD_RK5
8724 : ! use pm_kind, only: TKC => RK5
8725 : !#include "pm_sampleCor@routines.inc.F90"
8726 : ! end procedure
8727 : !#endif
8728 : !
8729 : !#if RK4_ENABLED
8730 : ! module procedure getTauWTI_ULD_RK4
8731 : ! use pm_kind, only: TKC => RK4
8732 : !#include "pm_sampleCor@routines.inc.F90"
8733 : ! end procedure
8734 : !#endif
8735 : !
8736 : !#if RK3_ENABLED
8737 : ! module procedure getTauWTI_ULD_RK3
8738 : ! use pm_kind, only: TKC => RK3
8739 : !#include "pm_sampleCor@routines.inc.F90"
8740 : ! end procedure
8741 : !#endif
8742 : !
8743 : !#if RK2_ENABLED
8744 : ! module procedure getTauWTI_ULD_RK2
8745 : ! use pm_kind, only: TKC => RK2
8746 : !#include "pm_sampleCor@routines.inc.F90"
8747 : ! end procedure
8748 : !#endif
8749 : !
8750 : !#if RK1_ENABLED
8751 : ! module procedure getTauWTI_ULD_RK1
8752 : ! use pm_kind, only: TKC => RK1
8753 : !#include "pm_sampleCor@routines.inc.F90"
8754 : ! end procedure
8755 : !#endif
8756 : !
8757 : !#undef RK_ENABLED
8758 : !
8759 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8760 : !
8761 : !#if !__GFORTRAN__
8762 : !#define PSSK_ENABLED 1
8763 : !
8764 : !#if SK5_ENABLED
8765 : ! module procedure getTauWTI_ULD_PSSK5
8766 : ! use pm_kind, only: TKC => SK5
8767 : !#include "pm_sampleCor@routines.inc.F90"
8768 : ! end procedure
8769 : !#endif
8770 : !
8771 : !#if SK4_ENABLED
8772 : ! module procedure getTauWTI_ULD_PSSK4
8773 : ! use pm_kind, only: TKC => SK4
8774 : !#include "pm_sampleCor@routines.inc.F90"
8775 : ! end procedure
8776 : !#endif
8777 : !
8778 : !#if SK3_ENABLED
8779 : ! module procedure getTauWTI_ULD_PSSK3
8780 : ! use pm_kind, only: TKC => SK3
8781 : !#include "pm_sampleCor@routines.inc.F90"
8782 : ! end procedure
8783 : !#endif
8784 : !
8785 : !#if SK2_ENABLED
8786 : ! module procedure getTauWTI_ULD_PSSK2
8787 : ! use pm_kind, only: TKC => SK2
8788 : !#include "pm_sampleCor@routines.inc.F90"
8789 : ! end procedure
8790 : !#endif
8791 : !
8792 : !#if SK1_ENABLED
8793 : ! module procedure getTauWTI_ULD_PSSK1
8794 : ! use pm_kind, only: TKC => SK1
8795 : !#include "pm_sampleCor@routines.inc.F90"
8796 : ! end procedure
8797 : !#endif
8798 : !
8799 : !#undef PSSK_ENABLED
8800 : !#endif
8801 : !
8802 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8803 : !
8804 : !#define BSSK_ENABLED 1
8805 : !
8806 : ! module procedure getTauWTI_ULD_BSSK
8807 : ! use pm_kind, only: TKC => SK
8808 : !#include "pm_sampleCor@routines.inc.F90"
8809 : ! end procedure
8810 : !
8811 : !#undef BSSK_ENABLED
8812 : !
8813 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8814 : !
8815 : !#undef WTI_ENABLED
8816 : !
8817 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8818 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8819 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8820 : !
8821 : !#define WTR_ENABLED 1
8822 : !
8823 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8824 : !
8825 : !#define SK_ENABLED 1
8826 : !
8827 : !#if SK5_ENABLED
8828 : ! module procedure getTauWTR_ULD_SK5
8829 : ! use pm_kind, only: TKC => SK5
8830 : !#include "pm_sampleCor@routines.inc.F90"
8831 : ! end procedure
8832 : !#endif
8833 : !
8834 : !#if SK4_ENABLED
8835 : ! module procedure getTauWTR_ULD_SK4
8836 : ! use pm_kind, only: TKC => SK4
8837 : !#include "pm_sampleCor@routines.inc.F90"
8838 : ! end procedure
8839 : !#endif
8840 : !
8841 : !#if SK3_ENABLED
8842 : ! module procedure getTauWTR_ULD_SK3
8843 : ! use pm_kind, only: TKC => SK3
8844 : !#include "pm_sampleCor@routines.inc.F90"
8845 : ! end procedure
8846 : !#endif
8847 : !
8848 : !#if SK2_ENABLED
8849 : ! module procedure getTauWTR_ULD_SK2
8850 : ! use pm_kind, only: TKC => SK2
8851 : !#include "pm_sampleCor@routines.inc.F90"
8852 : ! end procedure
8853 : !#endif
8854 : !
8855 : !#if SK1_ENABLED
8856 : ! module procedure getTauWTR_ULD_SK1
8857 : ! use pm_kind, only: TKC => SK1
8858 : !#include "pm_sampleCor@routines.inc.F90"
8859 : ! end procedure
8860 : !#endif
8861 : !
8862 : !#undef SK_ENABLED
8863 : !
8864 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8865 : !
8866 : !#define IK_ENABLED 1
8867 : !
8868 : !#if IK5_ENABLED
8869 : ! module procedure getTauWTR_ULD_IK5
8870 : ! use pm_kind, only: TKC => IK5
8871 : !#include "pm_sampleCor@routines.inc.F90"
8872 : ! end procedure
8873 : !#endif
8874 : !
8875 : !#if IK4_ENABLED
8876 : ! module procedure getTauWTR_ULD_IK4
8877 : ! use pm_kind, only: TKC => IK4
8878 : !#include "pm_sampleCor@routines.inc.F90"
8879 : ! end procedure
8880 : !#endif
8881 : !
8882 : !#if IK3_ENABLED
8883 : ! module procedure getTauWTR_ULD_IK3
8884 : ! use pm_kind, only: TKC => IK3
8885 : !#include "pm_sampleCor@routines.inc.F90"
8886 : ! end procedure
8887 : !#endif
8888 : !
8889 : !#if IK2_ENABLED
8890 : ! module procedure getTauWTR_ULD_IK2
8891 : ! use pm_kind, only: TKC => IK2
8892 : !#include "pm_sampleCor@routines.inc.F90"
8893 : ! end procedure
8894 : !#endif
8895 : !
8896 : !#if IK1_ENABLED
8897 : ! module procedure getTauWTR_ULD_IK1
8898 : ! use pm_kind, only: TKC => IK1
8899 : !#include "pm_sampleCor@routines.inc.F90"
8900 : ! end procedure
8901 : !#endif
8902 : !
8903 : !#undef IK_ENABLED
8904 : !
8905 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8906 : !
8907 : !#define RK_ENABLED 1
8908 : !
8909 : !#if RK5_ENABLED
8910 : ! module procedure getTauWTR_ULD_RK5
8911 : ! use pm_kind, only: TKC => RK5
8912 : !#include "pm_sampleCor@routines.inc.F90"
8913 : ! end procedure
8914 : !#endif
8915 : !
8916 : !#if RK4_ENABLED
8917 : ! module procedure getTauWTR_ULD_RK4
8918 : ! use pm_kind, only: TKC => RK4
8919 : !#include "pm_sampleCor@routines.inc.F90"
8920 : ! end procedure
8921 : !#endif
8922 : !
8923 : !#if RK3_ENABLED
8924 : ! module procedure getTauWTR_ULD_RK3
8925 : ! use pm_kind, only: TKC => RK3
8926 : !#include "pm_sampleCor@routines.inc.F90"
8927 : ! end procedure
8928 : !#endif
8929 : !
8930 : !#if RK2_ENABLED
8931 : ! module procedure getTauWTR_ULD_RK2
8932 : ! use pm_kind, only: TKC => RK2
8933 : !#include "pm_sampleCor@routines.inc.F90"
8934 : ! end procedure
8935 : !#endif
8936 : !
8937 : !#if RK1_ENABLED
8938 : ! module procedure getTauWTR_ULD_RK1
8939 : ! use pm_kind, only: TKC => RK1
8940 : !#include "pm_sampleCor@routines.inc.F90"
8941 : ! end procedure
8942 : !#endif
8943 : !
8944 : !#undef RK_ENABLED
8945 : !
8946 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8947 : !
8948 : !#if !__GFORTRAN__
8949 : !#define PSSK_ENABLED 1
8950 : !
8951 : !#if SK5_ENABLED
8952 : ! module procedure getTauWTR_ULD_PSSK5
8953 : ! use pm_kind, only: TKC => SK5
8954 : !#include "pm_sampleCor@routines.inc.F90"
8955 : ! end procedure
8956 : !#endif
8957 : !
8958 : !#if SK4_ENABLED
8959 : ! module procedure getTauWTR_ULD_PSSK4
8960 : ! use pm_kind, only: TKC => SK4
8961 : !#include "pm_sampleCor@routines.inc.F90"
8962 : ! end procedure
8963 : !#endif
8964 : !
8965 : !#if SK3_ENABLED
8966 : ! module procedure getTauWTR_ULD_PSSK3
8967 : ! use pm_kind, only: TKC => SK3
8968 : !#include "pm_sampleCor@routines.inc.F90"
8969 : ! end procedure
8970 : !#endif
8971 : !
8972 : !#if SK2_ENABLED
8973 : ! module procedure getTauWTR_ULD_PSSK2
8974 : ! use pm_kind, only: TKC => SK2
8975 : !#include "pm_sampleCor@routines.inc.F90"
8976 : ! end procedure
8977 : !#endif
8978 : !
8979 : !#if SK1_ENABLED
8980 : ! module procedure getTauWTR_ULD_PSSK1
8981 : ! use pm_kind, only: TKC => SK1
8982 : !#include "pm_sampleCor@routines.inc.F90"
8983 : ! end procedure
8984 : !#endif
8985 : !
8986 : !#undef PSSK_ENABLED
8987 : !#endif
8988 : !
8989 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8990 : !
8991 : !#define BSSK_ENABLED 1
8992 : !
8993 : ! module procedure getTauWTR_ULD_BSSK
8994 : ! use pm_kind, only: TKC => SK
8995 : !#include "pm_sampleCor@routines.inc.F90"
8996 : ! end procedure
8997 : !
8998 : !#undef BSSK_ENABLED
8999 : !
9000 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9001 : !
9002 : !#undef WTR_ENABLED
9003 : !
9004 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9005 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9006 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9007 : !
9008 : !#undef ULD_ENABLED
9009 : !
9010 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9011 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9012 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9013 : !
9014 : !#undef getTau_ENABLED
9015 : !
9016 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9017 : !
9018 : !#define setTau_ENABLED 1
9019 : !
9020 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9021 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9022 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9023 : !
9024 : !#define XY_D0_ENABLED 1
9025 : !
9026 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9027 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9028 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9029 : !
9030 : !#define WNO_ENABLED 1
9031 : !
9032 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9033 : !
9034 : !#define SK_ENABLED 1
9035 : !
9036 : !#if SK5_ENABLED
9037 : ! module procedure setTauWNO_XY_D0_SK5
9038 : ! use pm_kind, only: TKC => SK5
9039 : !#include "pm_sampleCor@routines.inc.F90"
9040 : ! end procedure
9041 : !#endif
9042 : !
9043 : !#if SK4_ENABLED
9044 : ! module procedure setTauWNO_XY_D0_SK4
9045 : ! use pm_kind, only: TKC => SK4
9046 : !#include "pm_sampleCor@routines.inc.F90"
9047 : ! end procedure
9048 : !#endif
9049 : !
9050 : !#if SK3_ENABLED
9051 : ! module procedure setTauWNO_XY_D0_SK3
9052 : ! use pm_kind, only: TKC => SK3
9053 : !#include "pm_sampleCor@routines.inc.F90"
9054 : ! end procedure
9055 : !#endif
9056 : !
9057 : !#if SK2_ENABLED
9058 : ! module procedure setTauWNO_XY_D0_SK2
9059 : ! use pm_kind, only: TKC => SK2
9060 : !#include "pm_sampleCor@routines.inc.F90"
9061 : ! end procedure
9062 : !#endif
9063 : !
9064 : !#if SK1_ENABLED
9065 : ! module procedure setTauWNO_XY_D0_SK1
9066 : ! use pm_kind, only: TKC => SK1
9067 : !#include "pm_sampleCor@routines.inc.F90"
9068 : ! end procedure
9069 : !#endif
9070 : !
9071 : !#undef SK_ENABLED
9072 : !
9073 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9074 : !
9075 : !#undef WNO_ENABLED
9076 : !
9077 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9078 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9079 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9080 : !
9081 : !#define WTI_ENABLED 1
9082 : !
9083 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9084 : !
9085 : !#define SK_ENABLED 1
9086 : !
9087 : !#if SK5_ENABLED
9088 : ! module procedure setTauWTI_XY_D0_SK5
9089 : ! use pm_kind, only: TKC => SK5
9090 : !#include "pm_sampleCor@routines.inc.F90"
9091 : ! end procedure
9092 : !#endif
9093 : !
9094 : !#if SK4_ENABLED
9095 : ! module procedure setTauWTI_XY_D0_SK4
9096 : ! use pm_kind, only: TKC => SK4
9097 : !#include "pm_sampleCor@routines.inc.F90"
9098 : ! end procedure
9099 : !#endif
9100 : !
9101 : !#if SK3_ENABLED
9102 : ! module procedure setTauWTI_XY_D0_SK3
9103 : ! use pm_kind, only: TKC => SK3
9104 : !#include "pm_sampleCor@routines.inc.F90"
9105 : ! end procedure
9106 : !#endif
9107 : !
9108 : !#if SK2_ENABLED
9109 : ! module procedure setTauWTI_XY_D0_SK2
9110 : ! use pm_kind, only: TKC => SK2
9111 : !#include "pm_sampleCor@routines.inc.F90"
9112 : ! end procedure
9113 : !#endif
9114 : !
9115 : !#if SK1_ENABLED
9116 : ! module procedure setTauWTI_XY_D0_SK1
9117 : ! use pm_kind, only: TKC => SK1
9118 : !#include "pm_sampleCor@routines.inc.F90"
9119 : ! end procedure
9120 : !#endif
9121 : !
9122 : !#undef SK_ENABLED
9123 : !
9124 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9125 : !
9126 : !#undef WTI_ENABLED
9127 : !
9128 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9129 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9130 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9131 : !
9132 : !#define WTR_ENABLED 1
9133 : !
9134 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9135 : !
9136 : !#define SK_ENABLED 1
9137 : !
9138 : !#if SK5_ENABLED
9139 : ! module procedure setTauWTR_XY_D0_SK5
9140 : ! use pm_kind, only: TKC => SK5
9141 : !#include "pm_sampleCor@routines.inc.F90"
9142 : ! end procedure
9143 : !#endif
9144 : !
9145 : !#if SK4_ENABLED
9146 : ! module procedure setTauWTR_XY_D0_SK4
9147 : ! use pm_kind, only: TKC => SK4
9148 : !#include "pm_sampleCor@routines.inc.F90"
9149 : ! end procedure
9150 : !#endif
9151 : !
9152 : !#if SK3_ENABLED
9153 : ! module procedure setTauWTR_XY_D0_SK3
9154 : ! use pm_kind, only: TKC => SK3
9155 : !#include "pm_sampleCor@routines.inc.F90"
9156 : ! end procedure
9157 : !#endif
9158 : !
9159 : !#if SK2_ENABLED
9160 : ! module procedure setTauWTR_XY_D0_SK2
9161 : ! use pm_kind, only: TKC => SK2
9162 : !#include "pm_sampleCor@routines.inc.F90"
9163 : ! end procedure
9164 : !#endif
9165 : !
9166 : !#if SK1_ENABLED
9167 : ! module procedure setTauWTR_XY_D0_SK1
9168 : ! use pm_kind, only: TKC => SK1
9169 : !#include "pm_sampleCor@routines.inc.F90"
9170 : ! end procedure
9171 : !#endif
9172 : !
9173 : !#undef SK_ENABLED
9174 : !
9175 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9176 : !
9177 : !#undef WTR_ENABLED
9178 : !
9179 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9180 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9181 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9182 : !
9183 : !#undef XY_D0_ENABLED
9184 : !
9185 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9186 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9187 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9188 : !
9189 : !#undef setTau_ENABLED
9190 : !
9191 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9192 : !
9193 : !#define setTau_ENABLED 1
9194 : !
9195 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9196 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9197 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9198 : !
9199 : !#define XY_D1_ENABLED 1
9200 : !
9201 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9202 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9203 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9204 : !
9205 : !#define WNO_ENABLED 1
9206 : !
9207 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9208 : !
9209 : !#define SK_ENABLED 1
9210 : !
9211 : !#if SK5_ENABLED
9212 : ! module procedure setTauWNO_XY_D1_SK5
9213 : ! use pm_kind, only: TKC => SK5
9214 : !#include "pm_sampleCor@routines.inc.F90"
9215 : ! end procedure
9216 : !#endif
9217 : !
9218 : !#if SK4_ENABLED
9219 : ! module procedure setTauWNO_XY_D1_SK4
9220 : ! use pm_kind, only: TKC => SK4
9221 : !#include "pm_sampleCor@routines.inc.F90"
9222 : ! end procedure
9223 : !#endif
9224 : !
9225 : !#if SK3_ENABLED
9226 : ! module procedure setTauWNO_XY_D1_SK3
9227 : ! use pm_kind, only: TKC => SK3
9228 : !#include "pm_sampleCor@routines.inc.F90"
9229 : ! end procedure
9230 : !#endif
9231 : !
9232 : !#if SK2_ENABLED
9233 : ! module procedure setTauWNO_XY_D1_SK2
9234 : ! use pm_kind, only: TKC => SK2
9235 : !#include "pm_sampleCor@routines.inc.F90"
9236 : ! end procedure
9237 : !#endif
9238 : !
9239 : !#if SK1_ENABLED
9240 : ! module procedure setTauWNO_XY_D1_SK1
9241 : ! use pm_kind, only: TKC => SK1
9242 : !#include "pm_sampleCor@routines.inc.F90"
9243 : ! end procedure
9244 : !#endif
9245 : !
9246 : !#undef SK_ENABLED
9247 : !
9248 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9249 : !
9250 : !#define IK_ENABLED 1
9251 : !
9252 : !#if IK5_ENABLED
9253 : ! module procedure setTauWNO_XY_D1_IK5
9254 : ! use pm_kind, only: TKC => IK5
9255 : !#include "pm_sampleCor@routines.inc.F90"
9256 : ! end procedure
9257 : !#endif
9258 : !
9259 : !#if IK4_ENABLED
9260 : ! module procedure setTauWNO_XY_D1_IK4
9261 : ! use pm_kind, only: TKC => IK4
9262 : !#include "pm_sampleCor@routines.inc.F90"
9263 : ! end procedure
9264 : !#endif
9265 : !
9266 : !#if IK3_ENABLED
9267 : ! module procedure setTauWNO_XY_D1_IK3
9268 : ! use pm_kind, only: TKC => IK3
9269 : !#include "pm_sampleCor@routines.inc.F90"
9270 : ! end procedure
9271 : !#endif
9272 : !
9273 : !#if IK2_ENABLED
9274 : ! module procedure setTauWNO_XY_D1_IK2
9275 : ! use pm_kind, only: TKC => IK2
9276 : !#include "pm_sampleCor@routines.inc.F90"
9277 : ! end procedure
9278 : !#endif
9279 : !
9280 : !#if IK1_ENABLED
9281 : ! module procedure setTauWNO_XY_D1_IK1
9282 : ! use pm_kind, only: TKC => IK1
9283 : !#include "pm_sampleCor@routines.inc.F90"
9284 : ! end procedure
9285 : !#endif
9286 : !
9287 : !#undef IK_ENABLED
9288 : !
9289 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9290 : !
9291 : !#define RK_ENABLED 1
9292 : !
9293 : !#if RK5_ENABLED
9294 : ! module procedure setTauWNO_XY_D1_RK5
9295 : ! use pm_kind, only: TKC => RK5
9296 : !#include "pm_sampleCor@routines.inc.F90"
9297 : ! end procedure
9298 : !#endif
9299 : !
9300 : !#if RK4_ENABLED
9301 : ! module procedure setTauWNO_XY_D1_RK4
9302 : ! use pm_kind, only: TKC => RK4
9303 : !#include "pm_sampleCor@routines.inc.F90"
9304 : ! end procedure
9305 : !#endif
9306 : !
9307 : !#if RK3_ENABLED
9308 : ! module procedure setTauWNO_XY_D1_RK3
9309 : ! use pm_kind, only: TKC => RK3
9310 : !#include "pm_sampleCor@routines.inc.F90"
9311 : ! end procedure
9312 : !#endif
9313 : !
9314 : !#if RK2_ENABLED
9315 : ! module procedure setTauWNO_XY_D1_RK2
9316 : ! use pm_kind, only: TKC => RK2
9317 : !#include "pm_sampleCor@routines.inc.F90"
9318 : ! end procedure
9319 : !#endif
9320 : !
9321 : !#if RK1_ENABLED
9322 : ! module procedure setTauWNO_XY_D1_RK1
9323 : ! use pm_kind, only: TKC => RK1
9324 : !#include "pm_sampleCor@routines.inc.F90"
9325 : ! end procedure
9326 : !#endif
9327 : !
9328 : !#undef RK_ENABLED
9329 : !
9330 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9331 : !
9332 : !#if !__GFORTRAN__
9333 : !#define PSSK_ENABLED 1
9334 : !
9335 : !#if SK5_ENABLED
9336 : ! module procedure setTauWNO_XY_D1_PSSK5
9337 : ! use pm_kind, only: TKC => SK5
9338 : !#include "pm_sampleCor@routines.inc.F90"
9339 : ! end procedure
9340 : !#endif
9341 : !
9342 : !#if SK4_ENABLED
9343 : ! module procedure setTauWNO_XY_D1_PSSK4
9344 : ! use pm_kind, only: TKC => SK4
9345 : !#include "pm_sampleCor@routines.inc.F90"
9346 : ! end procedure
9347 : !#endif
9348 : !
9349 : !#if SK3_ENABLED
9350 : ! module procedure setTauWNO_XY_D1_PSSK3
9351 : ! use pm_kind, only: TKC => SK3
9352 : !#include "pm_sampleCor@routines.inc.F90"
9353 : ! end procedure
9354 : !#endif
9355 : !
9356 : !#if SK2_ENABLED
9357 : ! module procedure setTauWNO_XY_D1_PSSK2
9358 : ! use pm_kind, only: TKC => SK2
9359 : !#include "pm_sampleCor@routines.inc.F90"
9360 : ! end procedure
9361 : !#endif
9362 : !
9363 : !#if SK1_ENABLED
9364 : ! module procedure setTauWNO_XY_D1_PSSK1
9365 : ! use pm_kind, only: TKC => SK1
9366 : !#include "pm_sampleCor@routines.inc.F90"
9367 : ! end procedure
9368 : !#endif
9369 : !
9370 : !#undef PSSK_ENABLED
9371 : !#endif
9372 : !
9373 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9374 : !
9375 : !#define BSSK_ENABLED 1
9376 : !
9377 : ! module procedure setTauWNO_XY_D1_BSSK
9378 : ! use pm_kind, only: TKC => SK
9379 : !#include "pm_sampleCor@routines.inc.F90"
9380 : ! end procedure
9381 : !
9382 : !#undef BSSK_ENABLED
9383 : !
9384 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9385 : !
9386 : !#undef WNO_ENABLED
9387 : !
9388 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9389 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9390 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9391 : !
9392 : !#define WTI_ENABLED 1
9393 : !
9394 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9395 : !
9396 : !#define SK_ENABLED 1
9397 : !
9398 : !#if SK5_ENABLED
9399 : ! module procedure setTauWTI_XY_D1_SK5
9400 : ! use pm_kind, only: TKC => SK5
9401 : !#include "pm_sampleCor@routines.inc.F90"
9402 : ! end procedure
9403 : !#endif
9404 : !
9405 : !#if SK4_ENABLED
9406 : ! module procedure setTauWTI_XY_D1_SK4
9407 : ! use pm_kind, only: TKC => SK4
9408 : !#include "pm_sampleCor@routines.inc.F90"
9409 : ! end procedure
9410 : !#endif
9411 : !
9412 : !#if SK3_ENABLED
9413 : ! module procedure setTauWTI_XY_D1_SK3
9414 : ! use pm_kind, only: TKC => SK3
9415 : !#include "pm_sampleCor@routines.inc.F90"
9416 : ! end procedure
9417 : !#endif
9418 : !
9419 : !#if SK2_ENABLED
9420 : ! module procedure setTauWTI_XY_D1_SK2
9421 : ! use pm_kind, only: TKC => SK2
9422 : !#include "pm_sampleCor@routines.inc.F90"
9423 : ! end procedure
9424 : !#endif
9425 : !
9426 : !#if SK1_ENABLED
9427 : ! module procedure setTauWTI_XY_D1_SK1
9428 : ! use pm_kind, only: TKC => SK1
9429 : !#include "pm_sampleCor@routines.inc.F90"
9430 : ! end procedure
9431 : !#endif
9432 : !
9433 : !#undef SK_ENABLED
9434 : !
9435 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9436 : !
9437 : !#define IK_ENABLED 1
9438 : !
9439 : !#if IK5_ENABLED
9440 : ! module procedure setTauWTI_XY_D1_IK5
9441 : ! use pm_kind, only: TKC => IK5
9442 : !#include "pm_sampleCor@routines.inc.F90"
9443 : ! end procedure
9444 : !#endif
9445 : !
9446 : !#if IK4_ENABLED
9447 : ! module procedure setTauWTI_XY_D1_IK4
9448 : ! use pm_kind, only: TKC => IK4
9449 : !#include "pm_sampleCor@routines.inc.F90"
9450 : ! end procedure
9451 : !#endif
9452 : !
9453 : !#if IK3_ENABLED
9454 : ! module procedure setTauWTI_XY_D1_IK3
9455 : ! use pm_kind, only: TKC => IK3
9456 : !#include "pm_sampleCor@routines.inc.F90"
9457 : ! end procedure
9458 : !#endif
9459 : !
9460 : !#if IK2_ENABLED
9461 : ! module procedure setTauWTI_XY_D1_IK2
9462 : ! use pm_kind, only: TKC => IK2
9463 : !#include "pm_sampleCor@routines.inc.F90"
9464 : ! end procedure
9465 : !#endif
9466 : !
9467 : !#if IK1_ENABLED
9468 : ! module procedure setTauWTI_XY_D1_IK1
9469 : ! use pm_kind, only: TKC => IK1
9470 : !#include "pm_sampleCor@routines.inc.F90"
9471 : ! end procedure
9472 : !#endif
9473 : !
9474 : !#undef IK_ENABLED
9475 : !
9476 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9477 : !
9478 : !#define RK_ENABLED 1
9479 : !
9480 : !#if RK5_ENABLED
9481 : ! module procedure setTauWTI_XY_D1_RK5
9482 : ! use pm_kind, only: TKC => RK5
9483 : !#include "pm_sampleCor@routines.inc.F90"
9484 : ! end procedure
9485 : !#endif
9486 : !
9487 : !#if RK4_ENABLED
9488 : ! module procedure setTauWTI_XY_D1_RK4
9489 : ! use pm_kind, only: TKC => RK4
9490 : !#include "pm_sampleCor@routines.inc.F90"
9491 : ! end procedure
9492 : !#endif
9493 : !
9494 : !#if RK3_ENABLED
9495 : ! module procedure setTauWTI_XY_D1_RK3
9496 : ! use pm_kind, only: TKC => RK3
9497 : !#include "pm_sampleCor@routines.inc.F90"
9498 : ! end procedure
9499 : !#endif
9500 : !
9501 : !#if RK2_ENABLED
9502 : ! module procedure setTauWTI_XY_D1_RK2
9503 : ! use pm_kind, only: TKC => RK2
9504 : !#include "pm_sampleCor@routines.inc.F90"
9505 : ! end procedure
9506 : !#endif
9507 : !
9508 : !#if RK1_ENABLED
9509 : ! module procedure setTauWTI_XY_D1_RK1
9510 : ! use pm_kind, only: TKC => RK1
9511 : !#include "pm_sampleCor@routines.inc.F90"
9512 : ! end procedure
9513 : !#endif
9514 : !
9515 : !#undef RK_ENABLED
9516 : !
9517 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9518 : !
9519 : !#if !__GFORTRAN__
9520 : !#define PSSK_ENABLED 1
9521 : !
9522 : !#if SK5_ENABLED
9523 : ! module procedure setTauWTI_XY_D1_PSSK5
9524 : ! use pm_kind, only: TKC => SK5
9525 : !#include "pm_sampleCor@routines.inc.F90"
9526 : ! end procedure
9527 : !#endif
9528 : !
9529 : !#if SK4_ENABLED
9530 : ! module procedure setTauWTI_XY_D1_PSSK4
9531 : ! use pm_kind, only: TKC => SK4
9532 : !#include "pm_sampleCor@routines.inc.F90"
9533 : ! end procedure
9534 : !#endif
9535 : !
9536 : !#if SK3_ENABLED
9537 : ! module procedure setTauWTI_XY_D1_PSSK3
9538 : ! use pm_kind, only: TKC => SK3
9539 : !#include "pm_sampleCor@routines.inc.F90"
9540 : ! end procedure
9541 : !#endif
9542 : !
9543 : !#if SK2_ENABLED
9544 : ! module procedure setTauWTI_XY_D1_PSSK2
9545 : ! use pm_kind, only: TKC => SK2
9546 : !#include "pm_sampleCor@routines.inc.F90"
9547 : ! end procedure
9548 : !#endif
9549 : !
9550 : !#if SK1_ENABLED
9551 : ! module procedure setTauWTI_XY_D1_PSSK1
9552 : ! use pm_kind, only: TKC => SK1
9553 : !#include "pm_sampleCor@routines.inc.F90"
9554 : ! end procedure
9555 : !#endif
9556 : !
9557 : !#undef PSSK_ENABLED
9558 : !#endif
9559 : !
9560 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9561 : !
9562 : !#define BSSK_ENABLED 1
9563 : !
9564 : ! module procedure setTauWTI_XY_D1_BSSK
9565 : ! use pm_kind, only: TKC => SK
9566 : !#include "pm_sampleCor@routines.inc.F90"
9567 : ! end procedure
9568 : !
9569 : !#undef BSSK_ENABLED
9570 : !
9571 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9572 : !
9573 : !#undef WTI_ENABLED
9574 : !
9575 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9576 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9577 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9578 : !
9579 : !#define WTR_ENABLED 1
9580 : !
9581 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9582 : !
9583 : !#define SK_ENABLED 1
9584 : !
9585 : !#if SK5_ENABLED
9586 : ! module procedure setTauWTR_XY_D1_SK5
9587 : ! use pm_kind, only: TKC => SK5
9588 : !#include "pm_sampleCor@routines.inc.F90"
9589 : ! end procedure
9590 : !#endif
9591 : !
9592 : !#if SK4_ENABLED
9593 : ! module procedure setTauWTR_XY_D1_SK4
9594 : ! use pm_kind, only: TKC => SK4
9595 : !#include "pm_sampleCor@routines.inc.F90"
9596 : ! end procedure
9597 : !#endif
9598 : !
9599 : !#if SK3_ENABLED
9600 : ! module procedure setTauWTR_XY_D1_SK3
9601 : ! use pm_kind, only: TKC => SK3
9602 : !#include "pm_sampleCor@routines.inc.F90"
9603 : ! end procedure
9604 : !#endif
9605 : !
9606 : !#if SK2_ENABLED
9607 : ! module procedure setTauWTR_XY_D1_SK2
9608 : ! use pm_kind, only: TKC => SK2
9609 : !#include "pm_sampleCor@routines.inc.F90"
9610 : ! end procedure
9611 : !#endif
9612 : !
9613 : !#if SK1_ENABLED
9614 : ! module procedure setTauWTR_XY_D1_SK1
9615 : ! use pm_kind, only: TKC => SK1
9616 : !#include "pm_sampleCor@routines.inc.F90"
9617 : ! end procedure
9618 : !#endif
9619 : !
9620 : !#undef SK_ENABLED
9621 : !
9622 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9623 : !
9624 : !#define IK_ENABLED 1
9625 : !
9626 : !#if IK5_ENABLED
9627 : ! module procedure setTauWTR_XY_D1_IK5
9628 : ! use pm_kind, only: TKC => IK5
9629 : !#include "pm_sampleCor@routines.inc.F90"
9630 : ! end procedure
9631 : !#endif
9632 : !
9633 : !#if IK4_ENABLED
9634 : ! module procedure setTauWTR_XY_D1_IK4
9635 : ! use pm_kind, only: TKC => IK4
9636 : !#include "pm_sampleCor@routines.inc.F90"
9637 : ! end procedure
9638 : !#endif
9639 : !
9640 : !#if IK3_ENABLED
9641 : ! module procedure setTauWTR_XY_D1_IK3
9642 : ! use pm_kind, only: TKC => IK3
9643 : !#include "pm_sampleCor@routines.inc.F90"
9644 : ! end procedure
9645 : !#endif
9646 : !
9647 : !#if IK2_ENABLED
9648 : ! module procedure setTauWTR_XY_D1_IK2
9649 : ! use pm_kind, only: TKC => IK2
9650 : !#include "pm_sampleCor@routines.inc.F90"
9651 : ! end procedure
9652 : !#endif
9653 : !
9654 : !#if IK1_ENABLED
9655 : ! module procedure setTauWTR_XY_D1_IK1
9656 : ! use pm_kind, only: TKC => IK1
9657 : !#include "pm_sampleCor@routines.inc.F90"
9658 : ! end procedure
9659 : !#endif
9660 : !
9661 : !#undef IK_ENABLED
9662 : !
9663 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9664 : !
9665 : !#define RK_ENABLED 1
9666 : !
9667 : !#if RK5_ENABLED
9668 : ! module procedure setTauWTR_XY_D1_RK5
9669 : ! use pm_kind, only: TKC => RK5
9670 : !#include "pm_sampleCor@routines.inc.F90"
9671 : ! end procedure
9672 : !#endif
9673 : !
9674 : !#if RK4_ENABLED
9675 : ! module procedure setTauWTR_XY_D1_RK4
9676 : ! use pm_kind, only: TKC => RK4
9677 : !#include "pm_sampleCor@routines.inc.F90"
9678 : ! end procedure
9679 : !#endif
9680 : !
9681 : !#if RK3_ENABLED
9682 : ! module procedure setTauWTR_XY_D1_RK3
9683 : ! use pm_kind, only: TKC => RK3
9684 : !#include "pm_sampleCor@routines.inc.F90"
9685 : ! end procedure
9686 : !#endif
9687 : !
9688 : !#if RK2_ENABLED
9689 : ! module procedure setTauWTR_XY_D1_RK2
9690 : ! use pm_kind, only: TKC => RK2
9691 : !#include "pm_sampleCor@routines.inc.F90"
9692 : ! end procedure
9693 : !#endif
9694 : !
9695 : !#if RK1_ENABLED
9696 : ! module procedure setTauWTR_XY_D1_RK1
9697 : ! use pm_kind, only: TKC => RK1
9698 : !#include "pm_sampleCor@routines.inc.F90"
9699 : ! end procedure
9700 : !#endif
9701 : !
9702 : !#undef RK_ENABLED
9703 : !
9704 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9705 : !
9706 : !#if !__GFORTRAN__
9707 : !#define PSSK_ENABLED 1
9708 : !
9709 : !#if SK5_ENABLED
9710 : ! module procedure setTauWTR_XY_D1_PSSK5
9711 : ! use pm_kind, only: TKC => SK5
9712 : !#include "pm_sampleCor@routines.inc.F90"
9713 : ! end procedure
9714 : !#endif
9715 : !
9716 : !#if SK4_ENABLED
9717 : ! module procedure setTauWTR_XY_D1_PSSK4
9718 : ! use pm_kind, only: TKC => SK4
9719 : !#include "pm_sampleCor@routines.inc.F90"
9720 : ! end procedure
9721 : !#endif
9722 : !
9723 : !#if SK3_ENABLED
9724 : ! module procedure setTauWTR_XY_D1_PSSK3
9725 : ! use pm_kind, only: TKC => SK3
9726 : !#include "pm_sampleCor@routines.inc.F90"
9727 : ! end procedure
9728 : !#endif
9729 : !
9730 : !#if SK2_ENABLED
9731 : ! module procedure setTauWTR_XY_D1_PSSK2
9732 : ! use pm_kind, only: TKC => SK2
9733 : !#include "pm_sampleCor@routines.inc.F90"
9734 : ! end procedure
9735 : !#endif
9736 : !
9737 : !#if SK1_ENABLED
9738 : ! module procedure setTauWTR_XY_D1_PSSK1
9739 : ! use pm_kind, only: TKC => SK1
9740 : !#include "pm_sampleCor@routines.inc.F90"
9741 : ! end procedure
9742 : !#endif
9743 : !
9744 : !#undef PSSK_ENABLED
9745 : !#endif
9746 : !
9747 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9748 : !
9749 : !#define BSSK_ENABLED 1
9750 : !
9751 : ! module procedure setTauWTR_XY_D1_BSSK
9752 : ! use pm_kind, only: TKC => SK
9753 : !#include "pm_sampleCor@routines.inc.F90"
9754 : ! end procedure
9755 : !
9756 : !#undef BSSK_ENABLED
9757 : !
9758 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9759 : !
9760 : !#undef WTR_ENABLED
9761 : !
9762 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9763 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9764 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9765 : !
9766 : !#undef XY_D1_ENABLED
9767 : !
9768 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9769 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9770 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9771 : !
9772 : !#undef setTau_ENABLED
9773 : !
9774 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9775 : !
9776 : !#define setTau_ENABLED 1
9777 : !
9778 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9779 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9780 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9781 : !
9782 : !#define UXD_ENABLED 1
9783 : !
9784 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9785 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9786 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9787 : !
9788 : !#define WNO_ENABLED 1
9789 : !
9790 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9791 : !
9792 : !#define SK_ENABLED 1
9793 : !
9794 : !#if SK5_ENABLED
9795 : ! module procedure setTauWNO_UXD_SK5
9796 : ! use pm_kind, only: TKC => SK5
9797 : !#include "pm_sampleCor@routines.inc.F90"
9798 : ! end procedure
9799 : !#endif
9800 : !
9801 : !#if SK4_ENABLED
9802 : ! module procedure setTauWNO_UXD_SK4
9803 : ! use pm_kind, only: TKC => SK4
9804 : !#include "pm_sampleCor@routines.inc.F90"
9805 : ! end procedure
9806 : !#endif
9807 : !
9808 : !#if SK3_ENABLED
9809 : ! module procedure setTauWNO_UXD_SK3
9810 : ! use pm_kind, only: TKC => SK3
9811 : !#include "pm_sampleCor@routines.inc.F90"
9812 : ! end procedure
9813 : !#endif
9814 : !
9815 : !#if SK2_ENABLED
9816 : ! module procedure setTauWNO_UXD_SK2
9817 : ! use pm_kind, only: TKC => SK2
9818 : !#include "pm_sampleCor@routines.inc.F90"
9819 : ! end procedure
9820 : !#endif
9821 : !
9822 : !#if SK1_ENABLED
9823 : ! module procedure setTauWNO_UXD_SK1
9824 : ! use pm_kind, only: TKC => SK1
9825 : !#include "pm_sampleCor@routines.inc.F90"
9826 : ! end procedure
9827 : !#endif
9828 : !
9829 : !#undef SK_ENABLED
9830 : !
9831 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9832 : !
9833 : !#define IK_ENABLED 1
9834 : !
9835 : !#if IK5_ENABLED
9836 : ! module procedure setTauWNO_UXD_IK5
9837 : ! use pm_kind, only: TKC => IK5
9838 : !#include "pm_sampleCor@routines.inc.F90"
9839 : ! end procedure
9840 : !#endif
9841 : !
9842 : !#if IK4_ENABLED
9843 : ! module procedure setTauWNO_UXD_IK4
9844 : ! use pm_kind, only: TKC => IK4
9845 : !#include "pm_sampleCor@routines.inc.F90"
9846 : ! end procedure
9847 : !#endif
9848 : !
9849 : !#if IK3_ENABLED
9850 : ! module procedure setTauWNO_UXD_IK3
9851 : ! use pm_kind, only: TKC => IK3
9852 : !#include "pm_sampleCor@routines.inc.F90"
9853 : ! end procedure
9854 : !#endif
9855 : !
9856 : !#if IK2_ENABLED
9857 : ! module procedure setTauWNO_UXD_IK2
9858 : ! use pm_kind, only: TKC => IK2
9859 : !#include "pm_sampleCor@routines.inc.F90"
9860 : ! end procedure
9861 : !#endif
9862 : !
9863 : !#if IK1_ENABLED
9864 : ! module procedure setTauWNO_UXD_IK1
9865 : ! use pm_kind, only: TKC => IK1
9866 : !#include "pm_sampleCor@routines.inc.F90"
9867 : ! end procedure
9868 : !#endif
9869 : !
9870 : !#undef IK_ENABLED
9871 : !
9872 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9873 : !
9874 : !#define RK_ENABLED 1
9875 : !
9876 : !#if RK5_ENABLED
9877 : ! module procedure setTauWNO_UXD_RK5
9878 : ! use pm_kind, only: TKC => RK5
9879 : !#include "pm_sampleCor@routines.inc.F90"
9880 : ! end procedure
9881 : !#endif
9882 : !
9883 : !#if RK4_ENABLED
9884 : ! module procedure setTauWNO_UXD_RK4
9885 : ! use pm_kind, only: TKC => RK4
9886 : !#include "pm_sampleCor@routines.inc.F90"
9887 : ! end procedure
9888 : !#endif
9889 : !
9890 : !#if RK3_ENABLED
9891 : ! module procedure setTauWNO_UXD_RK3
9892 : ! use pm_kind, only: TKC => RK3
9893 : !#include "pm_sampleCor@routines.inc.F90"
9894 : ! end procedure
9895 : !#endif
9896 : !
9897 : !#if RK2_ENABLED
9898 : ! module procedure setTauWNO_UXD_RK2
9899 : ! use pm_kind, only: TKC => RK2
9900 : !#include "pm_sampleCor@routines.inc.F90"
9901 : ! end procedure
9902 : !#endif
9903 : !
9904 : !#if RK1_ENABLED
9905 : ! module procedure setTauWNO_UXD_RK1
9906 : ! use pm_kind, only: TKC => RK1
9907 : !#include "pm_sampleCor@routines.inc.F90"
9908 : ! end procedure
9909 : !#endif
9910 : !
9911 : !#undef RK_ENABLED
9912 : !
9913 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9914 : !
9915 : !#if !__GFORTRAN__
9916 : !#define PSSK_ENABLED 1
9917 : !
9918 : !#if SK5_ENABLED
9919 : ! module procedure setTauWNO_UXD_PSSK5
9920 : ! use pm_kind, only: TKC => SK5
9921 : !#include "pm_sampleCor@routines.inc.F90"
9922 : ! end procedure
9923 : !#endif
9924 : !
9925 : !#if SK4_ENABLED
9926 : ! module procedure setTauWNO_UXD_PSSK4
9927 : ! use pm_kind, only: TKC => SK4
9928 : !#include "pm_sampleCor@routines.inc.F90"
9929 : ! end procedure
9930 : !#endif
9931 : !
9932 : !#if SK3_ENABLED
9933 : ! module procedure setTauWNO_UXD_PSSK3
9934 : ! use pm_kind, only: TKC => SK3
9935 : !#include "pm_sampleCor@routines.inc.F90"
9936 : ! end procedure
9937 : !#endif
9938 : !
9939 : !#if SK2_ENABLED
9940 : ! module procedure setTauWNO_UXD_PSSK2
9941 : ! use pm_kind, only: TKC => SK2
9942 : !#include "pm_sampleCor@routines.inc.F90"
9943 : ! end procedure
9944 : !#endif
9945 : !
9946 : !#if SK1_ENABLED
9947 : ! module procedure setTauWNO_UXD_PSSK1
9948 : ! use pm_kind, only: TKC => SK1
9949 : !#include "pm_sampleCor@routines.inc.F90"
9950 : ! end procedure
9951 : !#endif
9952 : !
9953 : !#undef PSSK_ENABLED
9954 : !#endif
9955 : !
9956 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9957 : !
9958 : !#define BSSK_ENABLED 1
9959 : !
9960 : ! module procedure setTauWNO_UXD_BSSK
9961 : ! use pm_kind, only: TKC => SK
9962 : !#include "pm_sampleCor@routines.inc.F90"
9963 : ! end procedure
9964 : !
9965 : !#undef BSSK_ENABLED
9966 : !
9967 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9968 : !
9969 : !#undef WNO_ENABLED
9970 : !
9971 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9972 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9973 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9974 : !
9975 : !#define WTI_ENABLED 1
9976 : !
9977 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9978 : !
9979 : !#define SK_ENABLED 1
9980 : !
9981 : !#if SK5_ENABLED
9982 : ! module procedure setTauWTI_UXD_SK5
9983 : ! use pm_kind, only: TKC => SK5
9984 : !#include "pm_sampleCor@routines.inc.F90"
9985 : ! end procedure
9986 : !#endif
9987 : !
9988 : !#if SK4_ENABLED
9989 : ! module procedure setTauWTI_UXD_SK4
9990 : ! use pm_kind, only: TKC => SK4
9991 : !#include "pm_sampleCor@routines.inc.F90"
9992 : ! end procedure
9993 : !#endif
9994 : !
9995 : !#if SK3_ENABLED
9996 : ! module procedure setTauWTI_UXD_SK3
9997 : ! use pm_kind, only: TKC => SK3
9998 : !#include "pm_sampleCor@routines.inc.F90"
9999 : ! end procedure
10000 : !#endif
10001 : !
10002 : !#if SK2_ENABLED
10003 : ! module procedure setTauWTI_UXD_SK2
10004 : ! use pm_kind, only: TKC => SK2
10005 : !#include "pm_sampleCor@routines.inc.F90"
10006 : ! end procedure
10007 : !#endif
10008 : !
10009 : !#if SK1_ENABLED
10010 : ! module procedure setTauWTI_UXD_SK1
10011 : ! use pm_kind, only: TKC => SK1
10012 : !#include "pm_sampleCor@routines.inc.F90"
10013 : ! end procedure
10014 : !#endif
10015 : !
10016 : !#undef SK_ENABLED
10017 : !
10018 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10019 : !
10020 : !#define IK_ENABLED 1
10021 : !
10022 : !#if IK5_ENABLED
10023 : ! module procedure setTauWTI_UXD_IK5
10024 : ! use pm_kind, only: TKC => IK5
10025 : !#include "pm_sampleCor@routines.inc.F90"
10026 : ! end procedure
10027 : !#endif
10028 : !
10029 : !#if IK4_ENABLED
10030 : ! module procedure setTauWTI_UXD_IK4
10031 : ! use pm_kind, only: TKC => IK4
10032 : !#include "pm_sampleCor@routines.inc.F90"
10033 : ! end procedure
10034 : !#endif
10035 : !
10036 : !#if IK3_ENABLED
10037 : ! module procedure setTauWTI_UXD_IK3
10038 : ! use pm_kind, only: TKC => IK3
10039 : !#include "pm_sampleCor@routines.inc.F90"
10040 : ! end procedure
10041 : !#endif
10042 : !
10043 : !#if IK2_ENABLED
10044 : ! module procedure setTauWTI_UXD_IK2
10045 : ! use pm_kind, only: TKC => IK2
10046 : !#include "pm_sampleCor@routines.inc.F90"
10047 : ! end procedure
10048 : !#endif
10049 : !
10050 : !#if IK1_ENABLED
10051 : ! module procedure setTauWTI_UXD_IK1
10052 : ! use pm_kind, only: TKC => IK1
10053 : !#include "pm_sampleCor@routines.inc.F90"
10054 : ! end procedure
10055 : !#endif
10056 : !
10057 : !#undef IK_ENABLED
10058 : !
10059 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10060 : !
10061 : !#define RK_ENABLED 1
10062 : !
10063 : !#if RK5_ENABLED
10064 : ! module procedure setTauWTI_UXD_RK5
10065 : ! use pm_kind, only: TKC => RK5
10066 : !#include "pm_sampleCor@routines.inc.F90"
10067 : ! end procedure
10068 : !#endif
10069 : !
10070 : !#if RK4_ENABLED
10071 : ! module procedure setTauWTI_UXD_RK4
10072 : ! use pm_kind, only: TKC => RK4
10073 : !#include "pm_sampleCor@routines.inc.F90"
10074 : ! end procedure
10075 : !#endif
10076 : !
10077 : !#if RK3_ENABLED
10078 : ! module procedure setTauWTI_UXD_RK3
10079 : ! use pm_kind, only: TKC => RK3
10080 : !#include "pm_sampleCor@routines.inc.F90"
10081 : ! end procedure
10082 : !#endif
10083 : !
10084 : !#if RK2_ENABLED
10085 : ! module procedure setTauWTI_UXD_RK2
10086 : ! use pm_kind, only: TKC => RK2
10087 : !#include "pm_sampleCor@routines.inc.F90"
10088 : ! end procedure
10089 : !#endif
10090 : !
10091 : !#if RK1_ENABLED
10092 : ! module procedure setTauWTI_UXD_RK1
10093 : ! use pm_kind, only: TKC => RK1
10094 : !#include "pm_sampleCor@routines.inc.F90"
10095 : ! end procedure
10096 : !#endif
10097 : !
10098 : !#undef RK_ENABLED
10099 : !
10100 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10101 : !
10102 : !#if !__GFORTRAN__
10103 : !#define PSSK_ENABLED 1
10104 : !
10105 : !#if SK5_ENABLED
10106 : ! module procedure setTauWTI_UXD_PSSK5
10107 : ! use pm_kind, only: TKC => SK5
10108 : !#include "pm_sampleCor@routines.inc.F90"
10109 : ! end procedure
10110 : !#endif
10111 : !
10112 : !#if SK4_ENABLED
10113 : ! module procedure setTauWTI_UXD_PSSK4
10114 : ! use pm_kind, only: TKC => SK4
10115 : !#include "pm_sampleCor@routines.inc.F90"
10116 : ! end procedure
10117 : !#endif
10118 : !
10119 : !#if SK3_ENABLED
10120 : ! module procedure setTauWTI_UXD_PSSK3
10121 : ! use pm_kind, only: TKC => SK3
10122 : !#include "pm_sampleCor@routines.inc.F90"
10123 : ! end procedure
10124 : !#endif
10125 : !
10126 : !#if SK2_ENABLED
10127 : ! module procedure setTauWTI_UXD_PSSK2
10128 : ! use pm_kind, only: TKC => SK2
10129 : !#include "pm_sampleCor@routines.inc.F90"
10130 : ! end procedure
10131 : !#endif
10132 : !
10133 : !#if SK1_ENABLED
10134 : ! module procedure setTauWTI_UXD_PSSK1
10135 : ! use pm_kind, only: TKC => SK1
10136 : !#include "pm_sampleCor@routines.inc.F90"
10137 : ! end procedure
10138 : !#endif
10139 : !
10140 : !#undef PSSK_ENABLED
10141 : !#endif
10142 : !
10143 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10144 : !
10145 : !#define BSSK_ENABLED 1
10146 : !
10147 : ! module procedure setTauWTI_UXD_BSSK
10148 : ! use pm_kind, only: TKC => SK
10149 : !#include "pm_sampleCor@routines.inc.F90"
10150 : ! end procedure
10151 : !
10152 : !#undef BSSK_ENABLED
10153 : !
10154 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10155 : !
10156 : !#undef WTI_ENABLED
10157 : !
10158 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10159 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10160 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10161 : !
10162 : !#define WTR_ENABLED 1
10163 : !
10164 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10165 : !
10166 : !#define SK_ENABLED 1
10167 : !
10168 : !#if SK5_ENABLED
10169 : ! module procedure setTauWTR_UXD_SK5
10170 : ! use pm_kind, only: TKC => SK5
10171 : !#include "pm_sampleCor@routines.inc.F90"
10172 : ! end procedure
10173 : !#endif
10174 : !
10175 : !#if SK4_ENABLED
10176 : ! module procedure setTauWTR_UXD_SK4
10177 : ! use pm_kind, only: TKC => SK4
10178 : !#include "pm_sampleCor@routines.inc.F90"
10179 : ! end procedure
10180 : !#endif
10181 : !
10182 : !#if SK3_ENABLED
10183 : ! module procedure setTauWTR_UXD_SK3
10184 : ! use pm_kind, only: TKC => SK3
10185 : !#include "pm_sampleCor@routines.inc.F90"
10186 : ! end procedure
10187 : !#endif
10188 : !
10189 : !#if SK2_ENABLED
10190 : ! module procedure setTauWTR_UXD_SK2
10191 : ! use pm_kind, only: TKC => SK2
10192 : !#include "pm_sampleCor@routines.inc.F90"
10193 : ! end procedure
10194 : !#endif
10195 : !
10196 : !#if SK1_ENABLED
10197 : ! module procedure setTauWTR_UXD_SK1
10198 : ! use pm_kind, only: TKC => SK1
10199 : !#include "pm_sampleCor@routines.inc.F90"
10200 : ! end procedure
10201 : !#endif
10202 : !
10203 : !#undef SK_ENABLED
10204 : !
10205 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10206 : !
10207 : !#define IK_ENABLED 1
10208 : !
10209 : !#if IK5_ENABLED
10210 : ! module procedure setTauWTR_UXD_IK5
10211 : ! use pm_kind, only: TKC => IK5
10212 : !#include "pm_sampleCor@routines.inc.F90"
10213 : ! end procedure
10214 : !#endif
10215 : !
10216 : !#if IK4_ENABLED
10217 : ! module procedure setTauWTR_UXD_IK4
10218 : ! use pm_kind, only: TKC => IK4
10219 : !#include "pm_sampleCor@routines.inc.F90"
10220 : ! end procedure
10221 : !#endif
10222 : !
10223 : !#if IK3_ENABLED
10224 : ! module procedure setTauWTR_UXD_IK3
10225 : ! use pm_kind, only: TKC => IK3
10226 : !#include "pm_sampleCor@routines.inc.F90"
10227 : ! end procedure
10228 : !#endif
10229 : !
10230 : !#if IK2_ENABLED
10231 : ! module procedure setTauWTR_UXD_IK2
10232 : ! use pm_kind, only: TKC => IK2
10233 : !#include "pm_sampleCor@routines.inc.F90"
10234 : ! end procedure
10235 : !#endif
10236 : !
10237 : !#if IK1_ENABLED
10238 : ! module procedure setTauWTR_UXD_IK1
10239 : ! use pm_kind, only: TKC => IK1
10240 : !#include "pm_sampleCor@routines.inc.F90"
10241 : ! end procedure
10242 : !#endif
10243 : !
10244 : !#undef IK_ENABLED
10245 : !
10246 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10247 : !
10248 : !#define RK_ENABLED 1
10249 : !
10250 : !#if RK5_ENABLED
10251 : ! module procedure setTauWTR_UXD_RK5
10252 : ! use pm_kind, only: TKC => RK5
10253 : !#include "pm_sampleCor@routines.inc.F90"
10254 : ! end procedure
10255 : !#endif
10256 : !
10257 : !#if RK4_ENABLED
10258 : ! module procedure setTauWTR_UXD_RK4
10259 : ! use pm_kind, only: TKC => RK4
10260 : !#include "pm_sampleCor@routines.inc.F90"
10261 : ! end procedure
10262 : !#endif
10263 : !
10264 : !#if RK3_ENABLED
10265 : ! module procedure setTauWTR_UXD_RK3
10266 : ! use pm_kind, only: TKC => RK3
10267 : !#include "pm_sampleCor@routines.inc.F90"
10268 : ! end procedure
10269 : !#endif
10270 : !
10271 : !#if RK2_ENABLED
10272 : ! module procedure setTauWTR_UXD_RK2
10273 : ! use pm_kind, only: TKC => RK2
10274 : !#include "pm_sampleCor@routines.inc.F90"
10275 : ! end procedure
10276 : !#endif
10277 : !
10278 : !#if RK1_ENABLED
10279 : ! module procedure setTauWTR_UXD_RK1
10280 : ! use pm_kind, only: TKC => RK1
10281 : !#include "pm_sampleCor@routines.inc.F90"
10282 : ! end procedure
10283 : !#endif
10284 : !
10285 : !#undef RK_ENABLED
10286 : !
10287 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10288 : !
10289 : !#if !__GFORTRAN__
10290 : !#define PSSK_ENABLED 1
10291 : !
10292 : !#if SK5_ENABLED
10293 : ! module procedure setTauWTR_UXD_PSSK5
10294 : ! use pm_kind, only: TKC => SK5
10295 : !#include "pm_sampleCor@routines.inc.F90"
10296 : ! end procedure
10297 : !#endif
10298 : !
10299 : !#if SK4_ENABLED
10300 : ! module procedure setTauWTR_UXD_PSSK4
10301 : ! use pm_kind, only: TKC => SK4
10302 : !#include "pm_sampleCor@routines.inc.F90"
10303 : ! end procedure
10304 : !#endif
10305 : !
10306 : !#if SK3_ENABLED
10307 : ! module procedure setTauWTR_UXD_PSSK3
10308 : ! use pm_kind, only: TKC => SK3
10309 : !#include "pm_sampleCor@routines.inc.F90"
10310 : ! end procedure
10311 : !#endif
10312 : !
10313 : !#if SK2_ENABLED
10314 : ! module procedure setTauWTR_UXD_PSSK2
10315 : ! use pm_kind, only: TKC => SK2
10316 : !#include "pm_sampleCor@routines.inc.F90"
10317 : ! end procedure
10318 : !#endif
10319 : !
10320 : !#if SK1_ENABLED
10321 : ! module procedure setTauWTR_UXD_PSSK1
10322 : ! use pm_kind, only: TKC => SK1
10323 : !#include "pm_sampleCor@routines.inc.F90"
10324 : ! end procedure
10325 : !#endif
10326 : !
10327 : !#undef PSSK_ENABLED
10328 : !#endif
10329 : !
10330 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10331 : !
10332 : !#define BSSK_ENABLED 1
10333 : !
10334 : ! module procedure setTauWTR_UXD_BSSK
10335 : ! use pm_kind, only: TKC => SK
10336 : !#include "pm_sampleCor@routines.inc.F90"
10337 : ! end procedure
10338 : !
10339 : !#undef BSSK_ENABLED
10340 : !
10341 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10342 : !
10343 : !#undef WTR_ENABLED
10344 : !
10345 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10346 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10347 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10348 : !
10349 : !#undef UXD_ENABLED
10350 : !
10351 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10352 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10353 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10354 : !
10355 : !#undef setTau_ENABLED
10356 : !
10357 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10358 : !
10359 : !#define setTau_ENABLED 1
10360 : !
10361 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10362 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10363 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10364 : !
10365 : !#define XLD_ENABLED 1
10366 : !
10367 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10368 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10369 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10370 : !
10371 : !#define WNO_ENABLED 1
10372 : !
10373 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10374 : !
10375 : !#define SK_ENABLED 1
10376 : !
10377 : !#if SK5_ENABLED
10378 : ! module procedure setTauWNO_XLD_SK5
10379 : ! use pm_kind, only: TKC => SK5
10380 : !#include "pm_sampleCor@routines.inc.F90"
10381 : ! end procedure
10382 : !#endif
10383 : !
10384 : !#if SK4_ENABLED
10385 : ! module procedure setTauWNO_XLD_SK4
10386 : ! use pm_kind, only: TKC => SK4
10387 : !#include "pm_sampleCor@routines.inc.F90"
10388 : ! end procedure
10389 : !#endif
10390 : !
10391 : !#if SK3_ENABLED
10392 : ! module procedure setTauWNO_XLD_SK3
10393 : ! use pm_kind, only: TKC => SK3
10394 : !#include "pm_sampleCor@routines.inc.F90"
10395 : ! end procedure
10396 : !#endif
10397 : !
10398 : !#if SK2_ENABLED
10399 : ! module procedure setTauWNO_XLD_SK2
10400 : ! use pm_kind, only: TKC => SK2
10401 : !#include "pm_sampleCor@routines.inc.F90"
10402 : ! end procedure
10403 : !#endif
10404 : !
10405 : !#if SK1_ENABLED
10406 : ! module procedure setTauWNO_XLD_SK1
10407 : ! use pm_kind, only: TKC => SK1
10408 : !#include "pm_sampleCor@routines.inc.F90"
10409 : ! end procedure
10410 : !#endif
10411 : !
10412 : !#undef SK_ENABLED
10413 : !
10414 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10415 : !
10416 : !#define IK_ENABLED 1
10417 : !
10418 : !#if IK5_ENABLED
10419 : ! module procedure setTauWNO_XLD_IK5
10420 : ! use pm_kind, only: TKC => IK5
10421 : !#include "pm_sampleCor@routines.inc.F90"
10422 : ! end procedure
10423 : !#endif
10424 : !
10425 : !#if IK4_ENABLED
10426 : ! module procedure setTauWNO_XLD_IK4
10427 : ! use pm_kind, only: TKC => IK4
10428 : !#include "pm_sampleCor@routines.inc.F90"
10429 : ! end procedure
10430 : !#endif
10431 : !
10432 : !#if IK3_ENABLED
10433 : ! module procedure setTauWNO_XLD_IK3
10434 : ! use pm_kind, only: TKC => IK3
10435 : !#include "pm_sampleCor@routines.inc.F90"
10436 : ! end procedure
10437 : !#endif
10438 : !
10439 : !#if IK2_ENABLED
10440 : ! module procedure setTauWNO_XLD_IK2
10441 : ! use pm_kind, only: TKC => IK2
10442 : !#include "pm_sampleCor@routines.inc.F90"
10443 : ! end procedure
10444 : !#endif
10445 : !
10446 : !#if IK1_ENABLED
10447 : ! module procedure setTauWNO_XLD_IK1
10448 : ! use pm_kind, only: TKC => IK1
10449 : !#include "pm_sampleCor@routines.inc.F90"
10450 : ! end procedure
10451 : !#endif
10452 : !
10453 : !#undef IK_ENABLED
10454 : !
10455 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10456 : !
10457 : !#define RK_ENABLED 1
10458 : !
10459 : !#if RK5_ENABLED
10460 : ! module procedure setTauWNO_XLD_RK5
10461 : ! use pm_kind, only: TKC => RK5
10462 : !#include "pm_sampleCor@routines.inc.F90"
10463 : ! end procedure
10464 : !#endif
10465 : !
10466 : !#if RK4_ENABLED
10467 : ! module procedure setTauWNO_XLD_RK4
10468 : ! use pm_kind, only: TKC => RK4
10469 : !#include "pm_sampleCor@routines.inc.F90"
10470 : ! end procedure
10471 : !#endif
10472 : !
10473 : !#if RK3_ENABLED
10474 : ! module procedure setTauWNO_XLD_RK3
10475 : ! use pm_kind, only: TKC => RK3
10476 : !#include "pm_sampleCor@routines.inc.F90"
10477 : ! end procedure
10478 : !#endif
10479 : !
10480 : !#if RK2_ENABLED
10481 : ! module procedure setTauWNO_XLD_RK2
10482 : ! use pm_kind, only: TKC => RK2
10483 : !#include "pm_sampleCor@routines.inc.F90"
10484 : ! end procedure
10485 : !#endif
10486 : !
10487 : !#if RK1_ENABLED
10488 : ! module procedure setTauWNO_XLD_RK1
10489 : ! use pm_kind, only: TKC => RK1
10490 : !#include "pm_sampleCor@routines.inc.F90"
10491 : ! end procedure
10492 : !#endif
10493 : !
10494 : !#undef RK_ENABLED
10495 : !
10496 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10497 : !
10498 : !#if !__GFORTRAN__
10499 : !#define PSSK_ENABLED 1
10500 : !
10501 : !#if SK5_ENABLED
10502 : ! module procedure setTauWNO_XLD_PSSK5
10503 : ! use pm_kind, only: TKC => SK5
10504 : !#include "pm_sampleCor@routines.inc.F90"
10505 : ! end procedure
10506 : !#endif
10507 : !
10508 : !#if SK4_ENABLED
10509 : ! module procedure setTauWNO_XLD_PSSK4
10510 : ! use pm_kind, only: TKC => SK4
10511 : !#include "pm_sampleCor@routines.inc.F90"
10512 : ! end procedure
10513 : !#endif
10514 : !
10515 : !#if SK3_ENABLED
10516 : ! module procedure setTauWNO_XLD_PSSK3
10517 : ! use pm_kind, only: TKC => SK3
10518 : !#include "pm_sampleCor@routines.inc.F90"
10519 : ! end procedure
10520 : !#endif
10521 : !
10522 : !#if SK2_ENABLED
10523 : ! module procedure setTauWNO_XLD_PSSK2
10524 : ! use pm_kind, only: TKC => SK2
10525 : !#include "pm_sampleCor@routines.inc.F90"
10526 : ! end procedure
10527 : !#endif
10528 : !
10529 : !#if SK1_ENABLED
10530 : ! module procedure setTauWNO_XLD_PSSK1
10531 : ! use pm_kind, only: TKC => SK1
10532 : !#include "pm_sampleCor@routines.inc.F90"
10533 : ! end procedure
10534 : !#endif
10535 : !
10536 : !#undef PSSK_ENABLED
10537 : !#endif
10538 : !
10539 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10540 : !
10541 : !#define BSSK_ENABLED 1
10542 : !
10543 : ! module procedure setTauWNO_XLD_BSSK
10544 : ! use pm_kind, only: TKC => SK
10545 : !#include "pm_sampleCor@routines.inc.F90"
10546 : ! end procedure
10547 : !
10548 : !#undef BSSK_ENABLED
10549 : !
10550 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10551 : !
10552 : !#undef WNO_ENABLED
10553 : !
10554 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10555 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10556 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10557 : !
10558 : !#define WTI_ENABLED 1
10559 : !
10560 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10561 : !
10562 : !#define SK_ENABLED 1
10563 : !
10564 : !#if SK5_ENABLED
10565 : ! module procedure setTauWTI_XLD_SK5
10566 : ! use pm_kind, only: TKC => SK5
10567 : !#include "pm_sampleCor@routines.inc.F90"
10568 : ! end procedure
10569 : !#endif
10570 : !
10571 : !#if SK4_ENABLED
10572 : ! module procedure setTauWTI_XLD_SK4
10573 : ! use pm_kind, only: TKC => SK4
10574 : !#include "pm_sampleCor@routines.inc.F90"
10575 : ! end procedure
10576 : !#endif
10577 : !
10578 : !#if SK3_ENABLED
10579 : ! module procedure setTauWTI_XLD_SK3
10580 : ! use pm_kind, only: TKC => SK3
10581 : !#include "pm_sampleCor@routines.inc.F90"
10582 : ! end procedure
10583 : !#endif
10584 : !
10585 : !#if SK2_ENABLED
10586 : ! module procedure setTauWTI_XLD_SK2
10587 : ! use pm_kind, only: TKC => SK2
10588 : !#include "pm_sampleCor@routines.inc.F90"
10589 : ! end procedure
10590 : !#endif
10591 : !
10592 : !#if SK1_ENABLED
10593 : ! module procedure setTauWTI_XLD_SK1
10594 : ! use pm_kind, only: TKC => SK1
10595 : !#include "pm_sampleCor@routines.inc.F90"
10596 : ! end procedure
10597 : !#endif
10598 : !
10599 : !#undef SK_ENABLED
10600 : !
10601 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10602 : !
10603 : !#define IK_ENABLED 1
10604 : !
10605 : !#if IK5_ENABLED
10606 : ! module procedure setTauWTI_XLD_IK5
10607 : ! use pm_kind, only: TKC => IK5
10608 : !#include "pm_sampleCor@routines.inc.F90"
10609 : ! end procedure
10610 : !#endif
10611 : !
10612 : !#if IK4_ENABLED
10613 : ! module procedure setTauWTI_XLD_IK4
10614 : ! use pm_kind, only: TKC => IK4
10615 : !#include "pm_sampleCor@routines.inc.F90"
10616 : ! end procedure
10617 : !#endif
10618 : !
10619 : !#if IK3_ENABLED
10620 : ! module procedure setTauWTI_XLD_IK3
10621 : ! use pm_kind, only: TKC => IK3
10622 : !#include "pm_sampleCor@routines.inc.F90"
10623 : ! end procedure
10624 : !#endif
10625 : !
10626 : !#if IK2_ENABLED
10627 : ! module procedure setTauWTI_XLD_IK2
10628 : ! use pm_kind, only: TKC => IK2
10629 : !#include "pm_sampleCor@routines.inc.F90"
10630 : ! end procedure
10631 : !#endif
10632 : !
10633 : !#if IK1_ENABLED
10634 : ! module procedure setTauWTI_XLD_IK1
10635 : ! use pm_kind, only: TKC => IK1
10636 : !#include "pm_sampleCor@routines.inc.F90"
10637 : ! end procedure
10638 : !#endif
10639 : !
10640 : !#undef IK_ENABLED
10641 : !
10642 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10643 : !
10644 : !#define RK_ENABLED 1
10645 : !
10646 : !#if RK5_ENABLED
10647 : ! module procedure setTauWTI_XLD_RK5
10648 : ! use pm_kind, only: TKC => RK5
10649 : !#include "pm_sampleCor@routines.inc.F90"
10650 : ! end procedure
10651 : !#endif
10652 : !
10653 : !#if RK4_ENABLED
10654 : ! module procedure setTauWTI_XLD_RK4
10655 : ! use pm_kind, only: TKC => RK4
10656 : !#include "pm_sampleCor@routines.inc.F90"
10657 : ! end procedure
10658 : !#endif
10659 : !
10660 : !#if RK3_ENABLED
10661 : ! module procedure setTauWTI_XLD_RK3
10662 : ! use pm_kind, only: TKC => RK3
10663 : !#include "pm_sampleCor@routines.inc.F90"
10664 : ! end procedure
10665 : !#endif
10666 : !
10667 : !#if RK2_ENABLED
10668 : ! module procedure setTauWTI_XLD_RK2
10669 : ! use pm_kind, only: TKC => RK2
10670 : !#include "pm_sampleCor@routines.inc.F90"
10671 : ! end procedure
10672 : !#endif
10673 : !
10674 : !#if RK1_ENABLED
10675 : ! module procedure setTauWTI_XLD_RK1
10676 : ! use pm_kind, only: TKC => RK1
10677 : !#include "pm_sampleCor@routines.inc.F90"
10678 : ! end procedure
10679 : !#endif
10680 : !
10681 : !#undef RK_ENABLED
10682 : !
10683 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10684 : !
10685 : !#if !__GFORTRAN__
10686 : !#define PSSK_ENABLED 1
10687 : !
10688 : !#if SK5_ENABLED
10689 : ! module procedure setTauWTI_XLD_PSSK5
10690 : ! use pm_kind, only: TKC => SK5
10691 : !#include "pm_sampleCor@routines.inc.F90"
10692 : ! end procedure
10693 : !#endif
10694 : !
10695 : !#if SK4_ENABLED
10696 : ! module procedure setTauWTI_XLD_PSSK4
10697 : ! use pm_kind, only: TKC => SK4
10698 : !#include "pm_sampleCor@routines.inc.F90"
10699 : ! end procedure
10700 : !#endif
10701 : !
10702 : !#if SK3_ENABLED
10703 : ! module procedure setTauWTI_XLD_PSSK3
10704 : ! use pm_kind, only: TKC => SK3
10705 : !#include "pm_sampleCor@routines.inc.F90"
10706 : ! end procedure
10707 : !#endif
10708 : !
10709 : !#if SK2_ENABLED
10710 : ! module procedure setTauWTI_XLD_PSSK2
10711 : ! use pm_kind, only: TKC => SK2
10712 : !#include "pm_sampleCor@routines.inc.F90"
10713 : ! end procedure
10714 : !#endif
10715 : !
10716 : !#if SK1_ENABLED
10717 : ! module procedure setTauWTI_XLD_PSSK1
10718 : ! use pm_kind, only: TKC => SK1
10719 : !#include "pm_sampleCor@routines.inc.F90"
10720 : ! end procedure
10721 : !#endif
10722 : !
10723 : !#undef PSSK_ENABLED
10724 : !#endif
10725 : !
10726 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10727 : !
10728 : !#define BSSK_ENABLED 1
10729 : !
10730 : ! module procedure setTauWTI_XLD_BSSK
10731 : ! use pm_kind, only: TKC => SK
10732 : !#include "pm_sampleCor@routines.inc.F90"
10733 : ! end procedure
10734 : !
10735 : !#undef BSSK_ENABLED
10736 : !
10737 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10738 : !
10739 : !#undef WTI_ENABLED
10740 : !
10741 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10742 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10743 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10744 : !
10745 : !#define WTR_ENABLED 1
10746 : !
10747 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10748 : !
10749 : !#define SK_ENABLED 1
10750 : !
10751 : !#if SK5_ENABLED
10752 : ! module procedure setTauWTR_XLD_SK5
10753 : ! use pm_kind, only: TKC => SK5
10754 : !#include "pm_sampleCor@routines.inc.F90"
10755 : ! end procedure
10756 : !#endif
10757 : !
10758 : !#if SK4_ENABLED
10759 : ! module procedure setTauWTR_XLD_SK4
10760 : ! use pm_kind, only: TKC => SK4
10761 : !#include "pm_sampleCor@routines.inc.F90"
10762 : ! end procedure
10763 : !#endif
10764 : !
10765 : !#if SK3_ENABLED
10766 : ! module procedure setTauWTR_XLD_SK3
10767 : ! use pm_kind, only: TKC => SK3
10768 : !#include "pm_sampleCor@routines.inc.F90"
10769 : ! end procedure
10770 : !#endif
10771 : !
10772 : !#if SK2_ENABLED
10773 : ! module procedure setTauWTR_XLD_SK2
10774 : ! use pm_kind, only: TKC => SK2
10775 : !#include "pm_sampleCor@routines.inc.F90"
10776 : ! end procedure
10777 : !#endif
10778 : !
10779 : !#if SK1_ENABLED
10780 : ! module procedure setTauWTR_XLD_SK1
10781 : ! use pm_kind, only: TKC => SK1
10782 : !#include "pm_sampleCor@routines.inc.F90"
10783 : ! end procedure
10784 : !#endif
10785 : !
10786 : !#undef SK_ENABLED
10787 : !
10788 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10789 : !
10790 : !#define IK_ENABLED 1
10791 : !
10792 : !#if IK5_ENABLED
10793 : ! module procedure setTauWTR_XLD_IK5
10794 : ! use pm_kind, only: TKC => IK5
10795 : !#include "pm_sampleCor@routines.inc.F90"
10796 : ! end procedure
10797 : !#endif
10798 : !
10799 : !#if IK4_ENABLED
10800 : ! module procedure setTauWTR_XLD_IK4
10801 : ! use pm_kind, only: TKC => IK4
10802 : !#include "pm_sampleCor@routines.inc.F90"
10803 : ! end procedure
10804 : !#endif
10805 : !
10806 : !#if IK3_ENABLED
10807 : ! module procedure setTauWTR_XLD_IK3
10808 : ! use pm_kind, only: TKC => IK3
10809 : !#include "pm_sampleCor@routines.inc.F90"
10810 : ! end procedure
10811 : !#endif
10812 : !
10813 : !#if IK2_ENABLED
10814 : ! module procedure setTauWTR_XLD_IK2
10815 : ! use pm_kind, only: TKC => IK2
10816 : !#include "pm_sampleCor@routines.inc.F90"
10817 : ! end procedure
10818 : !#endif
10819 : !
10820 : !#if IK1_ENABLED
10821 : ! module procedure setTauWTR_XLD_IK1
10822 : ! use pm_kind, only: TKC => IK1
10823 : !#include "pm_sampleCor@routines.inc.F90"
10824 : ! end procedure
10825 : !#endif
10826 : !
10827 : !#undef IK_ENABLED
10828 : !
10829 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10830 : !
10831 : !#define RK_ENABLED 1
10832 : !
10833 : !#if RK5_ENABLED
10834 : ! module procedure setTauWTR_XLD_RK5
10835 : ! use pm_kind, only: TKC => RK5
10836 : !#include "pm_sampleCor@routines.inc.F90"
10837 : ! end procedure
10838 : !#endif
10839 : !
10840 : !#if RK4_ENABLED
10841 : ! module procedure setTauWTR_XLD_RK4
10842 : ! use pm_kind, only: TKC => RK4
10843 : !#include "pm_sampleCor@routines.inc.F90"
10844 : ! end procedure
10845 : !#endif
10846 : !
10847 : !#if RK3_ENABLED
10848 : ! module procedure setTauWTR_XLD_RK3
10849 : ! use pm_kind, only: TKC => RK3
10850 : !#include "pm_sampleCor@routines.inc.F90"
10851 : ! end procedure
10852 : !#endif
10853 : !
10854 : !#if RK2_ENABLED
10855 : ! module procedure setTauWTR_XLD_RK2
10856 : ! use pm_kind, only: TKC => RK2
10857 : !#include "pm_sampleCor@routines.inc.F90"
10858 : ! end procedure
10859 : !#endif
10860 : !
10861 : !#if RK1_ENABLED
10862 : ! module procedure setTauWTR_XLD_RK1
10863 : ! use pm_kind, only: TKC => RK1
10864 : !#include "pm_sampleCor@routines.inc.F90"
10865 : ! end procedure
10866 : !#endif
10867 : !
10868 : !#undef RK_ENABLED
10869 : !
10870 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10871 : !
10872 : !#if !__GFORTRAN__
10873 : !#define PSSK_ENABLED 1
10874 : !
10875 : !#if SK5_ENABLED
10876 : ! module procedure setTauWTR_XLD_PSSK5
10877 : ! use pm_kind, only: TKC => SK5
10878 : !#include "pm_sampleCor@routines.inc.F90"
10879 : ! end procedure
10880 : !#endif
10881 : !
10882 : !#if SK4_ENABLED
10883 : ! module procedure setTauWTR_XLD_PSSK4
10884 : ! use pm_kind, only: TKC => SK4
10885 : !#include "pm_sampleCor@routines.inc.F90"
10886 : ! end procedure
10887 : !#endif
10888 : !
10889 : !#if SK3_ENABLED
10890 : ! module procedure setTauWTR_XLD_PSSK3
10891 : ! use pm_kind, only: TKC => SK3
10892 : !#include "pm_sampleCor@routines.inc.F90"
10893 : ! end procedure
10894 : !#endif
10895 : !
10896 : !#if SK2_ENABLED
10897 : ! module procedure setTauWTR_XLD_PSSK2
10898 : ! use pm_kind, only: TKC => SK2
10899 : !#include "pm_sampleCor@routines.inc.F90"
10900 : ! end procedure
10901 : !#endif
10902 : !
10903 : !#if SK1_ENABLED
10904 : ! module procedure setTauWTR_XLD_PSSK1
10905 : ! use pm_kind, only: TKC => SK1
10906 : !#include "pm_sampleCor@routines.inc.F90"
10907 : ! end procedure
10908 : !#endif
10909 : !
10910 : !#undef PSSK_ENABLED
10911 : !#endif
10912 : !
10913 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10914 : !
10915 : !#define BSSK_ENABLED 1
10916 : !
10917 : ! module procedure setTauWTR_XLD_BSSK
10918 : ! use pm_kind, only: TKC => SK
10919 : !#include "pm_sampleCor@routines.inc.F90"
10920 : ! end procedure
10921 : !
10922 : !#undef BSSK_ENABLED
10923 : !
10924 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10925 : !
10926 : !#undef WTR_ENABLED
10927 : !
10928 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10929 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10930 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10931 : !
10932 : !#undef XLD_ENABLED
10933 : !
10934 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10935 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10936 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10937 : !
10938 : !#undef setTau_ENABLED
10939 : !
10940 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10941 :
10942 : #define setCordance_ENABLED 1
10943 :
10944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10945 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10946 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10947 :
10948 : #define Sum_ENABLED 1
10949 :
10950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10952 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10953 :
10954 : #define D0_ENABLED 1
10955 :
10956 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10957 :
10958 : #define SK_ENABLED 1
10959 :
10960 : #if SK5_ENABLED
10961 : module procedure setCordanceSum_D0_SK5
10962 : use pm_kind, only: SKC => SK5
10963 : #include "pm_sampleCor@routines.inc.F90"
10964 : end procedure
10965 : #endif
10966 :
10967 : #if SK4_ENABLED
10968 : module procedure setCordanceSum_D0_SK4
10969 : use pm_kind, only: SKC => SK4
10970 : #include "pm_sampleCor@routines.inc.F90"
10971 : end procedure
10972 : #endif
10973 :
10974 : #if SK3_ENABLED
10975 : module procedure setCordanceSum_D0_SK3
10976 : use pm_kind, only: SKC => SK3
10977 : #include "pm_sampleCor@routines.inc.F90"
10978 : end procedure
10979 : #endif
10980 :
10981 : #if SK2_ENABLED
10982 : module procedure setCordanceSum_D0_SK2
10983 : use pm_kind, only: SKC => SK2
10984 : #include "pm_sampleCor@routines.inc.F90"
10985 : end procedure
10986 : #endif
10987 :
10988 : #if SK1_ENABLED
10989 15 : module procedure setCordanceSum_D0_SK1
10990 : use pm_kind, only: SKC => SK1
10991 : #include "pm_sampleCor@routines.inc.F90"
10992 15 : end procedure
10993 : #endif
10994 :
10995 : #undef SK_ENABLED
10996 :
10997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10998 :
10999 : #undef D0_ENABLED
11000 :
11001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11003 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11004 :
11005 : #define D1_ENABLED 1
11006 :
11007 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11008 :
11009 : #define SK_ENABLED 1
11010 :
11011 : #if SK5_ENABLED
11012 : module procedure setCordanceSum_D1_SK5
11013 : use pm_kind, only: SKC => SK5
11014 : #include "pm_sampleCor@routines.inc.F90"
11015 : end procedure
11016 : #endif
11017 :
11018 : #if SK4_ENABLED
11019 : module procedure setCordanceSum_D1_SK4
11020 : use pm_kind, only: SKC => SK4
11021 : #include "pm_sampleCor@routines.inc.F90"
11022 : end procedure
11023 : #endif
11024 :
11025 : #if SK3_ENABLED
11026 : module procedure setCordanceSum_D1_SK3
11027 : use pm_kind, only: SKC => SK3
11028 : #include "pm_sampleCor@routines.inc.F90"
11029 : end procedure
11030 : #endif
11031 :
11032 : #if SK2_ENABLED
11033 : module procedure setCordanceSum_D1_SK2
11034 : use pm_kind, only: SKC => SK2
11035 : #include "pm_sampleCor@routines.inc.F90"
11036 : end procedure
11037 : #endif
11038 :
11039 : #if SK1_ENABLED
11040 15 : module procedure setCordanceSum_D1_SK1
11041 : use pm_kind, only: SKC => SK1
11042 : #include "pm_sampleCor@routines.inc.F90"
11043 15 : end procedure
11044 : #endif
11045 :
11046 : #undef SK_ENABLED
11047 :
11048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11049 :
11050 : #define IK_ENABLED 1
11051 :
11052 : #if IK5_ENABLED
11053 0 : module procedure setCordanceSum_D1_IK5
11054 : use pm_kind, only: IKC => IK5
11055 : #include "pm_sampleCor@routines.inc.F90"
11056 0 : end procedure
11057 : #endif
11058 :
11059 : #if IK4_ENABLED
11060 0 : module procedure setCordanceSum_D1_IK4
11061 : use pm_kind, only: IKC => IK4
11062 : #include "pm_sampleCor@routines.inc.F90"
11063 0 : end procedure
11064 : #endif
11065 :
11066 : #if IK3_ENABLED
11067 15 : module procedure setCordanceSum_D1_IK3
11068 : use pm_kind, only: IKC => IK3
11069 : #include "pm_sampleCor@routines.inc.F90"
11070 15 : end procedure
11071 : #endif
11072 :
11073 : #if IK2_ENABLED
11074 0 : module procedure setCordanceSum_D1_IK2
11075 : use pm_kind, only: IKC => IK2
11076 : #include "pm_sampleCor@routines.inc.F90"
11077 0 : end procedure
11078 : #endif
11079 :
11080 : #if IK1_ENABLED
11081 0 : module procedure setCordanceSum_D1_IK1
11082 : use pm_kind, only: IKC => IK1
11083 : #include "pm_sampleCor@routines.inc.F90"
11084 0 : end procedure
11085 : #endif
11086 :
11087 : #undef IK_ENABLED
11088 :
11089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11090 :
11091 : #define RK_ENABLED 1
11092 :
11093 : #if RK5_ENABLED
11094 : module procedure setCordanceSum_D1_RK5
11095 : use pm_kind, only: TKC => RK5
11096 : #include "pm_sampleCor@routines.inc.F90"
11097 : end procedure
11098 : #endif
11099 :
11100 : #if RK4_ENABLED
11101 0 : module procedure setCordanceSum_D1_RK4
11102 : use pm_kind, only: TKC => RK4
11103 : #include "pm_sampleCor@routines.inc.F90"
11104 0 : end procedure
11105 : #endif
11106 :
11107 : #if RK3_ENABLED
11108 0 : module procedure setCordanceSum_D1_RK3
11109 : use pm_kind, only: TKC => RK3
11110 : #include "pm_sampleCor@routines.inc.F90"
11111 0 : end procedure
11112 : #endif
11113 :
11114 : #if RK2_ENABLED
11115 0 : module procedure setCordanceSum_D1_RK2
11116 : use pm_kind, only: TKC => RK2
11117 : #include "pm_sampleCor@routines.inc.F90"
11118 0 : end procedure
11119 : #endif
11120 :
11121 : #if RK1_ENABLED
11122 15 : module procedure setCordanceSum_D1_RK1
11123 : use pm_kind, only: TKC => RK1
11124 : #include "pm_sampleCor@routines.inc.F90"
11125 15 : end procedure
11126 : #endif
11127 :
11128 : #undef RK_ENABLED
11129 :
11130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11131 :
11132 : #if !__GFORTRAN__
11133 : #define PSSK_ENABLED 1
11134 :
11135 : #if SK5_ENABLED
11136 : module procedure setCordanceSum_D1_PSSK5
11137 : use pm_kind, only: TKC => SK5
11138 : #include "pm_sampleCor@routines.inc.F90"
11139 : end procedure
11140 : #endif
11141 :
11142 : #if SK4_ENABLED
11143 : module procedure setCordanceSum_D1_PSSK4
11144 : use pm_kind, only: TKC => SK4
11145 : #include "pm_sampleCor@routines.inc.F90"
11146 : end procedure
11147 : #endif
11148 :
11149 : #if SK3_ENABLED
11150 : module procedure setCordanceSum_D1_PSSK3
11151 : use pm_kind, only: TKC => SK3
11152 : #include "pm_sampleCor@routines.inc.F90"
11153 : end procedure
11154 : #endif
11155 :
11156 : #if SK2_ENABLED
11157 : module procedure setCordanceSum_D1_PSSK2
11158 : use pm_kind, only: TKC => SK2
11159 : #include "pm_sampleCor@routines.inc.F90"
11160 : end procedure
11161 : #endif
11162 :
11163 : #if SK1_ENABLED
11164 : module procedure setCordanceSum_D1_PSSK1
11165 : use pm_kind, only: TKC => SK1
11166 : #include "pm_sampleCor@routines.inc.F90"
11167 : end procedure
11168 : #endif
11169 :
11170 : #undef PSSK_ENABLED
11171 : #endif
11172 :
11173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11174 :
11175 : #define BSSK_ENABLED 1
11176 :
11177 2 : module procedure setCordanceSum_D1_BSSK
11178 : use pm_kind, only: TKC => SK
11179 : #include "pm_sampleCor@routines.inc.F90"
11180 2 : end procedure
11181 :
11182 : #undef BSSK_ENABLED
11183 :
11184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11185 :
11186 : #undef D1_ENABLED
11187 :
11188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11191 :
11192 : #undef Sum_ENABLED
11193 :
11194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11197 :
11198 : #define All_ENABLED 1
11199 :
11200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11203 :
11204 : #define D0_ENABLED 1
11205 :
11206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11207 :
11208 : #define SK_ENABLED 1
11209 :
11210 : #if SK5_ENABLED
11211 : module procedure setCordanceAll_D0_SK5
11212 : use pm_kind, only: SKC => SK5
11213 : #include "pm_sampleCor@routines.inc.F90"
11214 : end procedure
11215 : #endif
11216 :
11217 : #if SK4_ENABLED
11218 : module procedure setCordanceAll_D0_SK4
11219 : use pm_kind, only: SKC => SK4
11220 : #include "pm_sampleCor@routines.inc.F90"
11221 : end procedure
11222 : #endif
11223 :
11224 : #if SK3_ENABLED
11225 : module procedure setCordanceAll_D0_SK3
11226 : use pm_kind, only: SKC => SK3
11227 : #include "pm_sampleCor@routines.inc.F90"
11228 : end procedure
11229 : #endif
11230 :
11231 : #if SK2_ENABLED
11232 : module procedure setCordanceAll_D0_SK2
11233 : use pm_kind, only: SKC => SK2
11234 : #include "pm_sampleCor@routines.inc.F90"
11235 : end procedure
11236 : #endif
11237 :
11238 : #if SK1_ENABLED
11239 15 : module procedure setCordanceAll_D0_SK1
11240 : use pm_kind, only: SKC => SK1
11241 : #include "pm_sampleCor@routines.inc.F90"
11242 15 : end procedure
11243 : #endif
11244 :
11245 : #undef SK_ENABLED
11246 :
11247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11248 :
11249 : #undef D0_ENABLED
11250 :
11251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11254 :
11255 : #define D1_ENABLED 1
11256 :
11257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11258 :
11259 : #define SK_ENABLED 1
11260 :
11261 : #if SK5_ENABLED
11262 : module procedure setCordanceAll_D1_SK5
11263 : use pm_kind, only: SKC => SK5
11264 : #include "pm_sampleCor@routines.inc.F90"
11265 : end procedure
11266 : #endif
11267 :
11268 : #if SK4_ENABLED
11269 : module procedure setCordanceAll_D1_SK4
11270 : use pm_kind, only: SKC => SK4
11271 : #include "pm_sampleCor@routines.inc.F90"
11272 : end procedure
11273 : #endif
11274 :
11275 : #if SK3_ENABLED
11276 : module procedure setCordanceAll_D1_SK3
11277 : use pm_kind, only: SKC => SK3
11278 : #include "pm_sampleCor@routines.inc.F90"
11279 : end procedure
11280 : #endif
11281 :
11282 : #if SK2_ENABLED
11283 : module procedure setCordanceAll_D1_SK2
11284 : use pm_kind, only: SKC => SK2
11285 : #include "pm_sampleCor@routines.inc.F90"
11286 : end procedure
11287 : #endif
11288 :
11289 : #if SK1_ENABLED
11290 15 : module procedure setCordanceAll_D1_SK1
11291 : use pm_kind, only: SKC => SK1
11292 : #include "pm_sampleCor@routines.inc.F90"
11293 15 : end procedure
11294 : #endif
11295 :
11296 : #undef SK_ENABLED
11297 :
11298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11299 :
11300 : #define IK_ENABLED 1
11301 :
11302 : #if IK5_ENABLED
11303 0 : module procedure setCordanceAll_D1_IK5
11304 : use pm_kind, only: IKC => IK5
11305 : #include "pm_sampleCor@routines.inc.F90"
11306 0 : end procedure
11307 : #endif
11308 :
11309 : #if IK4_ENABLED
11310 0 : module procedure setCordanceAll_D1_IK4
11311 : use pm_kind, only: IKC => IK4
11312 : #include "pm_sampleCor@routines.inc.F90"
11313 0 : end procedure
11314 : #endif
11315 :
11316 : #if IK3_ENABLED
11317 15 : module procedure setCordanceAll_D1_IK3
11318 : use pm_kind, only: IKC => IK3
11319 : #include "pm_sampleCor@routines.inc.F90"
11320 15 : end procedure
11321 : #endif
11322 :
11323 : #if IK2_ENABLED
11324 0 : module procedure setCordanceAll_D1_IK2
11325 : use pm_kind, only: IKC => IK2
11326 : #include "pm_sampleCor@routines.inc.F90"
11327 0 : end procedure
11328 : #endif
11329 :
11330 : #if IK1_ENABLED
11331 0 : module procedure setCordanceAll_D1_IK1
11332 : use pm_kind, only: IKC => IK1
11333 : #include "pm_sampleCor@routines.inc.F90"
11334 0 : end procedure
11335 : #endif
11336 :
11337 : #undef IK_ENABLED
11338 :
11339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11340 :
11341 : #define RK_ENABLED 1
11342 :
11343 : #if RK5_ENABLED
11344 : module procedure setCordanceAll_D1_RK5
11345 : use pm_kind, only: TKC => RK5
11346 : #include "pm_sampleCor@routines.inc.F90"
11347 : end procedure
11348 : #endif
11349 :
11350 : #if RK4_ENABLED
11351 0 : module procedure setCordanceAll_D1_RK4
11352 : use pm_kind, only: TKC => RK4
11353 : #include "pm_sampleCor@routines.inc.F90"
11354 0 : end procedure
11355 : #endif
11356 :
11357 : #if RK3_ENABLED
11358 0 : module procedure setCordanceAll_D1_RK3
11359 : use pm_kind, only: TKC => RK3
11360 : #include "pm_sampleCor@routines.inc.F90"
11361 0 : end procedure
11362 : #endif
11363 :
11364 : #if RK2_ENABLED
11365 0 : module procedure setCordanceAll_D1_RK2
11366 : use pm_kind, only: TKC => RK2
11367 : #include "pm_sampleCor@routines.inc.F90"
11368 0 : end procedure
11369 : #endif
11370 :
11371 : #if RK1_ENABLED
11372 15 : module procedure setCordanceAll_D1_RK1
11373 : use pm_kind, only: TKC => RK1
11374 : #include "pm_sampleCor@routines.inc.F90"
11375 15 : end procedure
11376 : #endif
11377 :
11378 : #undef RK_ENABLED
11379 :
11380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11381 :
11382 : #if !__GFORTRAN__
11383 : #define PSSK_ENABLED 1
11384 :
11385 : #if SK5_ENABLED
11386 : module procedure setCordanceAll_D1_PSSK5
11387 : use pm_kind, only: TKC => SK5
11388 : #include "pm_sampleCor@routines.inc.F90"
11389 : end procedure
11390 : #endif
11391 :
11392 : #if SK4_ENABLED
11393 : module procedure setCordanceAll_D1_PSSK4
11394 : use pm_kind, only: TKC => SK4
11395 : #include "pm_sampleCor@routines.inc.F90"
11396 : end procedure
11397 : #endif
11398 :
11399 : #if SK3_ENABLED
11400 : module procedure setCordanceAll_D1_PSSK3
11401 : use pm_kind, only: TKC => SK3
11402 : #include "pm_sampleCor@routines.inc.F90"
11403 : end procedure
11404 : #endif
11405 :
11406 : #if SK2_ENABLED
11407 : module procedure setCordanceAll_D1_PSSK2
11408 : use pm_kind, only: TKC => SK2
11409 : #include "pm_sampleCor@routines.inc.F90"
11410 : end procedure
11411 : #endif
11412 :
11413 : #if SK1_ENABLED
11414 : module procedure setCordanceAll_D1_PSSK1
11415 : use pm_kind, only: TKC => SK1
11416 : #include "pm_sampleCor@routines.inc.F90"
11417 : end procedure
11418 : #endif
11419 :
11420 : #undef PSSK_ENABLED
11421 : #endif
11422 :
11423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11424 :
11425 : #define BSSK_ENABLED 1
11426 :
11427 2 : module procedure setCordanceAll_D1_BSSK
11428 : use pm_kind, only: TKC => SK
11429 : #include "pm_sampleCor@routines.inc.F90"
11430 2 : end procedure
11431 :
11432 : #undef BSSK_ENABLED
11433 :
11434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11435 :
11436 : #undef D1_ENABLED
11437 :
11438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11441 :
11442 : #undef All_ENABLED
11443 :
11444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11447 :
11448 : #undef setCordance_ENABLED
11449 :
11450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11451 :
11452 : #undef CHECK_ASSERTION
11453 :
11454 : end submodule routines
|
