paramesh_interfaces.f90

做网格的好程序

     &       recv,ia,ib,ja,jb,ka,kb,idest, & 
     &       ioff,joff,koff,mype,lb,pe_p,lb_p,iface,ivar)
      integer, intent(in) :: ia,ib,ja,jb,ka,kb,idest
      integer, intent(in) :: ioff,joff,koff,mype,iface
      integer, intent(in) :: lb,lb_p,pe_p
      real,    intent(inout) :: recv(:,:,:,:)
      integer, intent(in) :: ivar
      end subroutine amr_1blk_fc_prol_user
      end interface

      interface
      subroutine amr_1blk_guardcell(mype,iopt,nlayers,lb,pe,             & 
     &                              lcc,lfc,lec,lnc,                     & 
     &                              l_srl_only,icoord,ldiag,             & 
     &                              nlayersx, nlayersy, nlayersz)
      integer, intent(in) :: mype,iopt,nlayers,lb,pe,icoord
      logical, intent(in) :: lcc,lfc,lec,lnc,l_srl_only,ldiag
      integer, intent(in), optional :: nlayersx,nlayersy,nlayersz
      end subroutine amr_1blk_guardcell
      end interface


      interface
      subroutine amr_1blk_guardcell_c_to_f(mype,lb,pe,iopt,nlayers,      & 
     &                         surrblks,lcc,lfc,lec,lnc,icoord,ldiag,    & 
     &                         nlayersx,nlayersy,nlayersz)
      integer, intent(in) :: mype,iopt,nlayers,lb,pe,icoord
      integer, intent(in) :: surrblks(:,:,:,:)
      logical, intent(in) :: lcc,lfc,lec,lnc,ldiag
      integer, intent(in) :: nlayersx, nlayersy, nlayersz
      end subroutine amr_1blk_guardcell_c_to_f
      end interface


      interface
      subroutine amr_1blk_guardcell_f_to_c(mype,pe,lb,iblock,iopt,       & 
     &                                                    nlayers,       & 
     &                         surrblks,lcc,lfc,lec,lnc,icoord,ldiag,    & 
     &                         nlayersx,nlayersy,nlayersz)
      integer, intent(in) :: mype,iopt,nlayers,lb,pe,iblock,icoord
      integer, intent(in) :: surrblks(:,:,:,:)
      logical, intent(in) :: lcc,lfc,lec,lnc,ldiag
      integer, intent(in) :: nlayersx,nlayersy,nlayersz
      end subroutine amr_1blk_guardcell_f_to_c
      end interface

      interface
      subroutine amr_1blk_guardcell_f_to_c_fil(mype,pe,lb,iblock,iopt,   & 
     &                                                    nlayers,       & 
     &                         surrblks,lcc,lfc,lec,lnc,icoord,ldiag)
      integer, intent(in) :: mype,iopt,nlayers,lb,pe,iblock,icoord
      integer, intent(in) :: surrblks(:,:,:,:)
      logical, intent(in) :: lcc,lfc,lec,lnc,ldiag
      end subroutine amr_1blk_guardcell_f_to_c_fil
      end interface

      interface
      subroutine amr_1blk_guardcell_f_to_c_set(mype,pe,lb,iblock,iopt,   & 
     &                                                    nlayers,       & 
     &                         surrblks,lcc,lfc,lec,lnc,icoord,ldiag,    & 
     &                         nlayersx,nlayersy,nlayersz)
      integer, intent(in) :: mype,iopt,nlayers,lb,pe,iblock,icoord
      integer, intent(in) :: surrblks(:,:,:,:)
      logical, intent(in) :: lcc,lfc,lec,lnc,ldiag
      integer, intent(in) :: nlayersx,nlayersy,nlayersz
      end subroutine amr_1blk_guardcell_f_to_c_set
      end interface

      interface
      subroutine amr_1blk_guardcell_reset
      end subroutine amr_1blk_guardcell_reset
      end interface


      interface
      subroutine amr_1blk_guardcell_srl(mype,pe,lb,iblock,iopt,nlayers,  & 
     &                         surrblks,lcc,lfc,lec,lnc,icoord,ldiag,    & 
     &                         nlayers0x,nlayers0y,nlayers0z)
      integer, intent(in) :: mype,iopt,nlayers,lb,pe,iblock,icoord
      integer, intent(in) :: surrblks(:,:,:,:)
      logical, intent(in) :: lcc,lfc,lec,lnc,ldiag
      integer, intent(in) :: nlayers0x, nlayers0y, nlayers0z
      end subroutine amr_1blk_guardcell_srl
      end interface


      interface
      subroutine amr_1blk_restrict(mype,iopt,lcc,lfc,lec,lnc)
      integer, intent(in)  :: mype,iopt
      logical, intent(in)  :: lcc,lfc,lec,lnc
      end subroutine amr_1blk_restrict
      end interface


      interface
      subroutine amr_1blk_save_soln
      end subroutine amr_1blk_save_soln
      end interface


      interface
      subroutine amr_1blk_t_to_perm( lcc,lfc,lec,lnc,lb,idest)
      integer, intent(in) :: lb,idest
      logical, intent(in) :: lcc,lfc,lec,lnc
      end subroutine amr_1blk_t_to_perm
      end interface

      interface
      subroutine amr_1blk_to_perm(lcc,lfc,lec,lnc,lb,iopt,idest)
      integer, intent(in) :: lb,iopt,idest
      logical, intent(in) :: lcc,lfc,lec,lnc
      end subroutine amr_1blk_to_perm
      end interface


      interface
      subroutine amr_abort()
      end subroutine amr_abort
      end interface

      interface
      subroutine amr_bi_sort(list,gid,npp)
      integer,intent(inout) :: list(:)
      integer,intent(inout) :: gid(:)
      integer,intent(in) :: npp
      end subroutine amr_bi_sort
      end interface

      interface
      subroutine amr_bc_block(jface,ibc,iopt,l,mype)
      integer, intent(in) :: jface,ibc,iopt,l,mype
      end subroutine amr_bc_block
      end interface

      interface
      subroutine amr_bcset_init
      end subroutine amr_bcset_init
      end interface


      interface
      subroutine amr_block_geometry(lb,pe)
      integer, intent(in) :: lb,pe
      end subroutine amr_block_geometry
      end interface

      interface
      subroutine amr_checkpoint_re(iunit1,l_with_guardcells)
      integer, intent(in) :: iunit1
      logical, optional, intent(in) :: l_with_guardcells
      end subroutine amr_checkpoint_re
      end interface


      interface
      subroutine amr_checkpoint_wr(iunit1,l_with_guardcells)
      integer, intent(in) :: iunit1
      logical, optional, intent(in) :: l_with_guardcells
      end subroutine amr_checkpoint_wr
      end interface

      interface
      subroutine amr_check_derefine(mype)
      integer, intent(in) :: mype
      end subroutine amr_check_derefine
      end interface

      interface
      subroutine amr_check_refine(nprocs,mype,icontinue)
      integer, intent(in) :: nprocs,mype
      integer, intent(in) :: icontinue
      end subroutine amr_check_refine
      end interface


      interface
      subroutine amr_close
      end subroutine amr_close
      end interface

      interface
      subroutine amr_derefine_blocks(lnblocks_old,mype)
      integer, intent(in)    :: mype
      integer, intent(inout) :: lnblocks_old
      end subroutine amr_derefine_blocks
      end interface

      interface
      subroutine amr_compute_morton (mort_no)
      integer, intent(out) ::  mort_no(:,:)
      end subroutine amr_compute_morton 
      end interface


      interface
      subroutine amr_edge_average(mype,lfullblock,nsub)
      integer, intent(in)  ::  mype,nsub
      logical, intent(in)  ::  lfullblock
      end subroutine amr_edge_average
      end interface


      interface
      subroutine amr_edge_average_udt(mype)
      integer, intent(in)  ::  mype
      end subroutine amr_edge_average_udt
      end interface


      interface
      subroutine amr_edge_average_vdt(mype,nsub)
      integer, intent(in)  ::  mype,nsub
      end subroutine amr_edge_average_vdt
      end interface

      interface
      subroutine amr_edge_diagonal_check(mype)
      integer, intent(in)  ::  mype
      end subroutine amr_edge_diagonal_check
      end interface

      interface
      subroutine amr_flush(iunit)
      integer, intent(in)  ::  iunit
      end subroutine amr_flush
      end interface

      interface
      subroutine amr_flux_conserve(mype,nsub,flux_dir)
      integer, optional, intent(in)  ::  flux_dir
      integer, intent(in)  ::  mype,nsub
      end subroutine amr_flux_conserve
      end interface

      interface
      subroutine amr_flux_conserve_udt(mype,flux_dir)
      integer, optional, intent(in) :: flux_dir
      integer, intent(in)  ::  mype
      end subroutine amr_flux_conserve_udt
      end interface

      interface
      subroutine amr_flux_conserve_vdt(mype,nsub)
      integer, intent(in)  ::  mype,nsub
      end subroutine amr_flux_conserve_vdt
      end interface

      interface
      subroutine amr_gsurrounding_blks(mype,ldiag)
      integer, intent(in)    ::  mype
      logical, intent(in)    ::  ldiag
      end subroutine amr_gsurrounding_blks
      end interface


      interface
      subroutine amr_guardcell(mype,iopt,nlayers, & 
     &                         nlayersx,nlayersy,nlayersz)
      integer, intent(in), optional :: nlayersx,nlayersy,nlayersz
      integer, intent(in)  ::  mype,iopt,nlayers
      end subroutine amr_guardcell
      end interface

      interface
      subroutine amr_initialize
      end subroutine amr_initialize
      end interface


      interface
      subroutine amr_migrate_tree_data(new_loc,nprocs,mype)
      integer, intent(in)    ::  mype
      integer, intent(in)    ::  nprocs
      integer, intent(inout) ::  new_loc(:,:)
      end subroutine amr_migrate_tree_data
      end interface


      interface
      subroutine amr_morton_order (lnblocks_old,nprocs,mype, & 
     &                             l_move_solution)
      integer, intent(in) ::  mype
      integer, intent(in) ::  nprocs,lnblocks_old
      logical, intent(in) ::  l_move_solution
      end subroutine amr_morton_order
      end interface



      interface
      subroutine amr_perm_to_1blk( lcc,lfc,lec,lnc,lb,pe,iopt,idest)
      integer, intent(in) ::  lb,pe,iopt,idest
      logical, intent(in) ::  lcc,lfc,lec,lnc
      end subroutine amr_perm_to_1blk
      end interface

      interface
      subroutine amr_mpi_find_blk_in_buffer( & 
     &       mype,remote_block,remote_pe,idest,dtype,index,lfound)
      integer, intent(in)  :: mype,remote_pe,remote_block,idest
      integer, intent(out) :: dtype,index
      logical, intent(out) :: lfound
      end subroutine amr_mpi_find_blk_in_buffer
      end interface


      interface
      subroutine amr_prolong(mype,iopt,nlayers)
      integer, intent(in) ::  mype,iopt,nlayers
      end subroutine amr_prolong
      end interface

      interface
      subroutine amr_prolong_cc_fun_init
      end subroutine amr_prolong_cc_fun_init
      end interface

      interface
      subroutine amr_prolong_face_fun_init
      end subroutine amr_prolong_face_fun_init
      end interface

      interface
!      subroutine amr_prolong_fc_divbconsist(mype)
      subroutine amr_prolong_fc_divbconsist(mype,level,nfield)
      integer, intent(in) ::  mype
      integer, intent(in) ::  level
      integer, intent(in) ::  nfield
      end subroutine amr_prolong_fc_divbconsist
      end interface


      interface
      subroutine amr_prolong_fun_init
      end subroutine amr_prolong_fun_init
      end interface

      interface
      subroutine amr_redist_blk(new_loc,nprocs,mype,lnblocks_old)
      integer, intent(in)    ::  nprocs
      integer, intent(inout) ::  new_loc(:,:)
      integer, intent(in)    ::  lnblocks_old
      integer, intent(in)    ::  mype
      end subroutine amr_redist_blk
      end interface