corrsl.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\corrsl.f
00002 !
00065                      SUBROUTINE CORRSL
00066 !                    *****************
00067 !
00068      &(NEWSL,OLDSL,ZF,MESH)
00069 !
00070 !***********************************************************************
00071 ! BIEF   V7P0                                   21/08/2010
00072 !***********************************************************************
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00080 !| MESH           |-->| MESH STRUCTURE
00081 !| NEWSL          |<->| MODIFIED FREE SURFACE, GIVEN PER ELEMENT
00082 !| OLDSL          |-->| ORIGINAL FREE SURFACE
00083 !| ZF             |-->| BATHYMETRY
00084 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00085 !
00086       USE BIEF, EX_CORRSL => CORRSL
00087 !
00088       IMPLICIT NONE
00089       INTEGER LNG,LU
00090       COMMON/INFO/LNG,LU
00091 !
00092 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00093 !
00094       TYPE(BIEF_OBJ) , INTENT(INOUT) :: NEWSL
00095       TYPE(BIEF_OBJ) , INTENT(IN)    :: OLDSL,ZF
00096       TYPE(BIEF_MESH), INTENT(IN)    :: MESH
00097 !
00098 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00099 !
00100       INTEGER NELEM,NELMAX,IELM
00101 !
00102 !-----------------------------------------------------------------------
00103 !
00104       NELEM = MESH%NELEM
00105       NELMAX= MESH%NELMAX
00106 !
00107       IELM=OLDSL%ELM
00108 !
00109 !-----------------------------------------------------------------------
00110 !
00111       IF(IELM.EQ.11) THEN
00112 !
00113         CALL CRSL11(NEWSL%R,OLDSL%R,ZF%R,MESH%IKLE%I,NELEM,NELMAX)
00114 !
00115 !-----------------------------------------------------------------------
00116 !
00117       ELSEIF(IELM.EQ.12) THEN
00118 !
00119         CALL CRSL12(NEWSL%R,OLDSL%R,ZF%R,MESH%IKLE%I,NELEM,NELMAX)
00120 !
00121 !-----------------------------------------------------------------------
00122 !
00123       ELSE
00124 !
00125         IF(LNG.EQ.1) WRITE(LU,10) IELM
00126         IF(LNG.EQ.2) WRITE(LU,11) IELM
00127 10      FORMAT(1X,'CORRSL : DISCRETISATION INCONNUE :',I6)
00128 11      FORMAT(1X,'CORRSL: UNKNOWN DISCRETIZATION :',I6)
00129         CALL PLANTE(1)
00130         STOP
00131 !
00132       ENDIF
00133 !
00134 !-----------------------------------------------------------------------
00135 !
00136       RETURN
00137       END

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