cvsp_add_section.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\cvsp_add_section.f
00002 !
00049                      SUBROUTINE CVSP_ADD_SECTION
00050 !                    ***************************
00051 !
00052      &(J)
00053 !
00054 !***********************************************************************
00055 ! SISYPHE   V6P3                                   14/03/2013
00056 !***********************************************************************
00057 !
00058 !
00059 !
00060 !
00061 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00062 !| J              |<--| INDEX OF A POINT IN MESH
00063 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00064 !
00065       USE DECLARATIONS_SISYPHE
00066 !
00067       IMPLICIT NONE
00068 !
00069 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00070 !
00071       INTEGER, INTENT(IN) :: J
00072 !
00073 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00074 !
00075       INTEGER  I
00076 !
00077 !-----------------------------------------------------------------------
00078 !
00079       PRO_MAX(J)  = PRO_MAX(J) + 2
00080 !
00081       DO I=1,NSICLA
00082         PRO_D(J,PRO_MAX(J),I) = PRO_D(J,PRO_MAX(J)-2,I)
00083         PRO_F(J,PRO_MAX(J),I) = 1.D0 / NSICLA
00084         PRO_D(J,PRO_MAX(J)-1,I) = PRO_D(J,PRO_MAX(J)-2,I)
00085         PRO_F(J,PRO_MAX(J)-1,I) = 1.D0 / NSICLA
00086       ENDDO
00087 !
00088 !-----------------------------------------------------------------------
00089 !
00090       RETURN
00091       END SUBROUTINE CVSP_ADD_SECTION

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