update_bottom_stress Subroutine

private subroutine update_bottom_stress(joff)

calculate the bottom stress in Pa

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: joff

offset row in global window

Calls

proc~~update_bottom_stress~~CallsGraph proc~update_bottom_stress uvic_fabm::update_bottom_stress bmf bmf proc~update_bottom_stress->bmf kmt kmt proc~update_bottom_stress->kmt variable_needs_values variable_needs_values proc~update_bottom_stress->variable_needs_values

Called by

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

Source Code

      subroutine update_bottom_stress(joff)
         !! calculate the bottom stress in Pa
      integer, intent(in) :: joff
         !! offset row in global window

         real(rke), parameter :: x=10._rke
            !! dynes/cm2 --> Pa
         integer i,j,jrow
            ! local loop counters

         if (model%variable_needs_values(id_bottom_stress)) then
            do j=2,jmt-1
               jrow = j+joff
               do i=2,imt-1
                  if (kmt(i,jrow) > 0) then 
                     bottom_stress(i,j) = x*sqrt(
     &                      bmf(i,jrow,1)**2 + bmf(i,jrow,2)**2)
                  end if
               end do
            end do
         end if
      end subroutine update_bottom_stress