V26 nhydro 17 MODULE_NHYDRO.f90 S582 0 07/31/2020 17:58:02 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 3 79 78 0 1 0 0 1 63 66 75 63 66 64 67 70 76 67 70 68 71 74 77 71 74 72 D 65 21 6 1 0 30 0 0 0 0 0 0 30 0 3 30 0 D 68 21 8 3 100 99 0 1 0 0 1 84 87 96 84 87 85 88 91 97 88 91 89 92 95 98 92 95 93 D 71 21 6 1 0 30 0 0 0 0 0 0 30 0 3 30 0 D 74 21 8 3 121 120 0 1 0 0 1 105 108 117 105 108 106 109 112 118 109 112 110 113 116 119 113 116 114 D 77 21 6 1 0 30 0 0 0 0 0 0 30 0 3 30 0 D 80 21 8 3 142 141 0 1 0 0 1 126 129 138 126 129 127 130 133 139 130 133 131 134 137 140 134 137 135 D 83 21 6 1 0 30 0 0 0 0 0 0 30 0 3 30 0 S 582 24 0 0 0 6 1 0 4658 5 0 A 0 0 0 0 0 0 0 0 0 0 0 0 46 0 0 0 0 0 0 0 0 17 0 0 0 0 0 0 nhydro 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 16 600 582 4710 4 0 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 hydro S 600 6 4 0 0 16 601 582 4716 4 0 A 0 0 0 0 0 4 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 spline S 601 6 4 0 0 6 602 582 4723 40800006 0 A 0 0 0 0 0 8 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_0 S 602 6 4 0 0 6 603 582 4729 40800006 0 A 0 0 0 0 0 12 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_1 S 603 6 4 0 0 6 621 582 4735 40800006 0 A 0 0 0 0 0 16 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_2 S 604 7 6 0 0 56 1 582 4741 10a00004 51 A 0 0 0 0 0 0 607 0 0 0 609 0 0 0 0 0 0 0 0 606 0 0 608 582 0 0 0 0 dwdt S 605 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 606 8 4 0 0 59 625 582 4746 40822004 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 dwdt$sd S 607 6 4 0 0 7 608 582 4754 40802001 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 dwdt$p S 608 6 4 0 0 7 606 582 4761 40802000 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 dwdt$o S 609 22 1 0 0 8 1 582 4768 40000000 1000 A 0 0 0 0 0 0 0 604 0 0 0 0 606 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 dwdt$arrdsc S 610 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 611 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 612 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 613 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 614 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 615 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 616 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 617 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 618 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 619 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 620 7 6 0 0 62 1 582 4780 10a00004 51 A 0 0 0 0 0 0 625 0 0 0 627 0 0 0 0 0 0 0 0 624 0 0 626 582 0 0 0 0 pint S 621 6 4 0 0 6 622 582 4785 40800006 0 A 0 0 0 0 0 20 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_3 S 622 6 4 0 0 6 623 582 4791 40800006 0 A 0 0 0 0 0 24 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_4 S 623 6 4 0 0 6 629 582 4797 40800006 0 A 0 0 0 0 0 28 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_5 S 624 8 4 0 0 65 633 582 4803 40822004 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pint$sd S 625 6 4 0 0 7 626 582 4811 40802001 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pint$p S 626 6 4 0 0 7 624 582 4818 40802000 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pint$o S 627 22 1 0 0 8 1 582 4825 40000000 1000 A 0 0 0 0 0 0 0 620 0 0 0 0 624 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pint$arrdsc S 628 7 6 0 0 68 1 582 4837 10a00004 51 A 0 0 0 0 0 0 633 0 0 0 635 0 0 0 0 0 0 0 0 632 0 0 634 582 0 0 0 0 w S 629 6 4 0 0 6 630 582 4839 40800006 0 A 0 0 0 0 0 32 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_6 S 630 6 4 0 0 6 631 582 4845 40800006 0 A 0 0 0 0 0 36 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_7 S 631 6 4 0 0 6 637 582 4851 40800006 0 A 0 0 0 0 0 40 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_8 S 632 8 4 0 0 71 641 582 4857 40822004 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 w$sd S 633 6 4 0 0 7 634 582 4862 40802001 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 w$p S 634 6 4 0 0 7 632 582 4866 40802000 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 w$o S 635 22 1 0 0 8 1 582 4870 40000000 1000 A 0 0 0 0 0 0 0 628 0 0 0 0 632 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 w$arrdsc S 636 7 6 0 0 74 1 582 4879 10a00004 51 A 0 0 0 0 0 0 641 0 0 0 643 0 0 0 0 0 0 0 0 640 0 0 642 582 0 0 0 0 z S 637 6 4 0 0 6 638 582 4881 40800006 0 A 0 0 0 0 0 44 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_9 S 638 6 4 0 0 6 639 582 4887 40800006 0 A 0 0 0 0 0 48 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_10 S 639 6 4 0 0 6 645 582 4894 40800006 0 A 0 0 0 0 0 52 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_11 S 640 8 4 0 0 77 649 582 4901 40822004 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z$sd S 641 6 4 0 0 7 642 582 4906 40802001 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z$p S 642 6 4 0 0 7 640 582 4910 40802000 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z$o S 643 22 1 0 0 8 1 582 4914 40000000 1000 A 0 0 0 0 0 0 0 636 0 0 0 0 640 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z$arrdsc S 644 7 6 0 0 80 1 582 4923 10a00004 51 A 0 0 0 0 0 0 649 0 0 0 651 0 0 0 0 0 0 0 0 648 0 0 650 582 0 0 0 0 pdwdt S 645 6 4 0 0 6 646 582 4929 40800006 0 A 0 0 0 0 0 56 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_12 S 646 6 4 0 0 6 647 582 4936 40800006 0 A 0 0 0 0 0 60 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_13 S 647 6 4 0 0 6 1 582 4943 40800006 0 A 0 0 0 0 0 64 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_14 S 648 8 4 0 0 83 599 582 4950 40822004 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pdwdt$sd S 649 6 4 0 0 7 650 582 4959 40802001 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pdwdt$p S 650 6 4 0 0 7 648 582 4967 40802000 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pdwdt$o S 651 22 1 0 0 8 1 582 4975 40000000 1000 A 0 0 0 0 0 0 0 644 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pdwdt$arrdsc S 652 11 0 0 0 8 1 582 4988 40800000 801000 A 0 0 0 0 0 748 0 0 607 647 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 _nhydro$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 605 0 0 0 30 0 0 0 0 0 0 0 0 0 A 31 2 0 0 0 6 610 0 0 0 31 0 0 0 0 0 0 0 0 0 A 32 1 0 1 0 59 606 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 611 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 612 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 613 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 614 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 615 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 616 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 617 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 618 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 619 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 62 1 0 1 0 65 624 0 0 0 0 0 0 0 0 0 0 0 0 0 A 63 10 0 0 0 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 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 44 A 72 10 0 0 71 6 62 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 46 A 73 4 0 0 0 6 72 0 3 0 0 0 0 2 0 0 0 0 0 0 A 74 4 0 0 0 6 71 0 73 0 0 0 0 1 0 0 0 0 0 0 A 75 10 0 0 72 6 62 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 76 10 0 0 75 6 62 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 77 10 0 0 76 6 62 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 54 A 78 10 0 0 77 6 62 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 79 10 0 0 78 6 62 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 83 1 0 1 0 71 632 0 0 0 0 0 0 0 0 0 0 0 0 0 A 84 10 0 0 12 6 83 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 85 10 0 0 84 6 83 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 86 4 0 0 0 6 85 0 3 0 0 0 0 2 0 0 0 0 0 0 A 87 4 0 0 0 6 84 0 86 0 0 0 0 1 0 0 0 0 0 0 A 88 10 0 0 85 6 83 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 89 10 0 0 88 6 83 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 90 4 0 0 0 6 89 0 3 0 0 0 0 2 0 0 0 0 0 0 A 91 4 0 0 0 6 88 0 90 0 0 0 0 1 0 0 0 0 0 0 A 92 10 0 0 89 6 83 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 44 A 93 10 0 0 92 6 83 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 46 A 94 4 0 0 0 6 93 0 3 0 0 0 0 2 0 0 0 0 0 0 A 95 4 0 0 0 6 92 0 94 0 0 0 0 1 0 0 0 0 0 0 A 96 10 0 0 93 6 83 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 97 10 0 0 96 6 83 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 98 10 0 0 97 6 83 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 54 A 99 10 0 0 98 6 83 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 100 10 0 0 99 6 83 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 104 1 0 1 0 77 640 0 0 0 0 0 0 0 0 0 0 0 0 0 A 105 10 0 0 0 6 104 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 106 10 0 0 105 6 104 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 107 4 0 0 0 6 106 0 3 0 0 0 0 2 0 0 0 0 0 0 A 108 4 0 0 0 6 105 0 107 0 0 0 0 1 0 0 0 0 0 0 A 109 10 0 0 106 6 104 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 110 10 0 0 109 6 104 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 111 4 0 0 0 6 110 0 3 0 0 0 0 2 0 0 0 0 0 0 A 112 4 0 0 0 6 109 0 111 0 0 0 0 1 0 0 0 0 0 0 A 113 10 0 0 110 6 104 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 44 A 114 10 0 0 113 6 104 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 46 A 115 4 0 0 0 6 114 0 3 0 0 0 0 2 0 0 0 0 0 0 A 116 4 0 0 115 6 113 0 115 0 0 0 0 1 0 0 0 0 0 0 A 117 10 0 0 114 6 104 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 118 10 0 0 117 6 104 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 119 10 0 0 118 6 104 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 54 A 120 10 0 0 119 6 104 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 121 10 0 0 120 6 104 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 125 1 0 1 0 83 648 0 0 0 0 0 0 0 0 0 0 0 0 0 A 126 10 0 0 81 6 125 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 127 10 0 0 126 6 125 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 128 4 0 0 50 6 127 0 3 0 0 0 0 2 0 0 0 0 0 0 A 129 4 0 0 0 6 126 0 128 0 0 0 0 1 0 0 0 0 0 0 A 130 10 0 0 127 6 125 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 131 10 0 0 130 6 125 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 132 4 0 0 0 6 131 0 3 0 0 0 0 2 0 0 0 0 0 0 A 133 4 0 0 0 6 130 0 132 0 0 0 0 1 0 0 0 0 0 0 A 134 10 0 0 131 6 125 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 44 A 135 10 0 0 134 6 125 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 46 A 136 4 0 0 0 6 135 0 3 0 0 0 0 2 0 0 0 0 0 0 A 137 4 0 0 0 6 134 0 136 0 0 0 0 1 0 0 0 0 0 0 A 138 10 0 0 135 6 125 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 139 10 0 0 138 6 125 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 140 10 0 0 139 6 125 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 54 A 141 10 0 0 140 6 125 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 142 10 0 0 141 6 125 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 Z Z