make_msk Subroutine

private subroutine make_msk()

Note

Function that reads a digital surf file and turns it into a mask

Arguments

None

Called by

proc~~make_msk~~CalledByGraph proc~make_msk make_msk proc~read_job read_job proc~read_job->proc~make_msk proc~prg_surf prg_surf proc~prg_surf->proc~read_job program~main main program~main->proc~prg_surf

Source Code

   subroutine make_msk()
   !================================================================================================
   !<@note Function that reads a digital surf file and turns it into a mask
   !<
   !<@endnote
   !------------------------------------------------------------------------------------------------
   implicit none

      integer(kind=I4) :: w, h

      w = PARAM%width
      h = PARAM%height

      allocate(PARAM%surf_msk(1:w, 1:h))

      PARAM%surf_msk(1:w, 1:h) = nint( PARAM%surf(1:w, 1:h) )

   return
   endsubroutine make_msk