! Codes/HYCOM/hycom/ATLb2.00/src_2.0.01_22_one/
      real onemu, twomu
      data onemu/0.0098/
      data twomu/1./
      data threemu/0.e9/
      end