!----- AGPL -------------------------------------------------------------------- ! ! Copyright (C) Stichting Deltares, 2015-2020. ! ! This file is part of Delft3D (D-Flow Flexible Mesh component). ! ! Delft3D is free software: you can redistribute it and/or modify ! it under the terms of the GNU Affero General Public License as ! published by the Free Software Foundation version 3. ! ! Delft3D is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! GNU Affero General Public License for more details. ! ! You should have received a copy of the GNU Affero General Public License ! along with Delft3D. If not, see . ! ! contact: delft3d.support@deltares.nl ! Stichting Deltares ! P.O. Box 177 ! 2600 MH Delft, The Netherlands ! ! All indications and logos of, and references to, "Delft3D", ! "D-Flow Flexible Mesh" and "Deltares" are registered trademarks of Stichting ! Deltares, and remain the property of Stichting Deltares. All rights reserved. ! !------------------------------------------------------------------------------- select case(var_index) case(0) var_name = "DFM_COMM_DFMWORLD" case(1) var_name = "iglobal_s" case(2) var_name = "hwav" case(3) var_name = "twav" case(4) var_name = "Uorb" case(5) var_name = "bodsed" case(6) var_name = "dpsed" case(7) var_name = "msed" case(8) var_name = "thlyr" case(9) var_name = "rsedeq" case(10) var_name = "sbcx" case(11) var_name = "sbcy" case(12) var_name = "sbwx" case(13) var_name = "sbwy" case(14) var_name = "sscx" case(15) var_name = "sscy" case(16) var_name = "sswx" case(17) var_name = "sswy" case(18) var_name = "taucr" case(19) var_name = "tetacr" case(20) var_name = "infilt" case(21) var_name = "infiltcap" case(22) var_name = "shx" case(23) var_name = "shy" case(24) var_name = "shi" case(25) var_name = "zsp" case(26) var_name = "zsp0" case(27) var_name = "zspc" case(28) var_name = "zspc0" case(29) var_name = "v0ship" case(30) var_name = "v1ship" case(31) var_name = "qinship" case(32) var_name = "vicushp" case(33) var_name = "shL" case(34) var_name = "shB" case(35) var_name = "shd" case(36) var_name = "stuw" case(37) var_name = "fstuw" case(38) var_name = "stuwmx" case(39) var_name = "roer" case(40) var_name = "froer" case(41) var_name = "roermx" case(42) var_name = "wx" case(43) var_name = "wy" case(44) var_name = "rain" case(45) var_name = "evap" case(46) var_name = "numlatsg" case(47) var_name = "qplat" case(48) var_name = "qqlat" case(49) var_name = "balat" case(50) var_name = "n1latsg" case(51) var_name = "n2latsg" case(52) var_name = "nnlat" case(53) var_name = "kclat" case(54) var_name = "qext" case(55) var_name = "qextreal" case(56) var_name = "vextcum" case(57) var_name = "rainuni" case(58) var_name = "Qsunmap" case(59) var_name = "zbndz" case(60) var_name = "zbndu" case(61) var_name = "zbndq" case(62) var_name = "turkin1" case(63) var_name = "vicwws" case(64) var_name = "rnveg" case(65) var_name = "diaveg" case(66) var_name = "cfuveg" case(67) var_name = "alfaveg" case(68) var_name = "stemdens" case(69) var_name = "stemdiam" case(70) var_name = "stemheight" case(71) var_name = "Cdvegsp" case(72) var_name = "zws" case(73) var_name = "kbot" case(74) var_name = "ktop" case(75) var_name = "Lbot" case(76) var_name = "Ltop" case(77) var_name = "s0" case(78) var_name = "s1" case(79) var_name = "a0" case(80) var_name = "a1" case(81) var_name = "vol0" case(82) var_name = "vol1" case(83) var_name = "vol1_f" case(84) var_name = "hs" case(85) var_name = "ucx" case(86) var_name = "ucy" case(87) var_name = "ucz" case(88) var_name = "ucmag" case(89) var_name = "sa0" case(90) var_name = "sa1" case(91) var_name = "satop" case(92) var_name = "sabot" case(93) var_name = "tem0" case(94) var_name = "tem1" case(95) var_name = "u1" case(96) var_name = "u_to_umain" case(97) var_name = "q1" case(98) var_name = "q1_main" case(99) var_name = "au" case(100) var_name = "hu" case(101) var_name = "frcu" case(102) var_name = "viusp" case(103) var_name = "diusp" case(104) var_name = "taus" case(105) var_name = "ndxi" case(106) var_name = "ndx1db" case(107) var_name = "kfs" case(108) var_name = "bare" case(109) var_name = "ba_mor" case(110) var_name = "bl" case(111) var_name = "lnx1D" case(112) var_name = "lnxi" case(113) var_name = "lnx1Db" case(114) var_name = "lnx" case(115) var_name = "ln" case(116) var_name = "LLkkk" case(117) var_name = "lncn" case(118) var_name = "iadv" case(119) var_name = "dx" case(120) var_name = "wu" case(121) var_name = "wu_mor" case(122) var_name = "wu1D2D" case(123) var_name = "hh1D2D" case(124) var_name = "bob" case(125) var_name = "bob0" case(126) var_name = "xu" case(127) var_name = "yu" case(128) var_name = "vort" case(129) var_name = "xzw" case(130) var_name = "yzw" case(131) var_name = "xk" case(132) var_name = "yk" case(133) var_name = "zk" case(134) var_name = "kn" case(135) var_name = "numk" case(136) var_name = "zbnd1d2d1" case(137) var_name = "zbnd1d2d0" case(138) var_name = "zcrest1d2d" case(139) var_name = "edgenumbers1d2d" case(140) var_name = "kbnd1d2d" case(141) var_name = "width_1d" case(142) var_name = "qzeta_1d2d" case(143) var_name = "qlat_1d2d" case(144) var_name = "qtotal_1d2d" case(145) var_name = "is_sumvalsnd" case(146) var_name = "is_maxvalsnd" case(147) var_name = "is_dtint" case(148) var_name = "ndx2d" case(149) var_name = "ndx" case(150) var_name = "xz" case(151) var_name = "yz" case(152) var_name = "ba" end select