POST_PrintPostInput.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: print on screen post input for checking purposes.
!
! Description: none.
!
! Input: regions = user input.
!
! Output: to standard output.
!
! Notes: none.
!
!******************************************************************************
!
! $Id: POST_PrintPostInput.F90,v 1.3 2008/12/06 08:44:49 mtcampbe Exp $
!
! Copyright: (c) 2001 by the University of Illinois
!
!******************************************************************************

SUBROUTINE printpostinput( region )

  USE moddatatypes
  USE moddatastruct, ONLY : t_region
  USE modglobal, ONLY     : t_global
  USE moderror
  USE modparameters
  IMPLICIT NONE

! ... parameters
  TYPE(t_region) :: region

! ... loop variables

! ... local variables
  TYPE(t_global), POINTER :: global
  INTEGER :: ireg, ilev, l, h

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

  global => region%global

  CALL registerfunction( global,'PrintPostInput',&
  'POST_PrintPostInput.F90' )

! obtain parameters -----------------------------------------------------------

  ireg = region%iRegionGlobal
  ilev = region%currLevel

! start screen output ---------------------------------------------------------

  IF (ireg == 1) THEN

    WRITE(stdout,1000) solver_name
    WRITE(stdout,1005) solver_name//' Actual rocflo-post input selected:'
    WRITE(stdout,1030) solver_name//' '
    WRITE(stdout,1015) solver_name//'   Grid level            ',global%startLevel

    IF (global%flowType == flow_steady) THEN
      WRITE(stdout,1030) solver_name//'   Flow type              =  steady'
    ELSE
      WRITE(stdout,1030) solver_name//'   Flow type              =  unsteady'
    ENDIF

    IF (global%postPlotType == plot_grid_only) THEN
      WRITE(stdout,1030) solver_name//'   Plot type              =  grid only'
    ELSE
      WRITE(stdout,1030) solver_name//'   Plot type              =  grid+solution'
    ENDIF

    IF (global%flowType == flow_steady) THEN
      WRITE(stdout,1015) solver_name//'   At iteration          ',global%postIter
    ELSE
      WRITE(stdout,1020) solver_name//'   At time               ',global%postTime
    ENDIF

    IF (global%postOutFmt == plot_fmt_generic) THEN
      WRITE(stdout,1030) solver_name//'   Output plot format     =  generic'
    ELSEIF (global%postOutFmt == plot_fmt_tecplot) THEN
      WRITE(stdout,1030) solver_name//'   Output plot format     =  Tecplot binary'
    ELSEIF (global%postOutFmt == plot_fmt_tecascii) THEN
      WRITE(stdout,1030) solver_name//'   Output plot format     =  Tecplot ASCII'
    ENDIF

    WRITE(stdout,1030) solver_name// &
      '   Gas properties         =  see Ref., Visc. and Material Section in .inp'

    IF ((global%postStatsFlag .EQV. .false.) .AND. &
        (global%postTurbFlag  .EQV. .false.) .AND. &
        (global%postPlagFlag  .EQV. .false.) .AND. &
        (global%postRadiFlag  .EQV. .false.) .AND. &
        (global%postSpecFlag  .EQV. .false.)) THEN
      WRITE(stdout,1005) solver_name//'   Additional modules postprocessed: none'
    ELSE
      WRITE(stdout,1005) solver_name//'   Additional modules postprocessed:'
      IF (global%postStatsFlag) &
        WRITE(stdout,1030) solver_name//'     Statistics solution'
      IF (global%postTurbFlag) &
        WRITE(stdout,1030) solver_name//'     Turbulence solution'
      IF (global%postPlagFlag) &
        WRITE(stdout,1030) solver_name//'     Particles solution'
      IF (global%postRadiFlag) &
        WRITE(stdout,1030) solver_name//'     Radiation solution'
      IF (global%postSpecFlag) &
        WRITE(stdout,1030) solver_name//'     Species solution'
    ENDIF ! module flag
  ENDIF   ! iReg=1

! grid and solution ----------------------------------------------------------

  IF (global%verbLevel < verbose_high) goto 888

  WRITE(stdout,1025) solver_name,ireg

! dimensions

  WRITE(stdout,1005) solver_name//'     Dimensions:'
  WRITE(stdout,1015) solver_name//'       icells      ',region%levels(ilev)%grid%ipc
  WRITE(stdout,1015) solver_name//'       jcells      ',region%levels(ilev)%grid%jpc
  WRITE(stdout,1015) solver_name//'       kcells      ',region%levels(ilev)%grid%kpc
  WRITE(stdout,1015) solver_name//'       dummy cells ',region%nDumCells

! minmax solution

  IF (global%postPlotType == plot_grid_flow) THEN

    l = lbound( region%levels(ilev)%mixt%cv,2 )
    h = ubound( region%levels(ilev)%mixt%cv,2 )

    WRITE(stdout,1005) solver_name//'     Minmax solution, dummy layers included:'
    WRITE(stdout,1022) solver_name//'       density     ', &
                 minval( region%levels(ilev)%mixt%cv(cv_mixt_dens,l:h) ), &
                 maxval( region%levels(ilev)%mixt%cv(cv_mixt_dens,l:h) )
    WRITE(stdout,1022) solver_name//'       x-velocity  ', &
                 minval( region%levels(ilev)%mixt%dv(dv_mixt_uvel,l:h) ), &
                 maxval( region%levels(ilev)%mixt%dv(dv_mixt_uvel,l:h) )
    WRITE(stdout,1022) solver_name//'       y-velocity  ', &
                 minval( region%levels(ilev)%mixt%dv(dv_mixt_vvel,l:h) ), &
                 maxval( region%levels(ilev)%mixt%dv(dv_mixt_vvel,l:h) )
    WRITE(stdout,1022) solver_name//'       z-velocity  ', &
                 minval( region%levels(ilev)%mixt%dv(dv_mixt_wvel,l:h) ), &
                 maxval( region%levels(ilev)%mixt%dv(dv_mixt_wvel,l:h) )
    WRITE(stdout,1022) solver_name//'       pressure    ', &
                 minval( region%levels(ilev)%mixt%dv(dv_mixt_pres,l:h) ), &
                 maxval( region%levels(ilev)%mixt%dv(dv_mixt_pres,l:h) )
  ENDIF ! pltType

! finish ----------------------------------------------------------------------

888  CONTINUE

  IF (global%verblevel >= verbose_high .OR. ireg == 1) &
    WRITE(stdout,1035) solver_name

  CALL deregisterfunction( global )

1000 FORMAT(/,a,1x,80('-'))
1005 FORMAT(/,a)
1010 FORMAT(a,' = ',i2)
1015 FORMAT(a,' = ',i8)
1020 FORMAT(a,' = ',e12.5)
1022 FORMAT(a,' = ',2e12.5)
1025 FORMAT(/,a,'   Region ',i6,':')
1030 FORMAT(a)
1035 FORMAT(/,a,1x,80('-'))

END SUBROUTINE printpostinput

!******************************************************************************
!
! RCS Revision history:
!
! $Log: POST_PrintPostInput.F90,v $
! Revision 1.3  2008/12/06 08:44:49  mtcampbe
! Updated license.
!
! Revision 1.2  2008/11/19 22:17:59  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.1  2004/12/03 02:03:16  wasistho
! added prefix
!
! Revision 1.1  2004/12/03 00:32:01  wasistho
! lower to upper case
!
! Revision 1.2  2004/08/27 04:01:29  wasistho
! improved (cosmetics) screen output
!
! Revision 1.1  2004/07/28 01:51:28  wasistho
! initial import printPostInput
!
!
!******************************************************************************