Commit e1f3b48e authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

enforce alignment on 64 bit boundaries

parent ea915fc6
......@@ -95,7 +95,7 @@
integer, parameter, public :: cache_type_vertical = 3
real(rk), parameter :: not_written = huge(1.0_rk)
integer, parameter :: array_block_size = 1
integer, parameter :: array_block_size = 8
!
! !PUBLIC TYPES:
!
......
......@@ -496,14 +496,14 @@ contains
call random_number(tmp_hz)
# ifdef _HAS_MASK_
! Pick random numbers between 0 (land) and maximum index
bottom_index = floor(tmp_hz*(1+domain_extent(_FABM_DEPTH_DIMENSION_INDEX_)))
bottom_index = floor(tmp_hz * (1 + domain_extent(_FABM_DEPTH_DIMENSION_INDEX_)))
# ifdef _FABM_VERTICAL_BOTTOM_TO_SURFACE_
! Ensure invalid bottom indices [land points] are set such that vertical loops have 0 iterations.
where (bottom_index == 0) bottom_index = domain_extent(_FABM_DEPTH_DIMENSION_INDEX_) + 1
# endif
# else
! Pick random numbers between 1 and maximum index
bottom_index = 1 + floor(tmp_hz*(domain_extent(_FABM_DEPTH_DIMENSION_INDEX_)))
bottom_index = 1 + floor(tmp_hz * domain_extent(_FABM_DEPTH_DIMENSION_INDEX_))
# endif
#endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment