genmap_obc.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	genmap_obc

Function/Subroutine Documentation

genmap_obc()

subroutine genmap_obc

(

)

Definition at line 42 of file genmap_obc.f90.

!==============================================================================|
!      OBC Node Number
!      TS OBC Type
!      OBC Node list and types
!==============================================================================|
  USE mod_obcs
  USE bcs
  USE mod_par
  USE lims
  USE control
  IMPLICIT NONE
  integer :: SENDER,RECVER, ierr, I, NCNT, NSZE, I1

  INTEGER, POINTER :: TEMP1(:),TEMP2(:)
  INTEGER, POINTER :: TEMP3(:),TEMP4(:)

  if (dbg_set(dbg_sbr)) &
       & write(ipt,*) "START: SETUP_OBCMAP"

  IF(serial) THEN
     iobcn    = iobcn_gl

     ALLOCATE(i_obc_n(iobcn))
     i_obc_n = i_obc_gl
     ALLOCATE(type_obc(iobcn))
     type_obc = type_obc_gl

     ALLOCATE(i_obc_n_output(iobcn))
     i_obc_n_output = i_obc_gl

     if (dbg_set(dbg_sbr)) &
          & write(ipt,*) "END: GENMAP_OBC - serial"
     return
  END IF


  if (dbg_set(dbg_sbr)) &
       & write(ipt,*) "END: SETUP_OBCMAP - parallel"   
  RETURN

Here is the caller graph for this function: