ReadPostSection.F90

Go to the documentation of this file.

! *********************************************************************
! * Rocstar Simulation Suite                                          *
! * Copyright@2015, Illinois Rocstar LLC. All rights reserved.        *
! *                                                                   *
! * Illinois Rocstar LLC                                              *
! * Champaign, IL                                                     *
! * www.illinoisrocstar.com                                           *
! * sales@illinoisrocstar.com                                         *
! *                                                                   *
! * License: See LICENSE file in top level of distribution package or *
! * http://opensource.org/licenses/NCSA                               *
! *********************************************************************
! *********************************************************************
! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,   *
! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES   *
! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND          *
! * NONINFRINGEMENT.  IN NO EVENT SHALL THE CONTRIBUTORS OR           *
! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER       *
! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,   *
! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE    *
! * USE OR OTHER DEALINGS WITH THE SOFTWARE.                          *
! *********************************************************************
!******************************************************************************
!
! Purpose: Read in user input related to postprocessor.
!
! Description: None.
!
! Input: 
!   global      Pointer to global type
!
! Output: None.
!
! Notes: none.
!
!******************************************************************************
!
! $Id: ReadPostSection.F90,v 1.15 2008/12/06 08:44:09 mtcampbe Exp $
!
! Copyright: (c) 2003-2005 by the University of Illinois
!
!******************************************************************************

SUBROUTINE readpostsection(global)

  USE moddatatypes
  USE modglobal, ONLY: t_global
  USE modinterfaces, ONLY: readsection
  USE moderror
  USE modparameters
  
  IMPLICIT NONE

! ... parameters
  TYPE(t_global), POINTER :: global

! ... local variables
  INTEGER :: nvals  

#ifdef RFLO
  INTEGER, PARAMETER :: nvals_max = 9 
#endif
#ifdef RFLU
  INTEGER, PARAMETER :: nvals_max = 20
#endif

  CHARACTER(CHRLEN) :: rcsidentstring
  CHARACTER(10) :: keys(nvals_max)  

  LOGICAL :: defined(nvals_max)

  REAL(RFREAL) :: vals(nvals_max)

!******************************************************************************

  rcsidentstring = '$RCSfile: ReadPostSection.F90,v $ $Revision: 1.15 $'

  CALL registerfunction(global,'ReadPostSection',&
  'ReadPostSection.F90')

! specify keywords and search for them

  nvals = nvals_max

#ifdef RFLO
  keys( 1) = 'PLTTYPE'
  keys( 2) = 'TIME'
  keys( 3) = 'ITER'
  keys( 4) = 'OUTFORMAT'
  keys( 5) = 'STATSFLAG'
  keys( 6) = 'TURBFLAG'
  keys( 7) = 'PLAGFLAG'
  keys( 8) = 'RADIFLAG'
  keys( 9) = 'SPECFLAG'

  CALL readsection( global,if_input,nvals,keys(1:nvals),vals(1:nvals), &
                    defined(1:nvals) )

  global%postStatsFlag = .false.
  global%postTurbFlag  = .false.
  global%postPlagFlag  = .false.
  global%postRadiFlag  = .false.
  global%postSpecFlag  = .false.

  IF (defined(1).eqv..true.) THEN
    IF (int(vals(1)+0.5_rfreal) == 1) THEN 
      global%postPlotType = plot_grid_only
    ELSE 
      global%postPlotType = plot_grid_flow
    END IF
  END IF

  IF (defined(2).eqv..true.) THEN
    global%postTime   = abs(vals(2))
  END IF

  IF (defined(3).eqv..true.) THEN
    global%postIter   = int(vals(3)+0.5_rfreal)
  END IF

  IF (defined(4).eqv..true.) THEN
    global%postOutFmt = int(vals(4)+0.5_rfreal)
  END IF
  
  IF (defined(5).eqv..true.) THEN
    IF (int(vals(5)+0.5_rfreal) == 1) THEN 
      global%postStatsFlag = .true.
    END IF
  END IF
  
  IF (defined(6).eqv..true.) THEN
    IF (int(vals(6)+0.5_rfreal) == 1) THEN 
      global%postTurbFlag = .true.
    END IF
  END IF
  
  IF (defined(7).eqv..true.) THEN
    IF (int(vals(7)+0.5_rfreal) == 1) THEN 
      global%postPlagFlag = .true.
    END IF
  END IF
  
  IF (defined(8).eqv..true.) THEN
    IF (int(vals(8)+0.5_rfreal) == 1) THEN 
      global%postRadiFlag = .true.
    END IF
  END IF
  
  IF (defined(9).eqv..true.) THEN
    IF (int(vals(9)+0.5_rfreal) == 1) THEN 
      global%postSpecFlag = .true.
    END IF
  END IF

  IF (global%postOutFmt <= 1) THEN
    global%postOutFmt = plot_fmt_generic
  ELSE IF (global%postOutFmt == 2) THEN
    global%postOutFmt = plot_fmt_tecplot
  ELSE
    global%postOutFmt = plot_fmt_tecascii
  ENDIF
#endif

#ifdef RFLU
  keys( 1) = 'PLTTYPE'
  keys( 2) = 'MERGEFLAG'
  keys( 3) = 'PLTVOLFLAG'
  keys( 4) = 'INTERTYPE'
  keys( 5) = 'INTERORDER'
  keys( 6) = 'SPECFLAG'
  keys( 7) = 'EXTRFLAG'    
  keys( 8) = 'DISCFLAG'
  keys( 9) = 'SCHTYPE'
  keys(10) = 'SCHEXP'
  keys(11) = 'NFRINGES'
  keys(12) = 'VORTFLAG'
  keys(13) = 'COREFLAG'
  keys(14) = 'WRIMERGE'
  keys(15) = 'ERRFLAG'
  keys(16) = 'OUTFORMAT'
  keys(17) = 'NSERVERS'
  keys(18) = 'PLTPATFLAG'
  keys(19) = 'PEULFLAG'
  keys(20) = 'GRADFLAG'

  CALL readsection(global,if_input,nvals,keys,vals,defined)

  IF ( defined(1) .EQV. .true. ) THEN
    IF ( nint(vals(1)) == 1 ) THEN 
      global%postPlotType = plot_grid_only
    ELSE 
      global%postPlotType = plot_grid_flow
    END IF ! NINT(vals)
  END IF ! defined

  IF ( defined(2) .EQV. .true. ) THEN
    IF ( nint(vals(2)) == 1 ) THEN 
      global%postMergeFlag = .true.
    ELSE 
      global%postMergeFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined
  
  IF ( defined(3) .EQV. .true. ) THEN
    IF ( nint(vals(3)) == 1 ) THEN 
      global%postPlotVolFlag = .true.
    ELSE 
      global%postPlotVolFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined 
  
  IF ( defined(4) .EQV. .true. ) THEN 
    global%postInterpType = nint(vals(4))
  END IF ! defined(4)
  
  IF ( defined(5) .EQV. .true. ) THEN 
    global%postInterpOrder = nint(vals(5))
  END IF ! defined
  
  IF ( defined(6) .EQV. .true. ) THEN 
    IF ( nint(vals(6)) == 1 ) THEN 
      global%postSpecFlag = .true. 
    ELSE 
      global%postSpecFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined 
  
  IF ( defined(7) .EQV. .true. ) THEN 
    IF ( nint(vals(7)) == 1 ) THEN 
      global%postExtractFlag = .true. 
    ELSE 
      global%postExtractFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined    

  IF ( defined(8) .EQV. .true. ) THEN 
    IF ( nint(vals(8)) == 1 ) THEN 
      global%postDiscFlag = .true. 
    ELSE 
      global%postDiscFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined    

  IF ( defined(9) .EQV. .true. ) THEN 
    global%postSchType = nint(vals(9))
  END IF ! defined

  IF ( defined(10) .EQV. .true. ) THEN 
    global%postSchExp = vals(10)
  END IF ! defined

  IF ( defined(11) .EQV. .true. ) THEN 
    global%postNFringes = nint(vals(11))
  END IF ! defined
  
  IF ( defined(12) .EQV. .true. ) THEN 
    IF ( nint(vals(12)) == 1 ) THEN 
      global%postVortFlag = .true. 
    ELSE 
      global%postVortFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined  

  IF ( defined(13) .EQV. .true. ) THEN 
    IF ( nint(vals(13)) == 1 ) THEN 
      global%postVortCoreFlag = .true. 
    ELSE 
      global%postVortCoreFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined  

  IF ( defined(14) .EQV. .true. ) THEN 
    IF ( nint(vals(14)) == 1 ) THEN 
      global%postWriteMergeFlag = .true. 
    ELSE 
      global%postWriteMergeFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined  
  
  IF ( defined(15) .EQV. .true. ) THEN 
    IF ( nint(vals(15)) == 1 ) THEN 
      global%postCompErrFlag = .true. 
    ELSE 
      global%postCompErrFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined 
  
  IF ( defined(16) .EQV. .true. ) THEN 
    IF ( nint(vals(16)) == 1 ) THEN 
      global%postOutputFormat = post_output_format_tecplot 
    ELSE IF ( nint(vals(16)) == 2 ) THEN 
      global%postOutputFormat = post_output_format_ensight
    END IF ! NINT(vals)
  END IF ! defined  
  
  IF ( defined(17) .EQV. .true. ) THEN 
    global%postNServers = nint(vals(17))
  END IF ! defined          

  IF ( defined(18) .EQV. .true. ) THEN
    IF ( nint(vals(18)) == 1 ) THEN 
      global%postPlotPatchFlag = .true.
    ELSE 
      global%postPlotPatchFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined

  IF ( defined(19) .EQV. .true. ) THEN 
    IF ( nint(vals(19)) == 1 ) THEN 
      global%postLag2EulFlag = .true.
    ELSE 
      global%postLag2EulFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined
  
  IF ( defined(20) .EQV. .true. ) THEN 
    IF ( nint(vals(20)) == 1 ) THEN 
      global%postGradFlag = .true.
    ELSE 
      global%postGradFlag = .false.
    END IF ! NINT(vals)
  END IF ! defined
