decvrt.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\decvrt.f
00002 !
00068                      SUBROUTINE DECVRT
00069 !                    *****************
00070 !
00071      &(TETA,SL,ZF,MESH)
00072 !
00073 !***********************************************************************
00074 ! BIEF   V6P1                                   21/08/2010
00075 !***********************************************************************
00076 !
00077 !
00078 !
00079 !
00080 !
00081 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00082 !| MESH           |-->| MESH STRUCTURE
00083 !| SL             |-->| FREE SURFACE
00084 !| TETA           |<--| STATES IF AN ELEMENT IS DRY OR NOT
00085 !| ZF             |-->| BOTTOM ELEVATION
00086 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00087 !
00088       USE BIEF, EX_DECVRT => DECVRT
00089 !
00090       IMPLICIT NONE
00091       INTEGER LNG,LU
00092       COMMON/INFO/LNG,LU
00093 !
00094 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00095 !
00096       TYPE(BIEF_OBJ) , INTENT(INOUT) :: TETA
00097       TYPE(BIEF_OBJ) , INTENT(IN)    :: SL,ZF
00098       TYPE(BIEF_MESH), INTENT(IN)    :: MESH
00099 !
00100 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00101 !
00102       INTEGER NELEM,NELMAX,IELMS,IELMZ
00103 !
00104 !-----------------------------------------------------------------------
00105 !
00106       IELMS=SL%ELM
00107       IELMZ=ZF%ELM
00108 !
00109 !-----------------------------------------------------------------------
00110 !
00111 !  DEPLOYS THE MESH STRUCTURE
00112 !
00113       NELEM = MESH%NELEM
00114       NELMAX= MESH%NELMAX
00115 !
00116 !-----------------------------------------------------------------------
00117 !
00118       IF(IELMS.EQ.11.AND.IELMZ.EQ.11) THEN
00119 !
00120         CALL DECV11(TETA%R,SL%R,ZF%R,MESH%IKLE%I,NELEM,NELMAX)
00121 !
00122       ELSEIF((IELMS.EQ.21.AND.IELMZ.EQ.21).OR.
00123      &       (IELMS.EQ.12.AND.IELMZ.EQ.12)      ) THEN
00124 !
00125         CALL DECV21(TETA%R,SL%R,ZF%R,MESH%IKLE%I,NELEM,NELMAX)
00126 !
00127       ELSE
00128 !
00129         IF(LNG.EQ.1) WRITE(LU,10) IELMS,IELMZ
00130         IF(LNG.EQ.2) WRITE(LU,11) IELMS,IELMZ
00131 10      FORMAT(1X,'DECVRT : DISCRETISATION NON PREVUE :'    ,I6,' ',I6)
00132 11      FORMAT(1X,'DECVRT : DISCRETIZATION NOT IMPLEMENTED:',I6,' ',I6)
00133         CALL PLANTE(1)
00134         STOP
00135 !
00136       ENDIF
00137 !
00138 !-----------------------------------------------------------------------
00139 !
00140       RETURN
00141       END

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