link_bottom_stress Subroutine

private subroutine link_bottom_stress()

get bottom stress FABM standard variable and if needed by FABM allocate memory

Arguments

None

Calls

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

Called by

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

Source Code

      subroutine link_bottom_stress()
         !! get bottom stress FABM standard variable and if needed by 
         !! FABM allocate memory

         integer rc
            ! status variable

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