c@a c@versb C----------------------------------------------------------------------- C CVERS Code_Saturne version 1.3 C ------------------------ C C This file is part of the Code_Saturne Kernel, element of the C Code_Saturne CFD tool. C C Copyright (C) 1998-2008 EDF S.A., France C C contact: saturne-support@edf.fr C C The Code_Saturne Kernel is free software; you can redistribute it C and/or modify it under the terms of the GNU General Public License C as published by the Free Software Foundation; either version 2 of C the License, or (at your option) any later version. C C The Code_Saturne Kernel is distributed in the hope that it will be C useful, but WITHOUT ANY WARRANTY; without even the implied warranty C of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the C GNU General Public License for more details. C C You should have received a copy of the GNU General Public License C along with the Code_Saturne Kernel; if not, write to the C Free Software Foundation, Inc., C 51 Franklin St, Fifth Floor, C Boston, MA 02110-1301 USA C C----------------------------------------------------------------------- c@verse SUBROUTINE USHIST C ***************** C ------------------------------------------------------------- & ( IDBIA0 , IDBRA0 , & NDIM , NCELET , NCEL , NFAC , NFABOR , NFML , NPRFML , & NNOD , LNDFAC , LNDFBR , NCELBR , & NVAR , NSCAL , NPHAS , & NIDEVE , NRDEVE , NITUSE , NRTUSE , & IFACEL , IFABOR , IFMFBR , IFMCEL , IPRFML , & IPNFAC , NODFAC , IPNFBR , NODFBR , & IDEVEL , ITUSER , IA , & XYZCEN , SURFAC , SURFBO , CDGFAC , CDGFBO , XYZNOD , VOLUME , & DT , RTPA , RTP , PROPCE , PROPFA , PROPFB , & COEFA , COEFB , & RDEVEL , RTUSER , RA ) C ------------------------------------------------------------- C*********************************************************************** C FONCTION : C -------- c@foncb CFONC CFONC SORTIE D'HISTORIQUES NON STD LIVREE A L'UTILISATEUR CFONC c@fonce C----------------------------------------------------------------------- C ARGUMENTS c@argub CARGU .______________.____._____.______________________________________. CARGU ! NOM !TYPE!MODE ! ROLE ! CARGU !______________!____!_____!______________________________________! CARGU ! IDBIA0 ! E ! -> ! NUMERO DE LA 1ERE CASE LIBRE DANS IA ! CARGU ! IDBRA0 ! E ! -> ! NUMERO DE LA 1ERE CASE LIBRE DANS RA ! CARGU ! NDIM ! E ! -> ! DIMENSION DE L'ESPACE ! CARGU ! NCELET ! E ! -> ! NOMBRE D'ELEMENTS HALO COMPRIS ! CARGU ! NCEL ! E ! -> ! NOMBRE D'ELEMENTS ACTIFS ! CARGU ! NFAC ! E ! -> ! NOMBRE DE FACES INTERNES ! CARGU ! NFABOR ! E ! -> ! NOMBRE DE FACES DE BORD ! CARGU ! NFML ! E ! -> ! NOMBRE DE FAMILLES D ENTITES ! CARGU ! NPRFML ! E ! -> ! NOMBRE DE PROPRIETESE DES FAMILLES ! CARGU ! NNOD ! E ! -> ! NOMBRE DE SOMMETS ! CARGU ! LNDFAC ! E ! -> ! LONGUEUR DU TABLEAU NODFAC (OPTIONNEL! CARGU ! LNDFBR ! E ! -> ! LONGUEUR DU TABLEAU NODFBR (OPTIONNEL! CARGU ! NCELBR ! E ! -> ! NOMBRE D'ELEMENTS AYANT AU MOINS UNE ! CARGU ! ! ! ! FACE DE BORD ! CARGU ! NVAR ! E ! -> ! NOMBRE TOTAL DE VARIABLES ! CARGU ! NSCAL ! E ! -> ! NOMBRE TOTAL DE SCALAIRES ! CARGU ! NPHAS ! E ! -> ! NOMBRE DE PHASES ! CARGU ! NIDEVE NRDEVE! E ! -> ! LONGUEUR DE IDEVEL RDEVEL ! CARGU ! NITUSE NRTUSE! E ! -> ! LONGUEUR DE ITUSER RTUSER ! CARGU ! IFACEL ! TE ! -> ! ELEMENTS VOISINS D'UNE FACE INTERNE ! CARGU ! (2, NFAC) ! ! ! ! CARGU ! IFABOR ! TE ! -> ! ELEMENT VOISIN D'UNE FACE DE BORD ! CARGU ! (NFABOR) ! ! ! ! CARGU ! IFMFBR ! TE ! -> ! NUMERO DE FAMILLE D'UNE FACE DE BORD ! CARGU ! (NFABOR) ! ! ! ! CARGU ! IFMCEL ! TE ! -> ! NUMERO DE FAMILLE D'UNE CELLULE ! CARGU ! (NCELET) ! ! ! ! CARGU ! IPRFML ! TE ! -> ! PROPRIETES D'UNE FAMILLE ! CARGU ! NFML ,NPRFML! ! ! ! CARGU ! IPNFAC ! TE ! -> ! POSITION DU PREMIER NOEUD DE CHAQUE ! CARGU ! (LNDFAC) ! ! ! FACE INTERNE DANS NODFAC (OPTIONNEL)! CARGU ! NODFAC ! TE ! -> ! CONNECTIVITE FACES INTERNES/NOEUDS ! CARGU ! (NFAC+1) ! ! ! (OPTIONNEL) ! CARGU ! IPNFBR ! TE ! -> ! POSITION DU PREMIER NOEUD DE CHAQUE ! CARGU ! (LNDFBR) ! ! ! FACE DE BORD DANS NODFBR (OPTIONNEL)! CARGU ! NODFBR ! TE ! -> ! CONNECTIVITE FACES DE BORD/NOEUDS ! CARGU ! (NFABOR+1) ! ! ! (OPTIONNEL) ! CARGU ! IDEVEL(NIDEVE! TE ! <-> ! TAB ENTIER COMPLEMENTAIRE DEVELOPEMT ! CARGU ! ITUSER(NITUSE! TE ! <-> ! TAB ENTIER COMPLEMENTAIRE UTILISATEUR! CARGU ! IA(*) ! TR ! - ! MACRO TABLEAU ENTIER ! CARGU ! XYZCEN ! TR ! -> ! POINT ASSOCIES AUX VOLUMES DE CONTROL! CARGU ! (NDIM,NCELET ! ! ! ! CARGU ! SURFAC ! TR ! -> ! VECTEUR SURFACE DES FACES INTERNES ! CARGU ! (NDIM,NFAC) ! ! ! ! CARGU ! SURFBO ! TR ! -> ! VECTEUR SURFACE DES FACES DE BORD ! CARGU ! (NDIM,NFABOR)! ! ! ! CARGU ! CDGFAC ! TR ! -> ! CENTRE DE GRAVITE DES FACES INTERNES ! CARGU ! (NDIM,NFAC) ! ! ! ! CARGU ! CDGFBO ! TR ! -> ! CENTRE DE GRAVITE DES FACES DE BORD ! CARGU ! (NDIM,NFABOR)! ! ! ! CARGU ! XYZNOD ! TR ! -> ! COORDONNES DES NOEUDS (OPTIONNEL) ! CARGU ! (NDIM,NNOD) ! ! ! ! CARGU ! VOLUME ! TR ! -> ! VOLUME D'UN DES NCELET ELEMENTS ! CARGU ! (NCELET ! ! ! ! CARGU ! DT(NCELET) ! TR ! -> ! PAS DE TEMPS ! CARGU ! RTP, RTPA ! TR ! -> ! VARIABLES DE CALCUL AU CENTRE DES ! CARGU ! (NCELET,*) ! ! ! CELLULES (INSTANT COURANT OU PREC)! CARGU ! PROPCE ! TR ! -> ! PROPRIETES PHYSIQUES AU CENTRE DES ! CARGU ! (NCELET,*) ! ! ! CELLULES ! CARGU ! PROPFA ! TR ! -> ! PROPRIETES PHYSIQUES AU CENTRE DES ! CARGU ! (NFAC,*) ! ! ! FACES INTERNES ! CARGU ! PROPFB ! TR ! -> ! PROPRIETES PHYSIQUES AU CENTRE DES ! CARGU ! (NFABOR,*) ! ! ! FACES DE BORD ! CARGU ! COEFA, COEFB ! TR ! -> ! CONDITIONS AUX LIMITES AUX ! CARGU ! (NFABOR,*) ! ! ! FACES DE BORD ! CARGU ! RDEVEL(NRDEVE! TR ! <-> ! TAB REEL COMPLEMENTAIRE DEVELOPEMT ! CARGU ! RTUSER(NRTUSE! TR ! <-> ! TAB REEL COMPLEMENTAIRE UTILISATEUR ! CARGU ! RA(*) ! TR ! - ! MACRO TABLEAU REEL ! CARGU !______________!____!_____!______________________________________! c@argue C c@commb CCOMM COMMONS CCOMM .______________.____._____.______________________________________. CCOMM ! NOM !TYPE!MODE ! ROLE ! CCOMM !______________!____!_____!______________________________________! CCOMM !______________!____!_____!______________________________________! c@comme C C TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU) C L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL) C MODE : -> DONNEE, <- RESULTAT, <-> DONNEE MODIFIEE, C - TABLEAU DE TRAVAIL C*********************************************************************** C IMPLICIT NONE C C*********************************************************************** C DONNEES EN COMMON C*********************************************************************** C INCLUDE "paramx.h" INCLUDE "pointe.h" INCLUDE "numvar.h" INCLUDE "optcal.h" INCLUDE "cstphy.h" INCLUDE "entsor.h" INCLUDE "parall.h" INCLUDE "period.h" C C*********************************************************************** C C ARGUMENTS C INTEGER IDBIA0 , IDBRA0 INTEGER NDIM , NCELET , NCEL , NFAC , NFABOR INTEGER NFML , NPRFML INTEGER NNOD , LNDFAC , LNDFBR , NCELBR INTEGER NVAR , NSCAL , NPHAS INTEGER NIDEVE , NRDEVE , NITUSE , NRTUSE C INTEGER IFACEL(2,NFAC) , IFABOR(NFABOR) INTEGER IFMFBR(NFABOR) , IFMCEL(NCELET) INTEGER IPRFML(NFML,NPRFML) INTEGER IPNFAC(NFAC+1), NODFAC(LNDFAC) INTEGER IPNFBR(NFABOR+1), NODFBR(LNDFBR) INTEGER IDEVEL(NIDEVE), ITUSER(NITUSE), IA(*) C DOUBLE PRECISION XYZCEN(NDIM,NCELET) DOUBLE PRECISION SURFAC(NDIM,NFAC), SURFBO(NDIM,NFABOR) DOUBLE PRECISION CDGFAC(NDIM,NFAC), CDGFBO(NDIM,NFABOR) DOUBLE PRECISION XYZNOD(NDIM,NNOD), VOLUME(NCELET) DOUBLE PRECISION DT(NCELET), RTP(NCELET,*), RTPA(NCELET,*) DOUBLE PRECISION PROPCE(NCELET,*) DOUBLE PRECISION PROPFA(NFAC,*), PROPFB(NFABOR,*) DOUBLE PRECISION COEFA(NFABOR,*), COEFB(NFABOR,*) DOUBLE PRECISION RDEVEL(NRDEVE), RTUSER(NRTUSE), RA(*) C C VARIABLES LOCALES C INTEGER IDEBIA, IDEBRA INTEGER II, KK, NODE, NDRANG, NVARPP, NUMCEL, LNG DOUBLE PRECISION XX, YY, ZZ, XYZTMP(3,100) DOUBLE PRECISION variat(100),norme(100),residu(100) SAVE XYZTMP C C Numero des noeuds ou on sort des historiques INTEGER NCAPMX PARAMETER (NCAPMX=100) INTEGER ICAPT(NCAPMX) SAVE ICAPT INTEGER IRCAPT(NCAPMX) SAVE IRCAPT C C Nombre de noeuds ou on sort des historiques INTEGER NCAPTS SAVE NCAPTS C C Numero du passage actuel dans ce ss pgm INTEGER IPASS DATA IPASS /0/ SAVE IPASS C C Tableau de valeurs temporaires DOUBLE PRECISION VACAPT(NCAPMX) INTEGER nfreq INTEGER IPASSH C C*********************************************************************** C C C C======================================================================= C 1. INITIALISATION C======================================================================= C C ---> Gestion memoire C IDEBIA = IDBIA0 IDEBRA = IDBRA0 C C ---> Numero du passage actuel dans ce ss pgm C IPASS = IPASS + 1 C C======================================================================= C 2. OUVERTURE DES FICHIERS C EXEMPLE D'UNE VARIABLE PAR FICHIER C======================================================================= C C ---> Au premier passage, on ouvre les fichiers et on ecrit une entete C IF (IPASS.EQ.1) THEN C C --> Test du nombre max de fichiers C c IF (NCAPTS.GT.NCAPMX) THEN c WRITE(NFECRA,*)' USHIST : NCAPMX = ',II,' AU MINIMUM ' c CALL CSEXIT (1) c ENDIF C DO II = 1, NCAPTS C XX = 0.05D0 YY =-0.05D0 ZZ = 0.05D0+(II-1)*0.1D0 C-----------ATTENTION : INVERSION DES COORDONNEES CALL FINDPT C =========== & ( NCELET , NCEL , XYZCEN , & YY , XX , ZZ , NODE , NDRANG) c & XX , YY , ZZ , NODE , NDRANG) C----------- ICAPT(II) = NODE IRCAPT(II) = NDRANG NUMCEL=ICAPT(II) c-----------Impression de la position du capteur c-----------En parallele, c est celui qui le contient qui travaille c-----------(en effet, le numero de cellule n est valable que dans c-----------le sous-domaine considere) IF (IRANGP.LT.0 .OR. IRANGP.EQ.IRCAPT(II)) THEN XYZTMP(1,II) = XYZCEN(1,NUMCEL) XYZTMP(2,II) = XYZCEN(2,NUMCEL) XYZTMP(3,II) = XYZCEN(3,NUMCEL) print *,'HEP: Processus ',IRANGP,', Capteur ', & II,' : ',NUMCEL,XYZTMP(1,II),XYZTMP(2,II), & XYZTMP(3,II) END IF C-----------En parallele, le processeur qui a trouve la cellule C-----------envoie son numero global et ses coordonnees aux autres. IF (IRANGP.GE.0) THEN CALL PARCEL(ICAPT(II), IRCAPT(II), NUMCEL) C--------------=========== LNG = 3 CALL PARBCR(IRCAPT(II), LNG , XYZTMP(1,II)) C--------------=========== ENDIF ENDDO ENDIF cc================================================== cc---Toutes les ??? iterations, ecriture des profils cc================================================== IPASSH=MAX((NTMABS-NTPABS)/1,1) IPASSH=NTMABS if (MOD(ipass,IPASSH).eq.0.or.NTCABS.eq.NTMABS) then c if (MOD(ipass,1).EQ.0) then C--------> Nombre de variables = nombre de fichiers C-------- C-------- C--------> Test du nombre max de fichiers C-------- IF (NVAR.GT.NUSHMX) THEN WRITE(NFECRA,*) & ' USHIST : PAS DROIT A PLUS DE ', & NUSHMX-1,' FICHIERS HISTORIQUES' CALL CSEXIT(1) ENDIF C-------- C-------- c--------Attention, les fichiers de profils s'appellent ??.nnnnnn.dat, c--------où ?? sont les deux premiers caractères du nom de la variable c-------- => s'assurer dans usini1 que les noms de variables nomvar c--------sont bien tous differents si on ne garde que les deux premieres c--------lettres (par ex., VitesseX et VitesseY donnent tous les deux Vi) c-------- => P_, U_, V_, W_, k_, Eps, u2, v2, w2, uv, uw, vw, Alpha conviennent do II=1,NVAR write(FICUSH(II),1001) NOMVAR(IPPRTP(II))(1:2),IPASS end do 1001 format(A,'.',I6.6,'.dat') c--------Seul le processus 0 ouvre et ecrit dans les fichiers IF (IRANGP.LE.0) THEN DO II = 1, NVAR OPEN(FILE=FICUSH(II),UNIT=IMPUSH(II)) ENDDO END IF c--------Ecriture de la coordonnee y du capteur et de la valeur de la variable c--------En parallele, il faut que le processus qui contient le capteur c--------envoie la valeur au processus 0, ce qui est fait par PARHIS. do II = 1, NVAR do kk = 1, NCAPTS if (IRANGP.LT.0) then VACAPT(kk)=RTP(ICAPT(kk),II) else CALL PARHIS c-----------------=========== & (ICAPT(KK), IRCAPT(KK), RTP(1,II), VACAPT(KK)) end if if (IRANGP.LE.0) then WRITE (IMPUSH(II),1010) XYZTMP(3,kk),VACAPT(kk) end if end do end do C======================================================================= C 4. FERMETURE C======================================================================= C IF (IRANGP.LE.0) THEN DO II = 1, NVAR CLOSE(IMPUSH(II)) ENDDO ENDIF end if c------------------------------------------------------------------------------------------- c-----CALCUL DES RESIDUS (EN STATIONNAIRE. EN INSTATIONNAIRE, CE SONT DES TAUX DE VARIATION) c------------------------------------------------------------------------------------------- c-----On calcule les residus c-----normes (norme L2) sur chaque sous domaine c-----pour l'iteration courante, puis on somme sur les domaines c------------------------------------- c-----Frequence d'ecriture des résidus c------------------------------------- nfreq=1 if (irangp.le.0) then open(FILE='Residu.dat',UNIT=impush(NUSHMX)) do II=1, ipass-1 if (MOD(II+1,nfreq).eq.0) then read(impush(NUSHMX),*) end if end do end if if (MOD(ipass+1,nfreq).eq.0) then do kk=1,NVAR variat(kk)= 0.d0 norme(kk) = 0.d0 do II = 1, ncel c--------------Rq : En divisant le taux de variation par dt, c--------------le residu est multiplié par une constante, c--------------mais cela donne un meilleur indicateur d'erreur variat(kk)=variat(kk) & +VOLUME(II)*(rtp(II,kk)-rtpa(II,kk))**2/dt(II)**2 norme(kk)=norme(kk) & +VOLUME(II)*rtp(II,kk)**2 end do end do do kk = 1, NVAR if (irangp.ge.0) then call PARSOM (variat(kk)) c--------------=========== call PARSOM (norme(kk)) c--------------=========== endif if (norme(kk).lt.1.d-30) then residu(kk)=0.d0 elseif (variat(kk).lt.1.d-30) then residu(kk)=0.D0 else residu(kk)=log10(sqrt(variat(kk)/norme(kk))) end if end do if (irangp.le.0) then write(impush(NUSHMX),1009) ntcabs, & (residu(kk),kk=1,NVAR) end if 1009 format(I6,20F8.3) if (irangp.le.0) then CLOSE(IMPUSH(NUSHMX)) end if endif 1010 FORMAT(10E17.9) 1011 format(2I7) C C C======================================================================= C 5. SORTIE C======================================================================= C RETURN END c@z