#endif

! finalize

  CALL deregisterfunction(global)

END SUBROUTINE readpostsection

!******************************************************************************
!
! RCS Revision history:
!
! $Log: ReadPostSection.F90,v $
! Revision 1.15  2008/12/06 08:44:09  mtcampbe
! Updated license.
!
! Revision 1.14  2008/11/19 22:17:23  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.13  2008/10/23 18:20:55  mtcampbe
! Crazy number of changes to track and fix initialization and
! restart bugs.  Many improperly formed logical expressions
! were fixed, and bug in allocation for data associated with
! the BC_INFLOWVELTEMP boundary condition squashed in
! RFLO_ReadBcInflowVelSection.F90.
!
! Revision 1.12  2006/04/07 15:19:15  haselbac
! Removed tabs
!
! Revision 1.11  2006/01/06 22:04:37  haselbac
! Added GRADFLAG
!
! Revision 1.10  2005/12/10 23:27:33  haselbac
! Removed pick variables
!
! Revision 1.9  2005/12/10 16:53:36  haselbac
! Added PEULFLAG
!
! Revision 1.8  2005/10/28 19:16:05  haselbac
! Added PLTPATFLAG
!
! Revision 1.7  2005/10/05 20:01:06  haselbac
! Modified for ENSIGHT
!
! Revision 1.6  2005/08/10 00:29:36  haselbac
! Added reading of COREFLAG
!
! Revision 1.5  2005/08/09 00:53:01  haselbac
! Added reading of WRIMERGE and ERRFLAG
!
! Revision 1.4  2005/07/25 12:19:25  haselbac
! Added vorticity flag, removed NINT
!
! Revision 1.3  2005/07/05 19:25:12  haselbac
! Added SCHTYPE and SCHEXP variables
!
! Revision 1.2  2005/05/01 14:17:48  haselbac
! Added capability of visualizing discontinuities
!
! Revision 1.1  2004/12/01 16:50:39  haselbac
! Initial revision after changing case
!
! Revision 1.9  2004/10/27 18:04:15  haselbac
! Changed flag name for extraction, must be no longer than 10 chars
!
! Revision 1.8  2004/10/26 15:15:56  haselbac
! Added setting of postExtractFlag
!
! Revision 1.7  2004/07/24 03:43:57  wasistho
! add rocflo options in readPostSection
!
! Revision 1.6  2004/07/21 14:54:06  haselbac
! Added postInterpType
!
! Revision 1.5  2003/08/07 15:29:20  haselbac
! Added and changed var names
!
! Revision 1.4  2003/07/22 01:53:06  haselbac
! Added postInterpOrder variable
!
! Revision 1.3  2003/05/16 02:27:43  haselbac
! Removed KIND=RFREAL from NINT statements
!
! Revision 1.2  2003/05/05 18:38:41  haselbac
! Added plotType, changed pltVolFlag to plotVolFlag under global
!
! Revision 1.1  2003/04/29 14:55:48  haselbac
! Initial revision
!
!******************************************************************************