cvsp_db.f

Go to the documentation of this file.

!                       ************************
                        LOGICAL FUNCTION cvsp_db
!                       ************************
!
     &(j_global, timestamp)
!
!***********************************************************************
! SISYPHE   V7P2                                   16/05/2017
!***********************************************************************
!
!brief    Checks if a certain Point should be debugged and printed for this timestep
!+        Routine for USER DEFINED SUPERVISION OF POINTS
!+
!
!history  UWE MERKEL, R. KOPMANN (BAW)
!+        2016, 2017
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| J_GLOBAL              |<--| POINT ID
!| TIMESTAMP             |<--| TIMESTEP ID
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!     USE DECLARATIONS_SISYPHE, ONLY: MESH, CVSM_OUT, LT, ENTET
!
      IMPLICIT NONE
!
      INTEGER, INTENT(IN)    :: J_GLOBAL
      INTEGER, INTENT(IN)    :: TIMESTAMP
!
      cvsp_db = .false.

      CALL user_cvsp_db(cvsp_db,j_global, timestamp)
!
      END FUNCTION cvsp_db