link_downwelling_photosynthetic_radiative_flux Subroutine

private subroutine link_downwelling_photosynthetic_radiative_flux()

get salinity FABM standard variable and if needed by FABM allocate memory

Arguments

None

Calls

proc~~link_downwelling_photosynthetic_radiative_flux~~CallsGraph proc~link_downwelling_photosynthetic_radiative_flux uvic_fabm::link_downwelling_photosynthetic_radiative_flux get_interior_variable_id get_interior_variable_id proc~link_downwelling_photosynthetic_radiative_flux->get_interior_variable_id link_interior_data link_interior_data proc~link_downwelling_photosynthetic_radiative_flux->link_interior_data variable_needs_values variable_needs_values proc~link_downwelling_photosynthetic_radiative_flux->variable_needs_values

Source Code

      subroutine link_downwelling_photosynthetic_radiative_flux()
         !! get salinity FABM standard variable and if needed by FABM
         !! allocate memory

         integer rc
            ! status variable

         id_downwelling_photosynthetic_radiative_flux =
     &   model%get_interior_variable_id(
     &   fabm_standard_variables%
     &   downwelling_photosynthetic_radiative_flux)
         if (model%variable_needs_values(
     &       id_downwelling_photosynthetic_radiative_flux)) then
            allocate(
     &      downwelling_photosynthetic_radiative_flux(imt,km,jmt),
     &      stat=rc)
            if (rc /= 0) stop 'link_salinity(): 
     &      Error allocating 
     &      (downwelling_photosynthetic_radiative_flux)'
            downwelling_photosynthetic_radiative_flux = 0._rke
            call model%link_interior_data(
     &              id_downwelling_photosynthetic_radiative_flux,
     &              downwelling_photosynthetic_radiative_flux)
         end if
      end subroutine link_downwelling_photosynthetic_radiative_flux