bief_suite.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\bief_suite.f
00002 !
00064                      SUBROUTINE BIEF_SUITE
00065 !                    *********************
00066 !
00067      &(VARSOR,CLAND,NUMDEB,
00068      & NPRE,STD,HIST,NHIST,NPOIN,AT,TEXTPR,VARCLA,NVARCL,
00069      & TROUVE,ALIRE,LISTIN,FIN,MAXVAR,NPLAN,DT,NDT)
00070 !
00071 !***********************************************************************
00072 ! BIEF   V6P1                                   21/08/2010
00073 !***********************************************************************
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !| ALIRE          |-->| VARIABLES TO BE READ (FOR OTHERS RECORD SKIPPED)
00082 !|                |   | CLANDESTINE VARIABLES ARE SYSTEMATICALLY READ
00083 !| AT             |-->| TIME
00084 !| CLAND          |<--| BLOCK OF CLANDESTINE VARIABLES
00085 !| DT             |<--| TIME STEP
00086 !| FIN            |-->| LOGICAL, SEE NUMDEB
00087 !| HIST           |-->| CONTAINS TIME AND POSSIBLY OTHER VALUES
00088 !| LISTIN         |-->| IF YES, INFORMATIONS PRINTED ON LISTING
00089 !| MAXVAR         |-->| DIMENSION OF ARRAY RELATED TO VARIABLES: ALIRE,..
00090 !| NDT            |-->| OPTIONAL, IF PRESENT THE NUMBER OF TIME STEPS
00091 !|                |   | WILL BE RETURNED
00092 !| NHIST          |-->| NUMBER OF VALUES IN HIST HIST.
00093 !| NPLAN          |-->| NUMBER OF PLANES
00094 !| NPOIN          |-->| NUMBER OF POINTS IN THE MESH
00095 !| NPRE           |-->| LOGICAL UNIT OF FILE
00096 !| NUMDEB         |<->| FIN = .TRUE. LAST RECORD TAKEN
00097 !|                |   | FIN = .FALSE. : RECORD NUMBED TAKEN
00098 !| NVARCL         |-->| NUMBER OF CLANDESTINE VARIABLES
00099 !| STD            |-->| FILE BINARY : STD, IBM OU I3E
00100 !| TEXTPR         |-->| NAMES AND UNITS OF VARIABLES.
00101 !| TROUVE         |<--| GIVES (TROUVE(K)=1) VARIABLES PRESENT IN THE FILE
00102 !| VARCLA         |-->| BLOCK FOR CLANDESTINE VARIABLES
00103 !| VARSOR         |<--| BLOCK OF NORMAL VARIABLES
00104 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00105 !
00106       USE BIEF, EX_BIEF_SUITE => BIEF_SUITE
00107       USE M_MED
00108 !
00109       IMPLICIT NONE
00110       INTEGER LNG,LU
00111       COMMON/INFO/LNG,LU
00112 !
00113 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00114 !
00115       TYPE(BIEF_OBJ), INTENT(INOUT)   :: VARSOR,CLAND
00116       INTEGER, INTENT(IN), OPTIONAL   :: NPLAN
00117       INTEGER, INTENT(IN)             :: NHIST,NVARCL,MAXVAR
00118       INTEGER, INTENT(IN)             :: NUMDEB,NPRE,NPOIN
00119       INTEGER, INTENT(INOUT)          :: TROUVE(MAXVAR)
00120       INTEGER, INTENT(IN)             :: ALIRE(MAXVAR)
00121       CHARACTER(LEN=*), INTENT(IN)    :: STD
00122       CHARACTER(LEN=32), INTENT(IN)   :: TEXTPR(MAXVAR),VARCLA(NVARCL)
00123       DOUBLE PRECISION, INTENT(INOUT) :: HIST(*),AT
00124       LOGICAL, INTENT(IN)             :: FIN,LISTIN
00125       DOUBLE PRECISION, INTENT(OUT), OPTIONAL :: DT
00126       INTEGER, INTENT(OUT), OPTIONAL :: NDT
00127 !
00128 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00129 !
00130       INTEGER NNPLAN, NNDT
00131       DOUBLE PRECISION DDT
00132 !
00133 !-----------------------------------------------------------------------
00134 !
00135       IF(PRESENT(NPLAN)) THEN
00136         NNPLAN=NPLAN
00137       ELSE
00138         NNPLAN=1
00139       ENDIF
00140 !
00141       SELECT CASE(STD)
00142 !
00143         CASE ('SERAFIN ','SERAFIND')
00144 !
00145           IF(PRESENT(DT)) THEN
00146             CALL SUITE_SERAFIN(VARSOR,CLAND,NUMDEB,NPRE,STD,HIST,
00147      &                         NHIST,NPOIN,AT,TEXTPR,VARCLA,NVARCL,
00148      &                         TROUVE,ALIRE,LISTIN,FIN,MAXVAR,NNPLAN,
00149      &                         DT)
00150           ELSE
00151             CALL SUITE_SERAFIN(VARSOR,CLAND,NUMDEB,NPRE,STD,HIST,
00152      &                         NHIST,NPOIN,AT,TEXTPR,VARCLA,NVARCL,
00153      &                         TROUVE,ALIRE,LISTIN,FIN,MAXVAR,NNPLAN)
00154           ENDIF
00155 !
00156         CASE ('MED     ')
00157 !
00158           CALL SUITE_MED(VARSOR,CLAND,NUMDEB,NPRE,STD,HIST,NHIST,
00159      &                   NPOIN,AT,TEXTPR,VARCLA,NVARCL,TROUVE,ALIRE,
00160      &                   LISTIN,FIN,MAXVAR,NNPLAN,DDT,NNDT)
00161           IF(PRESENT(DT)) DT=DDT
00162           IF(PRESENT(NDT)) NDT=NNDT
00163 !
00164         CASE DEFAULT
00165 !
00166           IF(LNG.EQ.1) THEN
00167             WRITE(LU,*) 'BIEF_SUITE : MAUVAIS FORMAT : ',STD
00168           ENDIF
00169           IF(LNG.EQ.2) THEN
00170             WRITE(LU,*) 'BIEF_SUITE: BAD FILE FORMAT : ',STD
00171           ENDIF
00172           CALL PLANTE(1)
00173           STOP
00174 !
00175       END SELECT
00176 !
00177 !-----------------------------------------------------------------------
00178 !
00179       RETURN
00180       END

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