!----- AGPL --------------------------------------------------------------------

!                                                                               

!  Copyright (C)  Stichting Deltares, 2015.                                     

!                                                                               

!  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 <http://www.gnu.org/licenses/>.             

!                                                                               

!  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 = "Uorb"

  case(3)

     var_name = "twav"

  case(4)

     var_name = "shx"

  case(5)

     var_name = "shy"

  case(6)

     var_name = "shi"

  case(7)

     var_name = "zsp"

  case(8)

     var_name = "shL"

  case(9)

     var_name = "shB"

  case(10)

     var_name = "shd"

  case(11)

     var_name = "stuw"

  case(12)

     var_name = "fstuw"

  case(13)

     var_name = "stuwmx"

  case(14)

     var_name = "roer"

  case(15)

     var_name = "froer"

  case(16)

     var_name = "roermx"

  case(17)

     var_name = "wx"

  case(18)

     var_name = "wy"

  case(19)

     var_name = "rain"

  case(20)

     var_name = "s0"

  case(21)

     var_name = "s1"

  case(22)

     var_name = "a0"

  case(23)

     var_name = "a1"

  case(24)

     var_name = "vol0"

  case(25)

     var_name = "vol1"

  case(26)

     var_name = "hs"

  case(27)

     var_name = "ucx"

  case(28)

     var_name = "ucy"

  case(29)

     var_name = "ucz"

  case(30)

     var_name = "sa0"

  case(31)

     var_name = "sa1"

  case(32)

     var_name = "satop"

  case(33)

     var_name = "tem0"

  case(34)

     var_name = "tem1"

  case(35)

     var_name = "u1"

  case(36)

     var_name = "frcu"

  case(37)

     var_name = "viusp"

  case(38)

     var_name = "diusp"

  case(39)

     var_name = "kfs"

  case(40)

     var_name = "kfst0"

  case(41)

     var_name = "ba"

  case(42)

     var_name = "bl"

  case(43)

     var_name = "ln"

  case(44)

     var_name = "lncn"

  case(45)

     var_name = "iadv"

  case(46)

     var_name = "bob"

  case(47)

     var_name = "vort"

  case(48)

     var_name = "xzw"

  case(49)

     var_name = "yzw"

  case(50)

     var_name = "xk"

  case(51)

     var_name = "yk"

  case(52)

     var_name = "zk"

  case(53)

     var_name = "kn"

  case(54)

     var_name = "zbnd1d2d1"

  case(55)

     var_name = "zbnd1d2d0"

  case(56)

     var_name = "zcrest1d2d"

  case(57)

     var_name = "edgenumbers1d2d"

  case(58)

     var_name = "kbnd1d2d"

  case(59)

     var_name = "width_1d"

  case(60)

     var_name = "qzeta_1d2d"

  case(61)

     var_name = "qlat_1d2d"

  case(62)

     var_name = "qtotal_1d2d"

  end select