db.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\db.f
00002 !
00027                          LOGICAL FUNCTION DB
00028 !                        *******************
00029 !
00030      &(J_GLOBAL, TIMESTAMP)
00031 !
00032 !***********************************************************************
00033 ! SISYPHE   V6P2                                   21/06/2011
00034 !***********************************************************************
00035 !
00036 !BRIEF    CHECKS IF A CERTAIN POINT SHOULD BE DEBUGGED FOR THIS TIMESTEP
00037 !+        ROUTINE FOR USER DEFINED SUPERVISION OF POINTS
00038 !+
00039 !
00040 !HISTORY  UWE MERKEL
00041 !+        2011
00042 !+
00043 !+
00044 !
00045 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00046 !| J_GLOBAL              |<--| POINT ID
00047 !| T                     |<--| TIMESTEP ID
00048 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00049 !
00050       USE DECLARATIONS_SISYPHE, ONLY: MESH, CVSM_OUT, LT, ENTET
00051 !
00052       IMPLICIT NONE
00053 !
00054       INTEGER, INTENT(IN)    :: J_GLOBAL
00055       INTEGER, INTENT(IN)    :: TIMESTAMP
00056 !
00057       INTEGER J
00058 
00059       J = J_GLOBAL
00060       DB = .FALSE.
00061 
00062       !IF (J.EQ.1) DB = .TRUE.
00063 
00064       !USE THIS TO LIMIT OUTPUT TO CAS_FILE DEFINED TIMESTEPS
00065       IF(CVSM_OUT) THEN
00066         !IF ( (J.EQ.502) )DB = .TRUE.
00067         !IF ( (J.EQ.1156) )DB = .TRUE.
00068         !IF ( (J.EQ.4899) )DB = .TRUE.
00069         !IF ( (J.EQ.4561) )DB = .TRUE.
00070         !IF ( (J.EQ.4813) )DB = .TRUE.
00071         !IF ( (J.EQ.5198) )DB = .TRUE.
00072         !IF ( (J.EQ.4851) )DB = .TRUE.
00073         !IF ( (J.EQ.4273) )DB = .TRUE.
00074         !IF ( (J.EQ.4956) )DB = .TRUE.
00075         !IF ( (J.EQ.4862) )DB = .TRUE.
00076         !IF ( (J.EQ.3949) )DB = .TRUE.
00077         !IF ( (J.EQ.513) )DB = .TRUE.
00078       ENDIF
00079 
00080       !USE THIS TO SET AN OUTPUT FOR A CERTAIN TIMESTEP, INDEPENDENT OF POINT NUMBER AND CAS FILE
00081       !IF ( (J.EQ.-1).AND.(T.GE.-1)) DB = .TRUE.
00082       !IF ( (J.EQ.1553)) DB = .TRUE.
00083 
00084       !USE THIS TO SET AN OUTPUT FOR A CERTAIN NODE, WITH TIMESTEP RULES
00085       !IF ( (J.EQ.948).AND.(AT.GE.0.D0)) DB = .TRUE.
00086 
00087 
00088       !USE THIS TO SET AN OUTPUT FOR A CERTAIN NODE, AT A SPECIFIC TIMESTEP
00089       !IF ( (J.EQ.27).AND.(LT.GE.TIMESTAMP)) DB = .TRUE.
00090       !IF ( (J.EQ.1974).AND.(LT.GE.TIMESTAMP)) DB = .TRUE.
00091       !IF ( (J.EQ.1129).AND.(LT.GE.TIMESTAMP)) DB = .TRUE.
00092       !IF ( (J.EQ.2032).AND.(LT.GE.TIMESTAMP)) DB = .TRUE.
00093       !IF ( (J.EQ.186).AND.(LT.GE.TIMESTAMP)) DB = .TRUE.
00094 
00095       END FUNCTION DB

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0