init_watuse_variables Subroutine

public subroutine init_watuse_variables()

Initialise module variables

Arguments

None

Contents

Source Code


Source Code

  subroutine init_watuse_variables
    !! Initialise module variables
    implicit none

    airtemp = 15.0D0
    watertemp = 5.0D0
    windspeed = 4.0D0
    waterdens = 998.02D0
    latentheat = 2257000.0D0
    volheat = 0.0D0
    evapratio = 0.0D0
    evapvol = 0.0D0
    energypervol = 0.0D0
    volperenergy = 0.0D0
    waterusetower = 0.0D0
    wateruserecirc = 0.0D0
    wateruseonethru = 0.0D0

  end subroutine init_watuse_variables