#include <misc.h>#include <params.h>module spmd_phys!----------------------------------------------------------------------- ! ! Purpose: SPMD implementation of CAM for physics.! ! Author: CCM Core Group! !-----------------------------------------------------------------------   use precision, only: r8   use pmgrid, only: beglat, endlat   use ppgrid, only: begchunk, endchunk   implicit none   private   public is_366_physics   public spmdinit_physCONTAINS!========================================================================   subroutine spmdinit_phys ()      begchunk = beglat      endchunk = endlat      return   end subroutine spmdinit_phys   logical function is_366_physics ( )     is_366_physics = .false.     return   end function is_366_physicsend module spmd_phys