masque_artemis.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\masque_artemis.f
00002 !
00083                      SUBROUTINE MASQUE_ARTEMIS
00084 !                    *************************
00085 !
00086 !
00087 !***********************************************************************
00088 ! ARTEMIS   V6P1                                   21/08/2010
00089 !***********************************************************************
00090 !
00091 !
00092 !
00093 !
00094 !
00095 !
00096 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00097 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00098 !
00099       USE BIEF
00100       USE DECLARATIONS_TELEMAC
00101       USE DECLARATIONS_ARTEMIS
00102 !
00103       IMPLICIT NONE
00104       INTEGER LNG,LU
00105       COMMON/INFO/LNG,LU
00106 !
00107 !
00108       INTEGER IK
00109 !
00110 !-----------------------------------------------------------------------
00111 !
00112 !
00113 !     INITIALISES (SETS TO 0) ALL MASKING VECTORS
00114 !
00115       CALL OS( 'X=C     ' , MASK1 , SBID , SBID , 0.D0 )
00116       CALL OS( 'X=C     ' , MASK2 , SBID , SBID , 0.D0 )
00117       CALL OS( 'X=C     ' , MASK3 , SBID , SBID , 0.D0 )
00118       CALL OS( 'X=C     ' , MASK4 , SBID , SBID , 0.D0 )
00119       CALL OS( 'X=C     ' , MASK5 , SBID , SBID , 0.D0 )
00120 !
00121       DO IK=1,NPTFR
00122 !
00123         IF (LIHBOR%I(IK).EQ.KLOG) THEN
00124           MASK3%R(IK) = 1.D0
00125         ELSEIF (LIHBOR%I(MESH%KP1BOR%I(IK)).NE.KLOG) THEN
00126           IF (LIHBOR%I(IK).EQ.KINC) THEN
00127             MASK1%R(IK) = 1.D0
00128           ENDIF
00129           IF (LIHBOR%I(IK).EQ.KSORT) THEN
00130             MASK2%R(IK) = 1.D0
00131           ENDIF
00132           IF (LIHBOR%I(IK).EQ.KENT) THEN
00133             MASK4%R(IK) = 1.D0
00134           ENDIF
00135           IF (LIHBOR%I(IK).EQ.KPOT) THEN
00136             MASK5%R(IK) = 1.D0
00137           ENDIF
00138         ELSE
00139           MASK3%R(IK) = 1.D0
00140         ENDIF
00141       ENDDO ! IK
00142 !
00143       RETURN
00144       END

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