!----- 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_name)

  case("DFM_COMM_DFMWORLD")

     rank = 0

  case("iglobal_s")

     rank = 1

  case("Uorb")

     rank = 1

  case("twav")

     rank = 1

  case("shx")

     rank = 1

  case("shy")

     rank = 1

  case("shi")

     rank = 1

  case("zsp")

     rank = 1

  case("shL")

     rank = 1

  case("shB")

     rank = 1

  case("shd")

     rank = 1

  case("stuw")

     rank = 1

  case("fstuw")

     rank = 1

  case("stuwmx")

     rank = 1

  case("roer")

     rank = 1

  case("froer")

     rank = 1

  case("roermx")

     rank = 1

  case("wx")

     rank = 1

  case("wy")

     rank = 1

  case("rain")

     rank = 1

  case("s0")

     rank = 1

  case("s1")

     rank = 1

  case("a0")

     rank = 1

  case("a1")

     rank = 1

  case("vol0")

     rank = 1

  case("vol1")

     rank = 1

  case("hs")

     rank = 1

  case("ucx")

     rank = 1

  case("ucy")

     rank = 1

  case("ucz")

     rank = 1

  case("sa0")

     rank = 1

  case("sa1")

     rank = 1

  case("satop")

     rank = 1

  case("tem0")

     rank = 1

  case("tem1")

     rank = 1

  case("u1")

     rank = 1

  case("frcu")

     rank = 1

  case("viusp")

     rank = 1

  case("diusp")

     rank = 1

  case("kfs")

     rank = 1

  case("kfst0")

     rank = 1

  case("ba")

     rank = 1

  case("bl")

     rank = 1

  case("ln")

     rank = 2

  case("lncn")

     rank = 2

  case("iadv")

     rank = 1

  case("bob")

     rank = 2

  case("vort")

     rank = 1

  case("xzw")

     rank = 1

  case("yzw")

     rank = 1

  case("xk")

     rank = 1

  case("yk")

     rank = 1

  case("zk")

     rank = 1

  case("kn")

     rank = 2

  case("zbnd1d2d1")

     rank = 1

  case("zbnd1d2d0")

     rank = 1

  case("zcrest1d2d")

     rank = 1

  case("edgenumbers1d2d")

     rank = 1

  case("kbnd1d2d")

     rank = 2

  case("width_1d")

     rank = 1

  case("qzeta_1d2d")

     rank = 1

  case("qlat_1d2d")

     rank = 1

  case("qtotal_1d2d")

     rank = 1

  case default

     rank = 0

  end select