pseudo_salt_needs_thermo_warning Function

public pure function pseudo_salt_needs_thermo_warning(enable_ps, enable_thermodynamics) result(warn)

.true. iff pseudo-salt is enabled with thermodynamics off. NOT a hard error — pseudo-salt still measures pure transport, a legitimate use — but the caller should warn: without thermodynamics, the tracer never receives the surface salt flux / KPP nonlocal mirrors, so D degenerates to a pure advection/diffusion probe.

Arguments

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

Return Value logical


Called by

proc~~pseudo_salt_needs_thermo_warning~~CalledByGraph proc~pseudo_salt_needs_thermo_warning pseudo_salt_needs_thermo_warning proc~validate_config validate_config proc~validate_config->proc~pseudo_salt_needs_thermo_warning 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_needs_thermo_warning(enable_ps, enable_thermodynamics) &
      result(warn)
      !! `.true.` iff pseudo-salt is enabled with thermodynamics off.
      !! NOT a hard error — pseudo-salt still measures pure transport,
      !! a legitimate use — but the caller should warn: without
      !! thermodynamics, the tracer never receives the surface salt
      !! flux / KPP nonlocal mirrors, so `D` degenerates to a pure
      !! advection/diffusion probe.
      logical, intent(in) :: enable_ps
      logical, intent(in) :: enable_thermodynamics
      logical :: warn
      warn = enable_ps .and. .not. enable_thermodynamics
   end function pseudo_salt_needs_thermo_warning