!----- AGPL -------------------------------------------------------------------- ! ! Copyright (C) Stichting Deltares, 2015-2023. ! ! 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 = "InterceptThickness" case(21) var_name = "InterceptHs" case(22) var_name = "PotEvap" case(23) var_name = "ActEvap" case(24) var_name = "infilt" case(25) var_name = "infiltcap0" case(26) var_name = "infiltcap" case(27) var_name = "HortonMinInfCap" case(28) var_name = "HortonMaxInfCap" case(29) var_name = "HortonDecreaseRate" case(30) var_name = "HortonRecoveryRate" case(31) var_name = "HortonState" case(32) var_name = "shx" case(33) var_name = "shy" case(34) var_name = "shi" case(35) var_name = "zsp" case(36) var_name = "zsp0" case(37) var_name = "zspc" case(38) var_name = "zspc0" case(39) var_name = "v0ship" case(40) var_name = "v1ship" case(41) var_name = "qinship" case(42) var_name = "vicushp" case(43) var_name = "shL" case(44) var_name = "shB" case(45) var_name = "shd" case(46) var_name = "stuw" case(47) var_name = "fstuw" case(48) var_name = "stuwmx" case(49) var_name = "roer" case(50) var_name = "froer" case(51) var_name = "roermx" case(52) var_name = "wx" case(53) var_name = "wy" case(54) var_name = "rain" case(55) var_name = "evap" case(56) var_name = "numlatsg" case(57) var_name = "qplat" case(58) var_name = "qqlat" case(59) var_name = "balat" case(60) var_name = "qplatCum" case(61) var_name = "qplatCumPre" case(62) var_name = "qplatAve" case(63) var_name = "qLatReal" case(64) var_name = "qLatRealCum" case(65) var_name = "qLatRealCumPre" case(66) var_name = "qLatRealAve" case(67) var_name = "n1latsg" case(68) var_name = "n2latsg" case(69) var_name = "nnlat" case(70) var_name = "kclat" case(71) var_name = "qext" case(72) var_name = "qextreal" case(73) var_name = "vextcum" case(74) var_name = "rainuni" case(75) var_name = "Qsunmap" case(76) var_name = "zbndz" case(77) var_name = "zbndu" case(78) var_name = "zbndq" case(79) var_name = "turkin1" case(80) var_name = "vicwws" case(81) var_name = "rnveg" case(82) var_name = "diaveg" case(83) var_name = "cfuveg" case(84) var_name = "alfaveg" case(85) var_name = "stemdens" case(86) var_name = "stemdiam" case(87) var_name = "stemheight" case(88) var_name = "Cdvegsp" case(89) var_name = "zws" case(90) var_name = "kbot" case(91) var_name = "ktop" case(92) var_name = "Lbot" case(93) var_name = "Ltop" case(94) var_name = "s0" case(95) var_name = "s1" case(96) var_name = "s1max" case(97) var_name = "a0" case(98) var_name = "a1" case(99) var_name = "vol1" case(100) var_name = "vol0" case(101) var_name = "vol1_f" case(102) var_name = "hs" case(103) var_name = "ucx" case(104) var_name = "ucy" case(105) var_name = "ucz" case(106) var_name = "ucmag" case(107) var_name = "ucx_mor" case(108) var_name = "ucy_mor" case(109) var_name = "sa0" case(110) var_name = "sa1" case(111) var_name = "satop" case(112) var_name = "sabot" case(113) var_name = "tem0" case(114) var_name = "tem1" case(115) var_name = "u1" case(116) var_name = "u_to_umain" case(117) var_name = "q1" case(118) var_name = "q1_main" case(119) var_name = "au" case(120) var_name = "au_nostrucs" case(121) var_name = "hu" case(122) var_name = "frcu" case(123) var_name = "viusp" case(124) var_name = "diusp" case(125) var_name = "taus" case(126) var_name = "ndxi" case(127) var_name = "ndx1db" case(128) var_name = "kfs" case(129) var_name = "bare" case(130) var_name = "ba_mor" case(131) var_name = "bl" case(132) var_name = "bl_min" case(133) var_name = "lnx1D" case(134) var_name = "lnxi" case(135) var_name = "lnx1Db" case(136) var_name = "lnx" case(137) var_name = "ln" case(138) var_name = "LLkkk" case(139) var_name = "lncn" case(140) var_name = "kcu" case(141) var_name = "iadv" case(142) var_name = "dx" case(143) var_name = "wu" case(144) var_name = "wu_mor" case(145) var_name = "wu1D2D" case(146) var_name = "hh1D2D" case(147) var_name = "bob" case(148) var_name = "bob0" case(149) var_name = "blup" case(150) var_name = "xu" case(151) var_name = "yu" case(152) var_name = "vort" case(153) var_name = "xzw" case(154) var_name = "yzw" case(155) var_name = "xk" case(156) var_name = "yk" case(157) var_name = "zk" case(158) var_name = "kn" case(159) var_name = "numk" case(160) var_name = "zbnd1d2d1" case(161) var_name = "zbnd1d2d0" case(162) var_name = "zcrest1d2d" case(163) var_name = "edgenumbers1d2d" case(164) var_name = "kbnd1d2d" case(165) var_name = "width_1d" case(166) var_name = "qzeta_1d2d" case(167) var_name = "qlat_1d2d" case(168) var_name = "qtotal_1d2d" case(169) var_name = "is_sumvalsnd" case(170) var_name = "is_maxvalsnd" case(171) var_name = "is_dtint" case(172) var_name = "ndx2d" case(173) var_name = "ndx" case(174) var_name = "xz" case(175) var_name = "yz" case(176) var_name = "ba" case(177) var_name = "ndx1d" end select