fabm_link_data Subroutine

public subroutine fabm_link_data()

link all FABM configured external dependencies - and call model%start() to assure proper configuration

Arguments

None

Calls

proc~~fabm_link_data~~CallsGraph proc~fabm_link_data uvic_fabm::fabm_link_data itrc itrc proc~fabm_link_data->itrc link_bottom_state_data link_bottom_state_data proc~fabm_link_data->link_bottom_state_data link_interior_data link_interior_data proc~fabm_link_data->link_interior_data link_interior_state_data link_interior_state_data proc~fabm_link_data->link_interior_state_data proc~link_bottom_stress uvic_fabm::link_bottom_stress proc~fabm_link_data->proc~link_bottom_stress proc~link_density uvic_fabm::link_density proc~fabm_link_data->proc~link_density proc~link_grid uvic_fabm::link_grid proc~fabm_link_data->proc~link_grid proc~link_mole_fraction_of_carbon_dioxide_in_air uvic_fabm::link_mole_fraction_of_carbon_dioxide_in_air proc~fabm_link_data->proc~link_mole_fraction_of_carbon_dioxide_in_air proc~link_salinity uvic_fabm::link_salinity proc~fabm_link_data->proc~link_salinity proc~link_surface_swr_flux uvic_fabm::link_surface_swr_flux proc~fabm_link_data->proc~link_surface_swr_flux proc~link_wind uvic_fabm::link_wind proc~fabm_link_data->proc~link_wind sed sed proc~fabm_link_data->sed start start proc~fabm_link_data->start t t proc~fabm_link_data->t 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 proc~link_density->link_interior_data get_interior_variable_id get_interior_variable_id proc~link_density->get_interior_variable_id proc~link_density->variable_needs_values proc~link_grid->link_interior_data dzt dzt proc~link_grid->dzt kmt kmt proc~link_grid->kmt zt zt proc~link_grid->zt proc~link_mole_fraction_of_carbon_dioxide_in_air->get_horizontal_variable_id proc~link_mole_fraction_of_carbon_dioxide_in_air->link_horizontal_data proc~link_mole_fraction_of_carbon_dioxide_in_air->variable_needs_values proc~link_salinity->link_interior_data proc~link_salinity->get_interior_variable_id proc~link_salinity->variable_needs_values proc~link_surface_swr_flux->get_horizontal_variable_id proc~link_surface_swr_flux->link_horizontal_data proc~link_surface_swr_flux->variable_needs_values proc~link_wind->get_horizontal_variable_id proc~link_wind->link_horizontal_data proc~link_wind->variable_needs_values

Source Code

      subroutine fabm_link_data()
         !! link all FABM configured external dependencies - and call
         !! model%start() to assure proper configuration

         integer :: n

         ! link to time in-dependent data that do require transformation
         call link_grid()

         ! link to time dependent data that do NOT require transformation
         call model%link_interior_data(
     &        fabm_standard_variables%temperature,t(:,:,:,itemp,0))

         ! link to time dependent data that do require transformation
         ! initialize and update time changing environmental variables
         call link_wind()
         call link_mole_fraction_of_carbon_dioxide_in_air()
ckb         call link_surface_downwelling_photosynthetic_radiative_flux()
         call link_surface_swr_flux()
         call link_bottom_stress()
ckb         call link_downwelling_photosynthetic_radiative_flux()
         call link_salinity()
         call link_density()

         ! link to FABMs surface state variables
         do n = 1,nsurface
            ! call model%link_surface_state_data(n, sed(:,:,n))
         end do

         ! link to FABMs interior state variables
         do n = 1, size(model%interior_state_variables)
            call model%link_interior_state_data(n, t(:,:,:,2+n,0))
            itrc(n+2) = n+2
           !KBmapst(2+n) = 's'//trim(mapt(2+n))
         end do

         ! link to FABMs bottom state variables
         do n = 1,nbottom
            call model%link_bottom_state_data(n, sed(:,:,n))
         end do

         call model%start()

      end subroutine fabm_link_data