pseudo_salt_conflicts_restore Function

public pure function pseudo_salt_conflicts_restore(enable_ps, enable_restore_salt) result(conflict)

.true. iff pseudo-salt is enabled alongside SSS piston restoring — an un-mirrored salinity source (rdb_ocean_surface_flux.F90 restore branch) that would make the deviation diagnostic measure the restoring term instead of the passive-transport-path error. Drives a configure-time fail-loud abort.

Arguments

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

Return Value logical


Called by

proc~~pseudo_salt_conflicts_restore~~CalledByGraph proc~pseudo_salt_conflicts_restore pseudo_salt_conflicts_restore proc~validate_config validate_config proc~validate_config->proc~pseudo_salt_conflicts_restore 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_restore(enable_ps, enable_restore_salt) result(conflict)
      !! `.true.` iff pseudo-salt is enabled alongside SSS piston
      !! restoring — an un-mirrored salinity source
      !! (`rdb_ocean_surface_flux.F90` restore branch) that would make
      !! the deviation diagnostic measure the restoring term instead of
      !! the passive-transport-path error. Drives a configure-time
      !! fail-loud abort.
      logical, intent(in) :: enable_ps
      logical, intent(in) :: enable_restore_salt
      logical :: conflict
      conflict = enable_ps .and. enable_restore_salt
   end function pseudo_salt_conflicts_restore