create_dataset_serafin.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\create_dataset_serafin.f
00002 !
00066                      SUBROUTINE CREATE_DATASET_SERAFIN
00067 !                    *********************************
00068 !
00069      &(NFIC,TITRE,NVAR,NOMVAR,OUTVAR,FFORMAT)
00070 !
00071 !***********************************************************************
00072 ! BIEF   V6P2                                   21/08/2010
00073 !***********************************************************************
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !| FFORMAT        |-->| 8 CHARACTER STRING WITH FORMAT
00082 !| NFIC           |-->| LOGICAL UNIT OF THE FILE
00083 !| NOMVAR         |-->| NAMES AND UNITS OF VARIABLES
00084 !| NVAR           |-->| NUMBER OF VARIABLES
00085 !| OUTVAR         |-->| LOGICAL ARRAY SAYING IF A VARIABLE HAS TO BE
00086 !|                |   | PRINTED IN THE FILE.
00087 !| TITRE          |-->| TITLE TO BE PRINTED IN THE FILE
00088 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00089 !
00090       IMPLICIT NONE
00091 !
00092       INTEGER LNG,LU
00093       COMMON/INFO/LNG,LU
00094 !
00095 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00096 !
00097       INTEGER                          , INTENT(IN) :: NFIC
00098       CHARACTER(LEN=72)                , INTENT(IN) :: TITRE
00099       CHARACTER(LEN=8)                 , INTENT(IN) :: FFORMAT
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       INTEGER           :: NSOR
00107       CHARACTER(LEN=80) :: TITSEL
00108       DOUBLE PRECISION XBID(2)
00109       INTEGER IB(10),ISTAT,I,IBID(1)
00110       CHARACTER*2 CBID
00111 !
00112 !***********************************************************************
00113 !     IF(DEBUG) CALL PROC_BEGIN('CREATE_DATASET_SERAFIN')
00114 !***********************************************************************
00115 !
00116       REWIND NFIC
00117 !
00118 !   LEC/ECR 1   : NAME OF THE GEOMETRY FILE
00119 !
00120       TITSEL = TITRE // FFORMAT
00121       CALL ECRI2(XBID,IBID,TITSEL,80,'CH',NFIC,'STD',ISTAT)
00122 !
00123 !   LEC/ECR 2   : NUMBER OF DISCRETISATION FUNCTIONS 1 AND 2
00124 !   NOTA : THIS FUNCTIONALITY OF SERAFIN FILES IS NOT USED. ALL THE
00125 !          VARIABLES HAVE THE SAME (NODAL) DISCRETISATION.
00126 !
00127       IB(1)=0
00128       IB(2)=0
00129       DO I=1,NVAR
00130         IF(OUTVAR(I)) IB(1) = IB(1) + 1
00131       ENDDO
00132       CALL ECRI2(XBID,IB,CBID,2,'I ',NFIC,'STD',ISTAT)
00133       NSOR =  IB(1)  +  IB(2)
00134 !
00135 !   LEC/ECR 3 : NAMES AND UNITS OF THE VARIABLES
00136 !
00137       IF(NVAR.GE.1) THEN
00138         DO I=1,NVAR
00139           IF(OUTVAR(I)) THEN
00140             CALL ECRI2(XBID,IBID,NOMVAR(I)(1:32),32,'CH',
00141      &                 NFIC,'STD',ISTAT)
00142           ENDIF
00143         ENDDO
00144       ENDIF
00145 !
00146 !***********************************************************************
00147 !     IF(DEBUG) CALL PROC_END('CREATE_DATASET_SERAFIN')
00148 !***********************************************************************
00149 !
00150       RETURN
00151       END

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