RFLU_PostProcessRegions_ENS.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: Wrapper for postprocessing results without merging the regions 
!   specific to EnSight.
!
! Description: None.
!
! Input: 
!   levels      Level data
!
! Output: None.
!
! Notes: 
!   1. This routine is specific to EnSight because the requirement that data be
!      written out for a certain number of servers means sharing code with 
!      routine for Tecplot becomes cumbersome.
!
! ******************************************************************************
!
! $Id: RFLU_PostProcessRegions_ENS.F90,v 1.5 2008/12/06 08:45:06 mtcampbe Exp $
!
! Copyright: (c) 2005 by the University of Illinois
!
! ******************************************************************************

SUBROUTINE rflu_postprocessregions_ens(levels)

  USE moddatatypes
  USE modglobal, ONLY: t_global 
  USE moderror
  USE moddatastruct, ONLY: t_level,t_region
  USE modbndpatch, ONLY: t_patch
  USE modparameters

  USE rflu_moddimensions
  USE rflu_modensight
  USE rflu_modplottingvars

  USE modinterfaces, ONLY: rflu_closepostinfo, &
                           rflu_creategrid, & 
                           rflu_destroygrid, & 
                           rflu_openpostinfo, &
                           rflu_postprocessregionscommon1, & 
                           rflu_postprocessregionscommon2, &
                           rflu_readpostinfo
    
  IMPLICIT NONE

! ******************************************************************************
! Declarations and definitions
! ******************************************************************************

! ==============================================================================
! Arguments
! ==============================================================================

  TYPE(t_level), POINTER :: levels(:)
  
! ==============================================================================
! Local variables
! ==============================================================================

  LOGICAL :: postinfofileexists
  CHARACTER(CHRLEN) :: casename,rcsidentstring
  INTEGER :: errorflag,ireg,iserver,iservertarget
  TYPE(t_region), POINTER :: pregion
  TYPE(t_global), POINTER :: global

! ******************************************************************************
! Start
! ******************************************************************************

  rcsidentstring = '$RCSfile: RFLU_PostProcessRegions_ENS.F90,v $ $Revision: 1.5 $'

  global => levels(1)%regions(1)%global

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

! ******************************************************************************  
! Open post info file
! ******************************************************************************

  CALL rflu_openpostinfo(global,file_status_old,postinfofileexists) 

! ******************************************************************************  
! Loop over servers
! ******************************************************************************

  DO iserver = 1,global%postNServers
    pregion => levels(1)%regions(1)

    CALL rflu_countplottingvars(pregion)
    CALL rflu_createplottingvarmaps(pregion)
    CALL rflu_buildplottingvarmaps(pregion)
    CALL rflu_printplottingvarsinfo(pregion)

    CALL rflu_ens_builddatainfo(pregion,iserver) 

    CALL rflu_destroyplottingvarmaps(pregion)

    CALL rflu_ens_writefilecase(global,iserver)
    CALL rflu_ens_initpartnumber(global)

    CALL rflu_ens_openfilegeometry(global,iserver)
    CALL rflu_ens_openfileflowwrapper(global,iserver)

! ==============================================================================  
!   Open post info
! ==============================================================================  

    CALL rflu_openpostinfo(global,file_status_old,postinfofileexists) 

! ==============================================================================  
!   Loop over regions
! ==============================================================================  

    DO ireg = 1,global%nRegionsLocal
      IF ( global%nRegions == 1 ) THEN ! single region
        pregion => levels(1)%regions(0)
      ELSE 
        pregion => levels(1)%regions(ireg)
      END IF ! global%nRegions

      IF ( postinfofileexists .EQV. .true. ) THEN 
        CALL rflu_readpostinfo(pregion,infofile_readmode_flag)    
      END IF ! postInfoFileExists  

! ------------------------------------------------------------------------------
!     Check for activation status
! ------------------------------------------------------------------------------

      IF ( pregion%postActiveFlag .EQV. .true. ) THEN 
        iservertarget = rflu_ens_mapregion2server(ireg,global%nRegions, & 
                                                  global%postNServers)
            
! ----- If target server not equal to this server, write empty parts -----------            
            
        IF ( iservertarget /= iserver ) THEN 
          CALL rflu_readdimensionswrapper(pregion)
          CALL rflu_creategrid(pregion)
        
          CALL rflu_ens_storepartnumber(pregion%global)   
          CALL rflu_ens_writegridwrapper(pregion,.true.)    
          CALL rflu_ens_writeflowwrapper(pregion,.true.)
                   
          CALL rflu_destroygrid(pregion)                       

! ----- If target server equal to this server, write parts ---------------------

        ELSE
          CALL rflu_postprocessregionscommon1(pregion,postinfofileexists)
           
          CALL rflu_ens_storepartnumber(pregion%global)   
          CALL rflu_ens_writegridwrapper(pregion)    
          CALL rflu_ens_writeflowwrapper(pregion)                       

          CALL rflu_postprocessregionscommon2(pregion)
        END IF ! ! iServerTarget
      END IF ! pRegion%postActiveFlag                       
    END DO ! iReg

! ==============================================================================  
!   Close files
! ==============================================================================  
   
    IF ( postinfofileexists .EQV. .true. ) THEN 
      CALL rflu_closepostinfo(global) 
    END IF ! postInfoFileExists    

    CALL rflu_ens_closefilegeometry(global)
    CALL rflu_ens_closefileflowwrapper(global)     
    CALL rflu_ens_destroydatainfo(global)   
  END DO ! iServer
       
! ******************************************************************************
! End
! ******************************************************************************

  CALL deregisterfunction(global)

END SUBROUTINE rflu_postprocessregions_ens

! ******************************************************************************
!
! RCS Revision history:
!
! $Log: RFLU_PostProcessRegions_ENS.F90,v $
! Revision 1.5  2008/12/06 08:45:06  mtcampbe
! Updated license.
!
! Revision 1.4  2008/11/19 22:18:17  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.3  2007/03/19 21:46:05  haselbac
! Bug fix: Enabled use of plotting variables, done as part of changes to pv
!
! Revision 1.2  2006/01/24 21:21:15  mparmar
! Now pass pRegion instead of global into RFLU_ENS_BuildDataInfo
!
! Revision 1.1  2005/10/05 20:23:34  haselbac
! Initial revision
!
! ******************************************************************************