nz_stack_is_sufficient Function

public pure function nz_stack_is_sufficient(nz) result(ok)

.true. when the COMPILED NZ_STACK_MAX covers nz layers. Callers that get .false. must refuse the run — the overflow is a silent thread-local-storage overrun, not a crash.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nz

Return Value logical


Calls

proc~~nz_stack_is_sufficient~~CallsGraph proc~nz_stack_is_sufficient nz_stack_is_sufficient proc~nz_stack_required nz_stack_required proc~nz_stack_is_sufficient->proc~nz_stack_required

Called by

proc~~nz_stack_is_sufficient~~CalledByGraph proc~nz_stack_is_sufficient nz_stack_is_sufficient proc~ocean_redi_init ocean_redi_t%ocean_redi_init proc~ocean_redi_init->proc~nz_stack_is_sufficient proc~validate_config validate_config proc~validate_config->proc~nz_stack_is_sufficient proc~vcoord_init vcoord_t%vcoord_init proc~vcoord_init->proc~nz_stack_is_sufficient 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 nz_stack_is_sufficient(nz) result(ok)
      !! `.true.` when the COMPILED `NZ_STACK_MAX` covers `nz` layers.
      !! Callers that get `.false.` must refuse the run — the overflow is
      !! a silent thread-local-storage overrun, not a crash.
      integer, intent(in) :: nz
      logical :: ok

      ok = nz_stack_required(nz) <= NZ_STACK_MAX
   end function nz_stack_is_sufficient