fvwrestp.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	fvwrestp (proc)

Function/Subroutine Documentation

fvwrestp()

subroutine fvwrestp

(

integer

proc

)

Definition at line 32 of file fvwrestp.F.

C-----------------------------------------------
C   M o d u l e s 
C-----------------------------------------------
      USE fvbag_mod
      USE fvmbag_meshcontrol_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER PROC
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER LEN, I, NNS, NNTR, LENP, NPOLY, LENH, NPOLH, TABI(11),
     .        LENP_ANIM, NPOLH_ANIM, LENH_ANIM, NNS_ANIM
C--------------------------------------
C     ECRITURE DES DIMENSIONS
C--------------------------------------
      len=1
        CALL write_i_c(nfvbag,len)
C
      DO i=1,nfvbag
           CALL write_i_c(fvdata(i)%L_TYPE,1)
           CALL write_i_c(fvdata(i)%ID_DT_OPTION,1)
           CALL write_db(fvdata(i)%LAMBDA,1)
           CALL write_db(fvdata(i)%DTOLD,1)
         
           CALL write_db(fvdata(i)%CFL_COEF,1)
           CALL write_db(fvdata(i)%DTMIN,1)
         tabi(1)=fvspmd(i)%NN_L
         tabi(2)=fvspmd(i)%NNA_L
         tabi(3)=fvspmd(i)%NNSA_L
         tabi(4)=fvspmd(i)%NSA
         tabi(5)=fvspmd(i)%NNSA
         tabi(6)=fvspmd(i)%NELSA
         tabi(7)=fvspmd(i)%PMAIN
         tabi(8)=fvspmd(i)%NNI_L
         len=8
           CALL write_i_c(tabi,len)
           
         len=2*(fvspmd(i)%NN_L+fvspmd(i)%NNI_L)
         IF (len>0) THEN
              CALL write_i_c(fvspmd(i)%IBUF_L,len)
              DEALLOCATE(fvspmd(i)%IBUF_L)
         ENDIF
         len=2*fvspmd(i)%NNA_L
         IF (len>0) THEN
              CALL write_i_c(fvspmd(i)%IBUFA_L,len)
              DEALLOCATE(fvspmd(i)%IBUFA_L)
         ENDIF
         len=2*fvspmd(i)%NNSA_L
         IF (len>0) THEN
              CALL write_i_c(fvspmd(i)%IBUFSA_L,len)
              DEALLOCATE(fvspmd(i)%IBUFSA_L)
         ENDIF
           len = 1
           CALL write_i_c(kmesh(fvid(i)), len)
         IF (proc/=fvspmd(i)%PMAIN) cycle
C
         len=8*fvspmd(i)%NSA
         IF (len>0) THEN
              CALL write_i_c(fvspmd(i)%IXSA,len)
              DEALLOCATE(fvspmd(i)%IXSA)
         ENDIF
         len=3*fvspmd(i)%NELSA
         IF (len>0) THEN
              CALL write_i_c(fvspmd(i)%ELEMSA,len)
              DEALLOCATE(fvspmd(i)%ELEMSA)
         ENDIF
C
         nns=fvdata(i)%NNS
         nntr=fvdata(i)%NNTR
         lenp=fvdata(i)%LENP
         npoly=fvdata(i)%NPOLY
         lenh=fvdata(i)%LENH
         npolh=fvdata(i)%NPOLH
         npolh_anim=fvdata(i)%NPOLH_ANIM
         IF (npolh_anim>0) THEN
            lenp_anim=fvdata(i)%IFVTADR_ANIM(npoly+1)
            lenh_anim=fvdata(i)%IFVPADR_ANIM(npolh_anim+1)
            nns_anim=fvdata(i)%NNS_ANIM
         ELSE
            lenp_anim=0
            lenh_anim=0
            nns_anim=0
         ENDIF
C
         tabi(1)=nns
         tabi(2)=nntr
         tabi(3)=lenp
         tabi(4)=npoly
         tabi(5)=lenh
         tabi(6)=npolh     
         tabi(7)=lenp_anim     
         tabi(8)=lenh_anim 
         tabi(9)=npolh_anim 
         tabi(10)=nns_anim
         tabi(11)=fvdata(i)%ID
         len=11
           CALL write_i_c(tabi,len)
       
C--------------------------------------
C     ECRITURE DES ENTIERS
C--------------------------------------
         len=3*nns
           CALL write_i_c(fvdata(i)%IFVNOD,len)
         len=6*nntr
           CALL write_i_c(fvdata(i)%IFVTRI,len)
           CALL write_i_c(fvdata(i)%IFVPOLY,lenp)
           CALL write_i_c(fvdata(i)%IFVTADR,npoly+1)
           CALL write_i_c(fvdata(i)%IFVPOLH,lenh)
           CALL write_i_c(fvdata(i)%IFVPADR,npolh+1)
           CALL write_i_c(fvdata(i)%IDPOLH,npolh)
           CALL write_i_c(fvdata(i)%IBPOLH,npolh)
C
         IF (npolh_anim>0) THEN
              CALL write_i_c(fvdata(i)%IFVPOLY_ANIM,lenp_anim)
              CALL write_i_c(fvdata(i)%IFVTADR_ANIM,npoly+1)
              CALL write_i_c(fvdata(i)%IFVPOLH_ANIM,lenh_anim)
              CALL write_i_c(fvdata(i)%IFVPADR_ANIM,npolh_anim+1)
            len=6*nntr
              CALL write_i_c(fvdata(i)%IFVTRI_ANIM,len)
              CALL write_i_c(fvdata(i)%REDIR_ANIM,nns_anim)
         ENDIF
C--------------------------------------
C     ECRITURE DES REELS
C--------------------------------------
           len = 1
           CALL write_db(fvdata(i)%PDISP_OLD,len)
           CALL write_db(fvdata(i)%PDISP,len)
         len=2*nns
           CALL write_db(fvdata(i)%RFVNOD,len)
           CALL write_db(fvdata(i)%MPOLH,npolh)
         len=3*npolh
           CALL write_db(fvdata(i)%QPOLH,len)
           CALL write_db(fvdata(i)%EPOLH,npolh)
           CALL write_db(fvdata(i)%PPOLH,npolh)
           CALL write_db(fvdata(i)%RPOLH,npolh)
           CALL write_db(fvdata(i)%GPOLH,npolh)
           CALL write_db(fvdata(i)%TPOLH,npolh)
           CALL write_db(fvdata(i)%CPAPOLH,npolh)
           CALL write_db(fvdata(i)%CPBPOLH,npolh)
           CALL write_db(fvdata(i)%CPCPOLH,npolh)
           CALL write_db(fvdata(i)%CPDPOLH,npolh)
           CALL write_db(fvdata(i)%CPEPOLH,npolh)
           CALL write_db(fvdata(i)%CPFPOLH,npolh)
           CALL write_db(fvdata(i)%RMWPOLH,npolh)
           CALL write_db(fvdata(i)%VPOLH_INI,npolh)
           CALL write_db(fvdata(i)%DLH,1)
           CALL write_db(fvdata(i)%DTPOLH,npolh)
C
         IF (npolh_anim>0) THEN
            len=3*nns_anim
              CALL write_db(fvdata(i)%NOD_ANIM,len)
         ENDIF
C
      ENDDO
      
      IF (ALLOCATED(fvspmd)) DEALLOCATE(fvspmd)
C
      RETURN