update_mole_fraction_of_carbon_dioxide_in_air Subroutine

private subroutine update_mole_fraction_of_carbon_dioxide_in_air()

calculate the ?????? in W/m^2

Arguments

None

Calls

proc~~update_mole_fraction_of_carbon_dioxide_in_air~~CallsGraph proc~update_mole_fraction_of_carbon_dioxide_in_air uvic_fabm::update_mole_fraction_of_carbon_dioxide_in_air kmt kmt proc~update_mole_fraction_of_carbon_dioxide_in_air->kmt variable_needs_values variable_needs_values proc~update_mole_fraction_of_carbon_dioxide_in_air->variable_needs_values

Called by

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

Source Code

      subroutine update_mole_fraction_of_carbon_dioxide_in_air()
         !! calculate the ?????? in W/m^2

         integer i,j
            ! local loop counters

         if (model%variable_needs_values(
     &       id_mole_fraction_of_carbon_dioxide_in_air)) then
            do j=2,jmt-1
               do i=2,imt-1
                  if (kmt(i,j) > 0) then
                     mole_fraction_of_carbon_dioxide_in_air(i,j) =
     &                    10._rke !KB
                  end if
               end do
            end do
         end if
      end subroutine update_mole_fraction_of_carbon_dioxide_in_air