input_mod.F90

Go to the documentation of this file.

module input


  use kinds, only : dp
  implicit none

  real(DP) :: rstim, vnekton
  real(DP) :: nktonv
  integer :: irstv, irstt, irstim, nobj, ngeom
  integer :: nhis, ipscal, npscal, ipsco, ifldmhd

  real(DP), allocatable ::  param(:), cpfld(:,:), cpgrp(:,:,:), qinteg(:,:)
  integer, allocatable :: matype(:,:), lochis(:,:), nmember(:)
  logical, allocatable :: iftmsh(:),ifnonl(:),ifvarp(:),ifpsco(:),ifpso(:) 
  logical, allocatable, target :: ifadvc(:)
  
  logical :: if3d &
    ,ifflow,ifheat,iftran,ifaxis,ifstrs,ifsplit &
    ,ifmgrid &
    ,ifmvbd,ifnatc,ifchar &
    ,ifvps &
    ,ifmodel,ifkeps &
    ,ifintq,ifcons &
    ,ifxyo,ifpo,ifvo,ifto,iftgo,iffmtin &
    ,ifbo &
    ,ifanls,ifanl2,ifmhd,ifessr,ifpert,ifbase &
    ,ifcvode,iflomach,ifexplvis,ifschclob,ifuservp, &
    ifcyclic,ifmoab,ifcoup, ifvcoup, ifusermv,ifreguo, &
    ifxyo_,ifaziv,ifneknek
  logical :: ifprint

  LOGICAL, pointer :: ifnav

    CHARACTER(1), allocatable :: hcode(:,:)
    CHARACTER(2), allocatable ::     ocode(:)
    CHARACTER(10), allocatable ::    drivc(:)
    CHARACTER(14) ::    rstv,rstt
    CHARACTER(40), allocatable, target ::    textsw(:,:)
    CHARACTER(40), pointer ::    turbmod
    CHARACTER(132), allocatable ::    initc(:)

    CHARACTER(132) ::   reafle,fldfle,dmpfle,hisfle,schfle,orefle,nrefle
    CHARACTER(132) ::   session,path,re2fle,h5mfle,series

! proportional to LELT

  real(DP), allocatable :: xc(:,:),yc(:,:),zc(:,:) &
    ,bc(:,:,:,:) &
    ,curve(:,:,:) &
    ,cerror(:)

  integer, allocatable :: igroup(:),object(:,:,:)

  CHARACTER(1), allocatable :: ccurve(:,:),cdof(:,:)
  CHARACTER(3), allocatable :: cbc(:,:,:)
  character(3) :: solver_type

  integer, allocatable :: ieact(:)
  integer :: neact

! material set ids, BC set ids, materials (f=fluid, s=solid), bc types
  integer, parameter :: numsts = 50
  integer, allocatable :: matindx(:), matids(:), imatie(:), ibcsts(:), bcf(:)
  character(3), allocatable :: bctyps(:)
  integer :: numflu, numoth, numbcs

  contains

  subroutine init_input()
    use size_m
    implicit none
    allocate(param(200), cpfld(ldimt1,3), cpgrp(-5:10,ldimt1,3), qinteg(ldimt3,maxobj))

    allocate(matype(-5:10,ldimt1), lochis(4,lhis), nmember(maxobj))

    allocate(ifadvc(ldimt1),iftmsh(0:ldimt1), ifnonl(ldimt1), ifvarp(ldimt1), ifpsco(ldimt1))
    allocate(ifpso(ldimt1))
    ifnav => ifadvc(1)
    iftmsh = .false.

    allocate(hcode(11,lhis),ocode(8),drivc(5), initc(15),textsw(100,2))
    turbmod => textsw(1,1)

    allocate(xc(8,lelt),yc(8,lelt),zc(8,lelt), bc(5,6,lelt,0:ldimt1))
    allocate(curve(6,12,lelt),cerror(lelt))

    allocate(igroup(lelt),object(maxobj,maxmbr,2))

    allocate(cbc(6,lelt,0:ldimt1),ccurve(12,lelt), cdof(6,lelt), ieact(lelt))

    allocate(matindx(numsts),matids(numsts),imatie(lelt), ibcsts(numsts))
  end subroutine init_input

end module input