create_dataset.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\create_dataset.f
00002 !
00066                      SUBROUTINE CREATE_DATASET
00067 !                    *************************
00068 !
00069      &(FFORMAT,NRES,TITLE,NVAR,NOMVAR,OUTVAR)
00070 !
00071 !***********************************************************************
00072 ! BIEF   V6P2                                   21/08/2010
00073 !***********************************************************************
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !| FFORMAT        |-->| FILE FORMAT
00082 !| NOMVAR         |-->| NAME OF VARIABLES
00083 !| NRES           |-->| LOGICAL UNIT OF FILE
00084 !| NVAR           |-->| TOTAL NUMBER OF VARIABLES
00085 !| OUTVAR         |-->| VARIABLES TO BE PUT IN THE FILE
00086 !| TITLE          |-->| TITLE OF FILE
00087 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00088 !
00089       USE M_MED
00090 !
00091       IMPLICIT NONE
00092       INTEGER LNG,LU
00093       COMMON/INFO/LNG,LU
00094 !
00095 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00096 !
00097       CHARACTER(LEN=8)                 , INTENT(IN) :: FFORMAT
00098       INTEGER                          , INTENT(IN) :: NRES
00099       CHARACTER(LEN=72)                , INTENT(IN) :: TITLE
00100       INTEGER                          , INTENT(IN) :: NVAR
00101       CHARACTER(LEN=32),DIMENSION(NVAR), INTENT(IN) :: NOMVAR
00102       LOGICAL          ,DIMENSION(NVAR), INTENT(IN) :: OUTVAR
00103 !
00104 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00105 !
00106 !
00107 !***********************************************************************
00108 !     IF(DEBUG) CALL PROC_BEGIN('CREATE_DATASET')
00109 !***********************************************************************
00110 !
00111       SELECT CASE (FFORMAT)
00112         CASE ('SERAFIN ','SERAFIND')
00113             CALL CREATE_DATASET_SERAFIN(NRES,TITLE,NVAR,NOMVAR,OUTVAR,
00114      &                                  FFORMAT)
00115 !
00116         CASE ('MED     ')
00117             CALL CREATE_DATASET_MED(NRES,TITLE,NVAR,NOMVAR,OUTVAR)
00118 !
00119         CASE DEFAULT
00120           IF(LNG.EQ.1) THEN
00121             WRITE(LU,*) 'CREATE_DATASET : MAUVAIS FORMAT : ',FFORMAT
00122           ENDIF
00123           IF(LNG.EQ.2) THEN
00124             WRITE(LU,*) 'CREATE_DATASET: BAD FILE FORMAT : ',FFORMAT
00125           ENDIF
00126           CALL PLANTE(1)
00127           STOP
00128       END SELECT
00129 !
00130 !***********************************************************************
00131 !     IF(DEBUG) CALL PROC_END('CREATE_DATASET')
00132 !***********************************************************************
00133 !
00134       RETURN
00135       END

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