snow_allocate Subroutine

  1. snow.f95
  2. snow
  3. snow_allocate

public subroutine snow_allocate(mb, meap)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: mb
integer, intent(in) :: meap

Called by

proc~~snow_allocate~~CalledByGraph proc~snow_allocate snow_allocate proc~snow_initialise snow_initialise proc~snow_initialise->proc~snow_allocate proc~initialise initialise proc~initialise->proc~snow_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

snow_allocate

Source Code

  subroutine snow_allocate(mb, meap)
    integer, intent(in) :: mb, meap
    allocate(elev0(mb))
    allocate(gmrate(mb))
    allocate(smrate(mb))
    allocate(sno(mb))
    allocate(snoa(mb, meap))
    allocate(tmelt(mb))
    allocate(tmx(mb))
    allocate(tsnfall(mb))
    elev0 = 0.
    gmrate = gmrate0
    smrate = smrate0
    sno = 0.
    snoa = 0.
    tmelt = tmelt0
    tmx = 0.
    tsnfall = tsnfall0
  end subroutine snow_allocate