subroutine cloud_0(nlay, a, c, cond)
integer, intent(in) :: nlay
logical, dimension(nlay), intent(in) :: cond
real(kind=8), intent(out) :: a(:)
integer :: i
do i = 1,nlay
a(i) = 0.
enddo
end subroutine cloud_0
* call memset to initialise usually benefit to the performance because the library is optimized manually.
now the **classic-flang(old flang)** call memset when the value to be filled is zero.
test: https://gcc.godbolt.org/z/Te3c73K9h
end subroutine cloud_0