mkglacier

INTERFACE:

 subroutine mkglacier (fgla, ndiag, gla_o)

DESCRIPTION:

   make percent glacier

USES:

   use shr_kind_mod, only: r8 => shr_kind_r8
   use clm_varpar   !parameters
   use clm_varsur   !surface variables
   use clm_varctl   !run control variables
   use fileutils, only : getfil
   use areaMod      !area averaging routines
   use shr_sys_mod, only : shr_sys_flush
   use ncdio
   use abortutils, only : endrun

ARGUMENTS:

   implicit none
   character(len=*), intent(in) :: fgla              !input glacier dataset fi
   integer , intent(in) :: ndiag                     !unit number for diagnost
   real(r8), intent(out):: gla_o(lsmlon,lsmlat)      !percent glacier on outpu

CALLED FROM:

   subroutine mksrfdat in module mksrfdatMod

REVISION HISTORY:

   Author: Sam Levis