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-2007 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 MEMRA2 C ***************** C ------------------------------------------------------------- & ( IDBIA0 , IDBRA0 , & NDIM , NCELET , NCEL , NFAC , NFABOR , NFML , NPRFML , & NNOD , LNDFAC , LNDFBR , NCELBR , & NVAR , NSCAL , NPHAS , & NIDEVE , NRDEVE , NITUSE , NRTUSE , & IIFACL , IIRESP , & IDTR , IVISCF , IVISCB , IDAM , IXAM , IDAG , IXAG , & IDRTP , ISMBR , IROVSD , C & ICORUA , ICORUB , IFLXMA , IFLXMB , ITEK , C & IW1 , IW2 , IW3 , IW4 , IW5 , IW6 , IW7 , & IW8 , IW9 , IW10 , & IFINIA , IFINRA ) C ------------------------------------------------------------- C*********************************************************************** C FONCTION C -------- c@foncb CFONC CFONC SOUS-PROGRAMME DU MODULE RAYONNEMENT : CFONC -------------------------------------- CFONC CFONC GESTION MEMOIRE POUR LE CALCUL DES TERMES SOURCES RADIATIFS CFONC ET DU FLUX INCIDENT RADIATIF PARIETAL (RAYDOM) 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 ! IIFACL ! E ! <- ! "POINTEUR" SUR IFACLG ! CARGU ! IIRESP ! E ! <- ! "POINTEUR" SUR IRESPR ! CARGU ! IDTR ! E ! <- ! "POINTEUR" SUR DTR ! CARGU ! IVISCF, B ! E ! <- ! "POINTEUR" SUR VISCF, VISCB ! CARGU ! IDAM, IXAM ! E ! <- ! "POINTEUR" SUR DAM, XAM ! CARGU ! IDAG, IXAG ! E ! <- ! "POINTEUR" SUR DAG, XAG ! CARGU ! IDRTP ! E ! <- ! "POINTEUR" SUR DRTP ! CARGU ! ISMBR ! E ! <- ! "POINTEUR" SUR SMBR ! CARGU ! IROVSD ! E ! <- ! "POINTEUR" SUR ROVSDT ! CARGU ! ICORUA,ICORUB! E ! <- ! "POINTEUR" SUR COFRUA ET COFRUB ! CARGU ! IFLXMA,IFLXMB! E ! <- ! "POINTEUR" SUR FLUMAS ET FLUMAB ! CARGU ! ITEK ! E ! <- ! "POINTEUR" SUR TEMPK ! CARGU ! IW1,2,...,11 ! E ! <- ! "POINTEUR" SUR W1 A W10 ! CARGU ! IFINIA ! E ! <- ! POINTEUR DE LA PREMIERE CAS LIBRE DAN! CARGU ! ! ! ! DANS IA EN SORTIE ! CARGU ! IFINRA ! E ! <- ! POINTEUR DE LA PREMIERE CAS LIBRE DAN! CARGU ! ! ! ! DANS IA EN SORTIE ! 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 "entsor.h" INCLUDE "numvar.h" INCLUDE "optcal.h" INCLUDE "radiat.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 IIFACL , IIRESP INTEGER IDTR INTEGER IVISCF , IVISCB , IDAM , IXAM , IDAG , IXAG INTEGER IDRTP , ISMBR , IROVSD INTEGER IW1 , IW2 , IW3 , IW4 , IW5 , IW6 INTEGER IW7 , IW8 , IW9 , IW10 INTEGER IFINIA , IFINRA C INTEGER ICORUA , ICORUB INTEGER IFLXMA , IFLXMB INTEGER ITEK C C VARIABLES LOCALES C INTEGER IDEBIA, IDEBRA, IMLGRD, ISCAL C C*********************************************************************** C======================================================================= C---> INITIALISATION C======================================================================= IDEBIA = IDBIA0 IDEBRA = IDBRA0 C IMLGRD = 0 DO ISCAL = 1, NSCAL IF(IMGR(ISCA(ISCAL)).EQ.1) THEN IMLGRD = 1 ENDIF ENDDO C C======================================================================= C---> PLACE MEMOIRE RESERVEE AVEC DEFINITION DE IFINIA IFINRA C======================================================================= C IIFACL = IDEBIA IIRESP = IIFACL + NFAC*2*IMLGRD IFINIA = IIRESP + NCELET*IMLGRD C IDTR = IDEBRA IVISCF = IDTR + NCELET IVISCB = IVISCF + NFAC IDAM = IVISCB + NFABOR IXAM = IDAM + NCELET IDAG = IXAM + NFAC*2 IXAG = IDAG + NCELET*IMLGRD IDRTP = IXAG + NFAC*2*IMLGRD ISMBR = IDRTP + NCELET IROVSD = ISMBR + NCELET IW1 = IROVSD + NCELET IW2 = IW1 + NCELET IW3 = IW2 + NCELET IW4 = IW3 + NCELET IW5 = IW4 + NCELET IW6 = IW5 + NCELET IW7 = IW6 + NCELET IW8 = IW7 + NCELET IW9 = IW8 + NCELET IW10 = IW9 + NCELET ITEK = IW10 + NCELET IFINRA = ITEK + NCELET * NPHASC C ICORUA = IFINRA ICORUB = ICORUA + NFABOR IFLXMA = ICORUB + NFABOR IFLXMB = IFLXMA + NFAC IFINRA = IFLXMB + NFABOR C C======================================================================= C---> VERIFICATION C======================================================================= C CALL IASIZE('MEMRA2',IFINIA) C =========== C CALL RASIZE('MEMRA2',IFINRA) C =========== C RETURN C END c@z