spmd_phys.f90

CCSM Research Tools: Community Atmosphere Model (CAM)

#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_phys

CONTAINS

!========================================================================

   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_physics


end module spmd_phys