link_density Subroutine

private subroutine link_density()

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

Arguments

None

Calls

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

Called by

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

Source Code

      subroutine link_density()
         !! get density FABM standard variable and if needed by FABM
         !! allocate  memory

         integer rc
            ! status variable

         id_density = model%get_interior_variable_id(
     &                fabm_standard_variables%density)
         if (model%variable_needs_values(id_density)) then
            allocate(rho_fabm(imt,km,jmt),stat=rc)
            if (rc /= 0) stop 'link_density(): 
     &                         Error allocating (rho_fabm)'
            rho_fabm = 0._rke
            call model%link_interior_data(id_density,rho_fabm)
         end if
      end subroutine link_density