genmap_lsf.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	genmap_lsf

Function/Subroutine Documentation

genmap_lsf()

subroutine genmap_lsf

(

)

Definition at line 42 of file genmap_lsf.f90.

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

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

  REAL(SP), POINTER :: FTMP1(:),FTMP2(:)
  REAL(SP), POINTER :: FTMP3(:),FTMP4(:)


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

  IF(serial) THEN
     nobclsf    = nobclsf_gl

     ALLOCATE(ibclsf(nobclsf))
     ibclsf = ibclsf_gl
     DEALLOCATE(ibclsf_gl)

     ALLOCATE(rbc_geo(nobclsf))
     rbc_geo = rbc_geo_gl
     DEALLOCATE(rbc_geo_gl)

     ALLOCATE(rbc_wdf(nobclsf))
     rbc_wdf = rbc_wdf_gl
     DEALLOCATE(rbc_wdf_gl)

     ALLOCATE(ibclsf_output(nobclsf))
     ibclsf_output = ibclsf

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


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

Here is the caller graph for this function: