link_wind Subroutine

private subroutine link_wind()

get wind speed FABM standard variable and if needed by FABM allocate memory

Arguments

None

Calls

proc~~link_wind~~CallsGraph proc~link_wind uvic_fabm::link_wind get_horizontal_variable_id get_horizontal_variable_id proc~link_wind->get_horizontal_variable_id link_horizontal_data link_horizontal_data proc~link_wind->link_horizontal_data variable_needs_values variable_needs_values proc~link_wind->variable_needs_values

Called by

proc~~link_wind~~CalledByGraph proc~link_wind uvic_fabm::link_wind proc~fabm_link_data uvic_fabm::fabm_link_data proc~fabm_link_data->proc~link_wind

Source Code

      subroutine link_wind()
         !! get wind speed FABM standard variable and if needed by FABM 
         !! allocate memory

         integer rc
            ! status variable

         id_windspeed = model%get_horizontal_variable_id(
     &                  standard_variables%wind_speed)
         if (model%variable_needs_values(id_windspeed)) then
            allocate(windspeed(imt,jmt),stat=rc)
            if (rc /= 0) stop 
     &              'link_wind(): Error allocating (windspeed)'
            windspeed = 0._rke
            call model%link_horizontal_data(id_windspeed,windspeed)
         end if
      end subroutine link_wind