is_radiating Function

private pure function is_radiating(bc_type) result(res)

Returns .true. for Flather-class edges (not CLAMPED).

Arguments

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

Return Value logical


Called by

proc~~is_radiating~~CalledByGraph proc~is_radiating is_radiating proc~apply_meridional_baroclinic apply_meridional_baroclinic proc~apply_meridional_baroclinic->proc~is_radiating proc~apply_zonal_baroclinic apply_zonal_baroclinic proc~apply_zonal_baroclinic->proc~is_radiating proc~ocean_obc_apply_baroclinic ocean_obc_apply_baroclinic proc~ocean_obc_apply_baroclinic->proc~is_radiating proc~ocean_obc_apply_baroclinic->proc~apply_meridional_baroclinic proc~ocean_obc_apply_baroclinic->proc~apply_zonal_baroclinic proc~run_stage_split run_stage_split proc~run_stage_split->proc~ocean_obc_apply_baroclinic proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step

Source Code

   pure logical function is_radiating(bc_type) result(res)
      !! Returns .true. for Flather-class edges (not CLAMPED).
      integer, intent(in) :: bc_type
      res = (bc_type == OBC_OPEN .or. bc_type == OBC_TIDAL .or. &
             bc_type == OBC_CHAPMAN .or. bc_type == OBC_NESTED)
   end function is_radiating