swanpre2.f90

Go to the documentation of this file.

!************************************************************************
!                                                                       *
   SUBROUTINE swboun ( )         
   END SUBROUTINE swboun
 
!*********************************************************************
!                                                                    *
   SUBROUTINE bcfile (FBCNAM, BCTYPE)                     

!  (This subroutine has not been used and tested yet)
!                                                                    *
!*********************************************************************
!
!     Reads file data for boundary condition
!
!*********************************************************************
!
   USE ocpcomm1                                                        
   USE ocpcomm2                                                        
   USE ocpcomm4                                                        
   USE swcomm2                                                         
   USE swcomm3                                                         
   USE swcomm4                                                         
   USE m_bndspec                                                       
!
   IMPLICIT NONE

   CHARACTER FBCNAM *(*), BCTYPE *(*)

   INTEGER :: ISTATF, NDSL, NDSD, IOSTAT, IERR, NBOUNC, NANG, NFRE
   INTEGER :: IBOUNC, DORDER
   INTEGER :: IENT,IOPTT
   INTEGER :: NHEDF, NHEDT, NHEDS, IFRE , IANG
   INTEGER :: NQUANT, IQUANT, IBC, II, NBGRPT_PREV,IIPT2
   REAL    :: XP, YP, XP2, YP2
   REAL    :: FREQHZ, DIRDEG, DIRRD1,DIRRAD, EXCV
   CHARACTER BTYPE *4, HEDLIN *80
   LOGICAL         CCOORD                                            

!
   ndsl = 0
   iipt2 = 0                                                           
!  open data file
   ndsd = 0
   iostat = 0
   CALL for (ndsd, filenm, 'OF', iostat)
!
!     --- initialize array BFILED of BSPFIL                               
!      BSPFIL%BFILED = 0                                                   
!
!     start reading from the data file
      READ (ndsd, '(A)') hedlin
!      IF (EQCSTR(HEDLIN,'TPAR')) THEN                                     
!        BTYPE  = 'TPAR'
!        ISTATF = 1
!        IOPTT  = 1
!        NBOUNC = 1
!        NANG   = 0
!        NFRE   = 0
!        NHEDF  = 0
!        NHEDT  = 0
!        NHEDS  = 0
!        DORDER = 0
!        ALLOCATE(BSPFIL%BSPFRQ(NFRE))                                     
!        ALLOCATE(BSPFIL%BSPDIR(NANG))                                     
!        IF (NSTATM.EQ.0) CALL MSGERR (3,'time information not allowed in stationary mode')
!        NSTATM = 1
!      ELSE IF (EQCSTR(HEDLIN,'SWAN')) THEN                                
!      ELSE
!        CALL MSGERR (3, 'unsupported boundary data file')
!      ENDIF
!
!      ALLOCATE(BSPFIL%BSPLOC(NBOUNC))                                     
!      DO IBC = 1, NBOUNC
!         BSPFIL%BSPLOC(IBC) = NBSPEC + IBC                                
!      ENDDO
      nbspec = nbspec + nbounc
!
!     store file reading parameters in array BFILED
!
!      IF (ITEST.GE.80) WRITE(PRINTF,81) NBFILS, NBSPEC,(BSPFIL%BFILED(II), II=1,16)                                  
  81  FORMAT (' array BFILED: ', 2i4, 2(/,8i10))
!
      RETURN
      END SUBROUTINE bcfile