!------------------------------------------------------------------------------! Procedure : correction                  Auteur : E. Radenac!                                         Date   : Fevrier 2004! Fonction                                Modif  :!   Application de la correction cumulee de bilan de flux!! Defauts/Limitations/Divers : !------------------------------------------------------------------------------subroutine correction(zone1, zone2, nfacelim, corcoef, nbc1, nbc2, ncoupl1, &                      ncoupl2, part_cor1, part_cor2, typ_cor1, typ_cor2, &                      fincycle) use OUTPUTuse VARCOMuse DEFZONEuse DEFFIELDuse GEO3Duse TYPHMAKEimplicit none! -- Declaration des entrees --integer                    :: nfacelim            ! nombre de faces limitesreal(krp), dimension(nfacelim) &                           :: corcoef   ! coefficient de correction de fluxinteger                    :: nbc1, nbc2 ! indice des conditions aux limites integer                    :: ncoupl1, ncoupl2 ! numero (identite) du raccordreal(krp)                  :: part_cor1, part_cor2 ! part de la correction a                                                 ! apporter, dans les deux zonesinteger                    :: typ_cor1, typ_cor2 ! type de correctionlogical                    :: fincycle! -- Declaration des sorties --type(st_zone)              :: zone1, zone2! -- Declaration des variables internes --integer                        :: ifield! -- Debut de la procedure --! Supplement de flux pour ech. espaces : calcul de la difference a appliquercall calcdifflux(zone1%coupling(ncoupl1)%zcoupling%etatcons%tabscal, &                  zone2%coupling(ncoupl2)%zcoupling%etatcons%tabscal, &                  nfacelim, zone1%coupling(ncoupl1)%zcoupling%solvercoupling, &                  corcoef, zone2%coupling(ncoupl2)%zcoupling%connface )! Calcul des variables primitives avec correction de fluxif ( (typ_cor1.ne.bocoT) .and. (typ_cor1.ne.repart_reg) .and. &     (typ_cor1.ne.repart_geo) )then  call corr_varprim(zone1%grid%field_loc, &                    zone1%grid%umesh, &                    zone1%defsolver, &                    zone1%coupling(ncoupl1)%zcoupling%etatcons, nbc1, &                    part_cor1, typ_cor1, fincycle)  call corr_varprim(zone2%grid%field_loc, &                    zone2%grid%umesh, &                    zone2%defsolver, &                    zone2%coupling(ncoupl2)%zcoupling%etatcons, nbc2, &                    part_cor2, typ_cor2, fincycle)endifendsubroutine correction!------------------------------------------------------------------------------! Historique des modifications!! fev  2004 : creation de la procedure! avr  2004 : changement de structure (MGRID) : limite a une grille! oct  2004 : field chained list!------------------------------------------------------------------------------