arr_bytes_l2 Function

private pure function arr_bytes_l2(a) result(b)

Arguments

Type IntentOptional Attributes Name
logical, intent(in), allocatable :: a(:,:)

Return Value integer(kind=int64)


Called by

proc~~arr_bytes_l2~~CalledByGraph proc~arr_bytes_l2 arr_bytes_l2 interface~arr_bytes arr_bytes interface~arr_bytes->proc~arr_bytes_l2 proc~barotropic_state_bytes barotropic_state_t%barotropic_state_bytes proc~barotropic_state_bytes->interface~arr_bytes proc~barotropic_workstate_bytes barotropic_workstate_t%barotropic_workstate_bytes proc~barotropic_workstate_bytes->interface~arr_bytes proc~bt_wide_bytes bt_wide_t%bt_wide_bytes proc~bt_wide_bytes->interface~arr_bytes proc~ocean_metrics_bytes ocean_metrics_t%ocean_metrics_bytes proc~bt_wide_bytes->proc~ocean_metrics_bytes proc~continuity_bytes continuity_t%continuity_bytes proc~continuity_bytes->interface~arr_bytes proc~scratch_3d_buffer_bytes scratch_3d_buffer_t%scratch_3d_buffer_bytes proc~continuity_bytes->proc~scratch_3d_buffer_bytes proc~coriolis_adv_bytes coriolis_adv_t%coriolis_adv_bytes proc~coriolis_adv_bytes->interface~arr_bytes proc~coriolis_adv_bytes->proc~scratch_3d_buffer_bytes proc~diag_mask_bytes diag_mask_t%diag_mask_bytes proc~diag_mask_bytes->interface~arr_bytes proc~diag_var_bytes diag_var_t%diag_var_bytes proc~diag_var_bytes->interface~arr_bytes proc~diag_var_bytes->proc~diag_mask_bytes proc~evp_workspace_bytes evp_workspace_t%evp_workspace_bytes proc~evp_workspace_bytes->interface~arr_bytes proc~multilayer_state_bytes multilayer_state_t%multilayer_state_bytes proc~multilayer_state_bytes->interface~arr_bytes proc~tracer_bytes tracer_t%tracer_bytes proc~multilayer_state_bytes->proc~tracer_bytes proc~ocean_bc_state_bytes ocean_bc_state_t%ocean_bc_state_bytes proc~ocean_bc_state_bytes->interface~arr_bytes proc~ocean_bottom_drag_bytes ocean_bottom_drag_t%ocean_bottom_drag_bytes proc~ocean_bottom_drag_bytes->interface~arr_bytes proc~ocean_bottom_drag_bytes->proc~scratch_3d_buffer_bytes proc~ocean_budgets_bytes ocean_budgets_t%ocean_budgets_bytes proc~ocean_budgets_bytes->interface~arr_bytes proc~ocean_budgets_bytes->proc~diag_mask_bytes proc~ocean_cavity_flux_bytes ocean_cavity_flux_t%ocean_cavity_flux_bytes proc~ocean_cavity_flux_bytes->interface~arr_bytes proc~ocean_data_input_bytes ocean_data_input_t%ocean_data_input_bytes proc~ocean_data_input_bytes->interface~arr_bytes proc~ocean_diag_bytes ocean_diag_t%ocean_diag_bytes proc~ocean_diag_bytes->interface~arr_bytes proc~ocean_diag_bytes->proc~diag_var_bytes proc~ocean_dyn_bytes ocean_dyn_t%ocean_dyn_bytes proc~ocean_dyn_bytes->interface~arr_bytes proc~ocean_dyn_bytes->proc~barotropic_workstate_bytes proc~ocean_epbl_bytes ocean_epbl_t%ocean_epbl_bytes proc~ocean_epbl_bytes->interface~arr_bytes proc~ocean_epbl_bytes->proc~scratch_3d_buffer_bytes proc~ocean_gm_bytes ocean_gm_t%ocean_gm_bytes proc~ocean_gm_bytes->interface~arr_bytes proc~ocean_horizontal_viscosity_bytes ocean_horizontal_viscosity_t%ocean_horizontal_viscosity_bytes proc~ocean_horizontal_viscosity_bytes->interface~arr_bytes proc~ocean_horizontal_viscosity_bytes->proc~scratch_3d_buffer_bytes proc~ocean_kappa_shear_bytes ocean_kappa_shear_t%ocean_kappa_shear_bytes proc~ocean_kappa_shear_bytes->interface~arr_bytes proc~ocean_lateral_mix_bytes ocean_lateral_mix_t%ocean_lateral_mix_bytes proc~ocean_lateral_mix_bytes->interface~arr_bytes proc~ocean_lateral_mix_bytes->proc~scratch_3d_buffer_bytes proc~ocean_meke_bytes ocean_meke_t%ocean_meke_bytes proc~ocean_meke_bytes->interface~arr_bytes proc~ocean_metrics_bytes->interface~arr_bytes proc~ocean_mle_bytes ocean_mle_t%ocean_mle_bytes proc~ocean_mle_bytes->interface~arr_bytes proc~ocean_obc_bytes ocean_obc_t%ocean_obc_bytes proc~ocean_obc_bytes->interface~arr_bytes proc~ocean_p_surf_bytes ocean_p_surf_t%ocean_p_surf_bytes proc~ocean_p_surf_bytes->interface~arr_bytes proc~ocean_pressure_force_bytes ocean_pressure_force_t%ocean_pressure_force_bytes proc~ocean_pressure_force_bytes->interface~arr_bytes proc~ocean_pressure_force_bytes->proc~scratch_3d_buffer_bytes proc~ocean_redi_bytes ocean_redi_t%ocean_redi_bytes proc~ocean_redi_bytes->interface~arr_bytes proc~ocean_sea_ice_bytes ocean_sea_ice_t%ocean_sea_ice_bytes proc~ocean_sea_ice_bytes->interface~arr_bytes proc~ocean_sea_ice_bytes->proc~evp_workspace_bytes proc~ocean_slopes_bytes ocean_slopes_t%ocean_slopes_bytes proc~ocean_slopes_bytes->interface~arr_bytes proc~ocean_sponge_bytes ocean_sponge_t%ocean_sponge_bytes proc~ocean_sponge_bytes->interface~arr_bytes proc~ocean_surface_flux_bytes ocean_surface_flux_t%ocean_surface_flux_bytes proc~ocean_surface_flux_bytes->interface~arr_bytes proc~ocean_surface_stress_bytes ocean_surface_stress_t%ocean_surface_stress_bytes proc~ocean_surface_stress_bytes->interface~arr_bytes proc~ocean_surface_stress_bytes->proc~scratch_3d_buffer_bytes proc~ocean_tidal_mixing_bytes ocean_tidal_mixing_t%ocean_tidal_mixing_bytes proc~ocean_tidal_mixing_bytes->interface~arr_bytes proc~ocean_tides_bytes ocean_tides_t%ocean_tides_bytes proc~ocean_tides_bytes->interface~arr_bytes proc~ocean_top_drag_bytes ocean_top_drag_t%ocean_top_drag_bytes proc~ocean_top_drag_bytes->interface~arr_bytes proc~ocean_top_drag_bytes->proc~scratch_3d_buffer_bytes proc~ocean_varmix_bytes ocean_varmix_t%ocean_varmix_bytes proc~ocean_varmix_bytes->interface~arr_bytes proc~ocean_vcoord_bytes ocean_vcoord_t%ocean_vcoord_bytes proc~ocean_vcoord_bytes->interface~arr_bytes proc~ocean_vdiff_bytes ocean_vdiff_t%ocean_vdiff_bytes proc~ocean_vdiff_bytes->interface~arr_bytes proc~ocean_vdiff_bytes->proc~scratch_3d_buffer_bytes proc~ocean_vmix_bytes ocean_vmix_t%ocean_vmix_bytes proc~ocean_vmix_bytes->interface~arr_bytes proc~ocean_wave_speed_bytes ocean_wave_speed_t%ocean_wave_speed_bytes proc~ocean_wave_speed_bytes->interface~arr_bytes proc~scratch_3d_buffer_bytes->interface~arr_bytes proc~tracer_bytes->interface~arr_bytes proc~ocean_hdiff_tracer_bytes ocean_hdiff_tracer_t%ocean_hdiff_tracer_bytes proc~ocean_hdiff_tracer_bytes->proc~scratch_3d_buffer_bytes proc~ocean_state_bytes ocean_state_t%ocean_state_bytes proc~ocean_state_bytes->proc~barotropic_state_bytes proc~ocean_vertical_advection_bytes ocean_vertical_advection_t%ocean_vertical_advection_bytes proc~ocean_vertical_advection_bytes->proc~scratch_3d_buffer_bytes proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~ocean_state_bytes proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   pure function arr_bytes_l2(a) result(b)
      logical, allocatable, intent(in) :: a(:, :)
      integer(int64) :: b
      b = 0_int64
      if (allocated(a)) b = size(a, kind=int64)*int(storage_size(.true.)/8, int64)
   end function arr_bytes_l2