update_wind Subroutine

private subroutine update_wind()

calculate wind speed in m/s according to

Arguments

None

Calls

proc~~update_wind~~CallsGraph proc~update_wind uvic_fabm::update_wind kmt kmt proc~update_wind->kmt sbc sbc proc~update_wind->sbc variable_needs_values variable_needs_values proc~update_wind->variable_needs_values

Called by

proc~~update_wind~~CalledByGraph proc~update_wind uvic_fabm::update_wind proc~update_data uvic_fabm::update_data proc~update_data->proc~update_wind proc~fabm_update uvic_fabm::fabm_update proc~fabm_update->proc~update_data

Source Code

      subroutine update_wind()
         !! calculate wind speed in m/s according to 
         !! $$w = w_{UVic}/100$$
         ! the wind speed in m/s - iws, iaws

         integer i,j
            ! local loop counters

         if (model%variable_needs_values(id_windspeed)) then
            do j=2,jmt-1
               do i=2,imt-1
                  if (kmt(i,j) > 0) windspeed(i,j) = 
     &                  sbc(i,j,iws)/100._rke
               end do
            end do
         end if
      end subroutine update_wind