genmap_obc.f90

Go to the documentation of this file.

!/===========================================================================/
! Copyright (c) 2007, The University of Massachusetts Dartmouth 
! Produced at the School of Marine Science & Technology 
! Marine Ecosystem Dynamics Modeling group
! All rights reserved.
!
! FVCOM has been developed by the joint UMASSD-WHOI research team. For 
! details of authorship and attribution of credit please see the FVCOM
! technical manual or contact the MEDM group.
!
! 
! This file is part of FVCOM. For details, see http://fvcom.smast.umassd.edu 
! The full copyright notice is contained in the file COPYRIGHT located in the 
! root directory of the FVCOM code. This original header must be maintained
! in all distributed versions.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
! AND ANY EXPRESS OR  IMPLIED WARRANTIES, INCLUDING,  BUT NOT  LIMITED TO,
! THE IMPLIED WARRANTIES OF MERCHANTABILITY AND  FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED.  
!
!/---------------------------------------------------------------------------/
! CVS VERSION INFORMATION
! $Id$
! $Name$
! $Revision$
!/===========================================================================/

!==============================================================================|
SUBROUTINE genmap_obc
!==============================================================================|
!      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
END SUBROUTINE genmap_obc