link_surface_swr_flux Subroutine

private subroutine link_surface_swr_flux()

Arguments

None

Calls

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

Called by

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

Source Code

      subroutine link_surface_swr_flux()

         integer rc
            ! status variable

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