cvsp_init.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\cvsp_init.f
00002 !
00045                      SUBROUTINE CVSP_INIT
00046 !                    ********************
00047 !
00048 !***********************************************************************
00049 ! SISYPHE   V6P3                                   12/03/2013
00050 !***********************************************************************
00051 !
00052 !
00053 !
00054 !
00055 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00056 !| J              |<--| INDEX OF A POINT IN MESH
00057 !| I              |<--| INDEX OF A FRACTION
00058 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00059 !
00060       USE DECLARATIONS_SISYPHE
00061 !
00062       IMPLICIT NONE
00063 !
00064       INTEGER  I,J,K
00065 !
00066 !-----------------------------------------------------------------------
00067 !
00068       ALLOCATE(PRO_D(NPOIN,PRO_MAX_MAX,NSICLA))
00069       ALLOCATE(PRO_F(NPOIN,PRO_MAX_MAX,NSICLA))
00070       ALLOCATE(PRO_MAX(NPOIN))
00071 !
00072 !-----------------------------------------------------------------------
00073 !
00074       DO J=1,NPOIN
00075         PRO_MAX(J) = PRO_MAX_MAX
00076         DO K=1,PRO_MAX(J)
00077           DO I=1,NSICLA
00078             PRO_D(J,K,I) = (ZF%R(J)-ZF%R(J))/PRO_MAX(J)*K
00079             PRO_F(J,K,1) = 1.D0 / NSICLA
00080           ENDDO
00081         ENDDO
00082       ENDDO
00083 !
00084 !-----------------------------------------------------------------------
00085 !
00086       RETURN
00087       END SUBROUTINE CVSP_INIT

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