subroutine decompinit 2,4
!-----------------------------------------------------------------------
!
! Purpose: Set up dynamics and physics decompositions
!
! Method: Ask dynamics and physics packages to do it.
!
! Author: CCM Core Group
!
!-----------------------------------------------------------------------
#if ( defined SPMD )
use spmd_dyn
, only: spmdinit_dyn
use spmd_phys
, only: spmdinit_phys
#endif
implicit none
#if ( defined SPMD )
!
! Currently spmdinit_dyn must be called before spmdinit_phys because the latter just copies
! in data computed in the former
!
call spmdinit_dyn
()
call spmdinit_phys
()
#endif
return
end subroutine decompinit