V26 cldwtr 17 MODULE_CLDWTR.f90 S582 0 07/31/2020 17:57:52 use f77kinds public 0 direct enduse D 56 21 8 3 58 57 0 1 0 0 1 33 37 51 33 37 35 39 43 53 39 43 41 45 49 55 45 49 47 D 59 21 6 1 0 30 0 0 0 0 0 0 30 0 3 30 0 D 62 21 8 2 74 73 0 1 0 0 1 63 66 71 63 66 64 67 70 72 67 70 68 D 65 21 6 1 0 61 0 0 0 0 0 0 61 0 3 61 0 D 68 21 8 2 89 88 0 1 0 0 1 78 81 86 78 81 79 82 85 87 82 85 83 D 71 21 6 1 0 61 0 0 0 0 0 0 61 0 3 61 0 D 74 21 8 2 104 103 0 1 0 0 1 93 96 101 93 96 94 97 100 102 97 100 98 D 77 21 6 1 0 61 0 0 0 0 0 0 61 0 3 61 0 D 80 21 8 1 114 113 0 1 0 0 1 108 111 112 108 111 109 D 83 21 6 1 0 106 0 0 0 0 0 0 106 0 3 106 0 S 582 24 0 0 0 8 1 0 4658 5 0 A 0 0 0 0 0 0 0 0 0 0 0 0 59 0 0 0 0 0 0 0 0 25 0 0 0 0 0 0 cldwtr S 586 3 0 0 0 6 1 1 0 0 0 A 0 0 0 0 0 0 0 0 0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 599 6 4 0 0 6 600 582 4710 40800006 0 A 0 0 0 0 0 0 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_0 S 600 6 4 0 0 6 601 582 4716 40800006 0 A 0 0 0 0 0 4 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_1 S 601 6 4 0 0 6 618 582 4722 40800006 0 A 0 0 0 0 0 8 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_2 S 602 7 6 0 0 56 1 582 4728 10a00024 51 A 0 0 0 0 0 0 605 0 0 0 607 0 0 0 0 0 0 0 0 604 0 0 606 582 0 0 0 0 cwm S 603 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 30 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 604 8 4 0 0 59 623 582 4732 40822064 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 cwm$sd S 605 6 4 0 0 7 606 582 4739 40802061 1020 A 0 0 0 0 0 120 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 cwm$p S 606 6 4 0 0 7 604 582 4745 40802060 1020 A 0 0 0 0 0 128 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 cwm$o S 607 22 1 0 0 8 1 582 4751 40000000 1000 A 0 0 0 0 0 0 0 602 0 0 0 0 604 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 cwm$arrdsc S 608 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 609 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 610 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 611 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 612 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 25 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 613 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 26 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 614 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 615 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 616 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 29 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 617 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 618 6 4 0 0 6 619 582 4762 40800006 0 A 0 0 0 0 0 12 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_3 S 619 6 4 0 0 6 627 582 4768 40800006 0 A 0 0 0 0 0 16 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_4 S 620 7 6 0 0 62 1 582 4774 10a00024 51 A 0 0 0 0 0 0 623 0 0 0 625 0 0 0 0 0 0 0 0 622 0 0 624 582 0 0 0 0 u00 S 621 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 622 8 4 0 0 65 630 582 4778 40822064 1020 A 0 0 0 0 0 136 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 u00$sd S 623 6 4 0 0 7 624 582 4785 40802061 1020 A 0 0 0 0 0 232 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 u00$p S 624 6 4 0 0 7 622 582 4791 40802060 1020 A 0 0 0 0 0 240 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 u00$o S 625 22 1 0 0 8 1 582 4797 40000000 1000 A 0 0 0 0 0 0 0 620 0 0 0 0 622 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 u00$arrdsc S 626 7 6 0 0 68 1 582 4808 10a00024 51 A 0 0 0 0 0 0 630 0 0 0 632 0 0 0 0 0 0 0 0 629 0 0 631 582 0 0 0 0 lc S 627 6 4 0 0 6 628 582 4811 40800006 0 A 0 0 0 0 0 20 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_5 S 628 6 4 0 0 6 634 582 4817 40800006 0 A 0 0 0 0 0 24 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_6 S 629 8 4 0 0 71 637 582 4823 40822064 1020 A 0 0 0 0 0 248 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 lc$sd S 630 6 4 0 0 7 631 582 4829 40802061 1020 A 0 0 0 0 0 344 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 lc$p S 631 6 4 0 0 7 629 582 4834 40802060 1020 A 0 0 0 0 0 352 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 lc$o S 632 22 1 0 0 6 1 582 4839 40000000 1000 A 0 0 0 0 0 0 0 626 0 0 0 0 629 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 lc$arrdsc S 633 7 6 0 0 74 1 582 4849 10a00024 51 A 0 0 0 0 0 0 637 0 0 0 639 0 0 0 0 0 0 0 0 636 0 0 638 582 0 0 0 0 sr S 634 6 4 0 0 6 635 582 4852 40800006 0 A 0 0 0 0 0 28 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_7 S 635 6 4 0 0 6 640 582 4858 40800006 0 A 0 0 0 0 0 32 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_8 S 636 8 4 0 0 77 644 582 4864 40822064 1020 A 0 0 0 0 0 360 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 sr$sd S 637 6 4 0 0 7 638 582 4870 40802061 1020 A 0 0 0 0 0 456 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 sr$p S 638 6 4 0 0 7 636 582 4875 40802060 1020 A 0 0 0 0 0 464 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 sr$o S 639 22 1 0 0 8 1 582 4880 40000000 1000 A 0 0 0 0 0 0 0 633 0 0 0 0 636 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 sr$arrdsc S 640 6 4 0 0 6 1 582 4890 40800006 0 A 0 0 0 0 0 36 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_9 S 641 7 6 0 0 80 1 582 4896 10a00024 51 A 0 0 0 0 0 0 644 0 0 0 646 0 0 0 0 0 0 0 0 643 0 0 645 582 0 0 0 0 ul S 642 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 643 8 4 0 0 83 599 582 4899 40822064 1020 A 0 0 0 0 0 472 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ul$sd S 644 6 4 0 0 7 645 582 4905 40802061 1020 A 0 0 0 0 0 544 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ul$p S 645 6 4 0 0 7 643 582 4910 40802060 1020 A 0 0 0 0 0 552 0 0 0 0 0 0 647 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ul$o S 646 22 1 0 0 8 1 582 4915 40000000 1000 A 0 0 0 0 0 0 0 641 0 0 0 0 643 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ul$arrdsc S 647 11 0 0 0 8 1 582 4925 40800000 801000 A 0 0 0 0 0 600 0 0 605 640 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 _cldwtr$0 A 18 2 0 0 0 6 586 0 0 0 18 0 0 0 0 0 0 0 0 0 A 30 2 0 0 0 6 603 0 0 0 30 0 0 0 0 0 0 0 0 0 A 31 2 0 0 0 6 608 0 0 0 31 0 0 0 0 0 0 0 0 0 A 32 1 0 1 0 59 604 0 0 0 0 0 0 0 0 0 0 0 0 0 A 33 10 0 0 0 6 32 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 34 2 0 0 0 6 609 0 0 0 34 0 0 0 0 0 0 0 0 0 A 35 10 0 0 33 6 32 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 36 4 0 0 0 6 35 0 3 0 0 0 0 2 0 0 0 0 0 0 A 37 4 0 0 0 6 33 0 36 0 0 0 0 1 0 0 0 0 0 0 A 38 2 0 0 0 6 610 0 0 0 38 0 0 0 0 0 0 0 0 0 A 39 10 0 0 35 6 32 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 40 2 0 0 0 6 611 0 0 0 40 0 0 0 0 0 0 0 0 0 A 41 10 0 0 39 6 32 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 42 4 0 0 0 6 41 0 3 0 0 0 0 2 0 0 0 0 0 0 A 43 4 0 0 0 6 39 0 42 0 0 0 0 1 0 0 0 0 0 0 A 44 2 0 0 0 6 612 0 0 0 44 0 0 0 0 0 0 0 0 0 A 45 10 0 0 41 6 32 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 44 A 46 2 0 0 0 6 613 0 0 0 46 0 0 0 0 0 0 0 0 0 A 47 10 0 0 45 6 32 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 46 A 48 4 0 0 0 6 47 0 3 0 0 0 0 2 0 0 0 0 0 0 A 49 4 0 0 24 6 45 0 48 0 0 0 0 1 0 0 0 0 0 0 A 50 2 0 0 0 6 614 0 0 0 50 0 0 0 0 0 0 0 0 0 A 51 10 0 0 47 6 32 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 52 2 0 0 0 6 615 0 0 0 52 0 0 0 0 0 0 0 0 0 A 53 10 0 0 51 6 32 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 54 2 0 0 0 6 616 0 0 0 54 0 0 0 0 0 0 0 0 0 A 55 10 0 0 53 6 32 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 54 A 56 2 0 0 0 6 617 0 0 0 56 0 0 0 0 0 0 0 0 0 A 57 10 0 0 55 6 32 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 58 10 0 0 57 6 32 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 61 2 0 0 0 6 621 0 0 0 61 0 0 0 0 0 0 0 0 0 A 62 1 0 3 0 65 622 0 0 0 0 0 0 0 0 0 0 0 0 0 A 63 10 0 0 62 6 62 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 64 10 0 0 63 6 62 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 65 4 0 0 0 6 64 0 3 0 0 0 0 2 0 0 0 0 0 0 A 66 4 0 0 0 6 63 0 65 0 0 0 0 1 0 0 0 0 0 0 A 67 10 0 0 64 6 62 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 68 10 0 0 67 6 62 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 69 4 0 0 0 6 68 0 3 0 0 0 0 2 0 0 0 0 0 0 A 70 4 0 0 0 6 67 0 69 0 0 0 0 1 0 0 0 0 0 0 A 71 10 0 0 68 6 62 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 72 10 0 0 71 6 62 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 73 10 0 0 72 6 62 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 74 10 0 0 73 6 62 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 77 1 0 3 0 71 629 0 0 0 0 0 0 0 0 0 0 0 0 0 A 78 10 0 0 0 6 77 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 79 10 0 0 78 6 77 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 80 4 0 0 0 6 79 0 3 0 0 0 0 2 0 0 0 0 0 0 A 81 4 0 0 0 6 78 0 80 0 0 0 0 1 0 0 0 0 0 0 A 82 10 0 0 79 6 77 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 83 10 0 0 82 6 77 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 84 4 0 0 11 6 83 0 3 0 0 0 0 2 0 0 0 0 0 0 A 85 4 0 0 0 6 82 0 84 0 0 0 0 1 0 0 0 0 0 0 A 86 10 0 0 83 6 77 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 87 10 0 0 86 6 77 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 88 10 0 0 87 6 77 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 89 10 0 0 88 6 77 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 92 1 0 3 0 77 636 0 0 0 0 0 0 0 0 0 0 0 0 0 A 93 10 0 0 49 6 92 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 94 10 0 0 93 6 92 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 95 4 0 0 0 6 94 0 3 0 0 0 0 2 0 0 0 0 0 0 A 96 4 0 0 0 6 93 0 95 0 0 0 0 1 0 0 0 0 0 0 A 97 10 0 0 94 6 92 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 98 10 0 0 97 6 92 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 99 4 0 0 26 6 98 0 3 0 0 0 0 2 0 0 0 0 0 0 A 100 4 0 0 75 6 97 0 99 0 0 0 0 1 0 0 0 0 0 0 A 101 10 0 0 98 6 92 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 102 10 0 0 101 6 92 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 103 10 0 0 102 6 92 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 104 10 0 0 103 6 92 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 106 2 0 0 0 6 642 0 0 0 106 0 0 0 0 0 0 0 0 0 A 107 1 0 5 0 83 643 0 0 0 0 0 0 0 0 0 0 0 0 0 A 108 10 0 0 0 6 107 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 109 10 0 0 108 6 107 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 110 4 0 0 0 6 109 0 3 0 0 0 0 2 0 0 0 0 0 0 A 111 4 0 0 0 6 108 0 110 0 0 0 0 1 0 0 0 0 0 0 A 112 10 0 0 109 6 107 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 113 10 0 0 112 6 107 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 114 10 0 0 113 6 107 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 Z Z