module spmd_phys 1,2 !----------------------------------------------------------------------- ! ! Purpose: SPMD implementation of CAM for physics. ! ! Author: CCM Core Group ! !----------------------------------------------------------------------- use shr_kind_mod, only: r8 => shr_kind_r8 use ppgrid, only: begchunk, endchunk implicit none private public spmdinit_phys CONTAINS !======================================================================== subroutine spmdinit_phys () 1,3 use dyn_grid, only: get_dyn_grid_parm begchunk = get_dyn_grid_parm('beglat') endchunk = get_dyn_grid_parm('endlat') return end subroutine spmdinit_phys end module spmd_phys