link_salinity Subroutine

private subroutine link_salinity()

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

Arguments

None

Calls

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

Called by

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

Source Code

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

         integer rc
            ! status variable

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