pseudo_salt_conflicts_ice Function

public pure function pseudo_salt_conflicts_ice(enable_ps, enable_ice) result(conflict)

.true. iff pseudo-salt is enabled alongside the sea-ice model — frazil / basal salt exchange are un-mirrored salinity sources (rdb_ice_frazil.F90, rdb_ice_frazil_uptake.F90, rdb_ice_basal_flux.F90). Drives a configure-time fail-loud abort.

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: enable_ps
logical, intent(in) :: enable_ice

Return Value logical


Called by

proc~~pseudo_salt_conflicts_ice~~CalledByGraph proc~pseudo_salt_conflicts_ice pseudo_salt_conflicts_ice proc~validate_config validate_config proc~validate_config->proc~pseudo_salt_conflicts_ice proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle

Source Code

   pure function pseudo_salt_conflicts_ice(enable_ps, enable_ice) result(conflict)
      !! `.true.` iff pseudo-salt is enabled alongside the sea-ice
      !! model — frazil / basal salt exchange are un-mirrored salinity
      !! sources (`rdb_ice_frazil.F90`, `rdb_ice_frazil_uptake.F90`,
      !! `rdb_ice_basal_flux.F90`). Drives a configure-time fail-loud
      !! abort.
      logical, intent(in) :: enable_ps
      logical, intent(in) :: enable_ice
      logical :: conflict
      conflict = enable_ps .and. enable_ice
   end function pseudo_salt_conflicts_ice