Line data    Source code

       1             : module spmd_dyn
       2             : 
       3             :   !----------------------------------------------------------------------- 
       4             :   ! 
       5             :   ! Purpose: SPMD implementation of CAM SE finite element dynamics.
       6             :   ! 
       7             :   !-----------------------------------------------------------------------
       8             : 
       9             :   implicit none
      10             :   private
      11             : 
      12             :   public spmdbuf
      13             : 
      14             :   ! These variables are not used locally, but are set and used in phys_grid.
      15             :   ! They probably should be moved there.
      16             :   logical, public :: local_dp_map=.true.  ! flag indicates that mapping between dynamics 
      17             :                                           ! and physics decompositions does not require 
      18             :                                           ! interprocess communication
      19             :   integer, public :: block_buf_nrecs      ! number of local grid points (lon,lat,lev)
      20             :                                           !  in dynamics decomposition (including level 0)
      21             :   integer, public :: chunk_buf_nrecs      ! number of local grid points (lon,lat,lev)
      22             :                                           !  in physics decomposition (including level 0)
      23             :                                           ! assigned in phys_grid.F90
      24             : 
      25             : !========================================================================
      26             : CONTAINS
      27             : !========================================================================
      28             : 
      29           0 : subroutine spmdbuf
      30           0 : end subroutine spmdbuf
      31             : 
      32             : !========================================================================
      33             : 
      34             : end module spmd_dyn