cvsp_outputfiles.f

Go to the documentation of this file.

!                       ***********************
                        MODULE cvsp_outputfiles
!                       ***********************
!
!***********************************************************************
! SISYPHE   V7P2                                   16/05/2017
!***********************************************************************
!
!brief
!
!history UWE MERKEL, P.A.TASSI (EDF R&D, LNHE)
!+        31/08/2013
!+        V6P3
!
!history UWE MERKEL, R. KOPMANN (BAW)
!+        V6P3 / V7P2
!+        12/03/2016 / 2017
!
!       NOTE: THIS MODULE IS ORGANISED IN 10 PARTS
!
!      01) VECTORS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
!      02) MATRICES (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
!      03) BLOCKS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
!      04) INTEGERS
!      05) LOGICAL VALUES
!      06) REALS
!      07) STRINGS
!      08) SLVCFG STRUCTURES
!      09) MESH STRUCTURE
!      10) ALIASES
!
!
!       ALL BIEF_OBJ AND BIEF_MESH STRUCTURES ARE ALLOCATED
!       IN SUBROUTINE POINT_TELEMAC2D

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!|OUTPUTCOUNTER   |<--|
!|NUMCP           |<--| NUMBER OF CHECK POINTS
!|NUMVARCP2RES    |<--| NUMBER OF CHECK POINT VARIABLES TO BE WRITTEN TO FILE T2D_CP
!|NUMVARUR2RES    |<--| NUMBER OF USER VARIABLES TO BE WRITTEN TO FILE T2D_UR
!|NUMVARUR3D2RES  |<--| NUMBER OF USER VARIABLES TO BE WRITTEN TO FILE T2D_UR3D (3+NSICLA)
!|NUMVAR2DHYD     |<--| 2D-HYDRAULIC TO 3D FILE Z,U,V,W,SCALARU,TAU
!|NEXTCP          |<--| NEXT CP SLOT TO WRITE INTO
!|CP_ONCNT        |<--| DEBUG NUMBER OF THE DEACTIVATED CHECK POINT VARIABLE
!|USERTIME        |<--|
!|USERPRINTCOUNT  |<--|
!|CP              |<--| LOGICAL FOR DEBUG PRINTOUTS
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
        USE bief_def
        USE declarations_sisyphe, ONLY: nsiclm

        IMPLICIT NONE

        INTEGER :: outputcounter             = 0
        INTEGER, PARAMETER :: numcp          = 30
        INTEGER, PARAMETER :: numvarcp2res   = 3
        INTEGER, PARAMETER :: numvarur2res   = 3
        INTEGER, PARAMETER :: numvarur3d2res = 13
        INTEGER, PARAMETER :: numvar2dhyd    = 6
        INTEGER nextcp
        INTEGER cp_oncnt

        DOUBLE PRECISION usertime
        DOUBLE PRECISION userprintcount

        LOGICAL       :: cp = .false.

!
!-----------------------------------------------------------------------
!
!       1) VECTORS
!
!-----------------------------------------------------------------------
!
        TYPE(bief_obj), TARGET :: vsp_fra(nsiclm)
        TYPE(bief_obj), TARGET :: vsp_d, vsp_d50, vsp_error
        TYPE(bief_obj), TARGET :: ur2dhyd(numvar2dhyd)
!
!-----------------------------------------------------------------------
!
!       3) BLOCKS
!
!-----------------------------------------------------------------------
!
!     BLOCK OF VARIABLES FOR OPTIONAL CHECKPOINT OUTPUT
      TYPE(bief_obj), TARGET :: cpbloc
!     BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT
      TYPE(bief_obj), TARGET :: urbloc
!     BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT IN 3D
      TYPE(bief_obj), TARGET :: urbloc3d
!     BLOCK OF VARIABLES FOR OPTIONAL 2D TO 3D OUTPUT
      TYPE(bief_obj), TARGET :: urbloc2dhyd
!
!-----------------------------------------------------------------------
!
!      8)  FILES
!
!-----------------------------------------------------------------------
!
      TYPE(bief_file) :: cp_files(3)   ! FILES FOR OPTIONAL OUTPUT

      CHARACTER(LEN=32) ur3d_files_labels(numvarur3d2res)
      LOGICAL      ur3d_files_outvar(numvarur3d2res)

      CHARACTER(LEN=32) ur2dhyd_files_labels(numvar2dhyd)
      LOGICAL      ur2dhyd_files_outvar(numvar2dhyd)
!
!-----------------------------------------------------------------------
!
!       9) MESH STRUCTURE
!
!-----------------------------------------------------------------------
!
!     MESH FOR 3D USEROUTPUT
      TYPE(bief_mesh) :: usrmsh
      TYPE(bief_mesh) :: usrmsh_2dhyd
      INTEGER usrmsh_nplan               ! NUMBER OF PLANES IN T3D_UR
      INTEGER usrmsh_2dhyd_nplan         ! NUMBER OF PLANES FOR 2DHYD TO 3D FILE
!
      SAVE
!-----------------------------------------------------------------------
!

      END MODULE cvsp_outputfiles