condim_susp.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\condim_susp.f
00002 !
00062                      SUBROUTINE CONDIM_SUSP
00063 !                    **********************
00064 !
00065      &(CS,CS0,NSICLA,X,Y,AT,NPOIN)
00066 !
00067 !***********************************************************************
00068 ! SISYPHE   V6P1                                   21/07/2011
00069 !***********************************************************************
00070 !
00071 !
00072 !
00073 !
00074 !
00075 !
00076 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00077 !| AT             |-->| TIME
00078 !| CS             |<->| SUSPENDED SEDIMENT CONCENTRATION
00079 !| CS0            |-->| INITIAL CONCENTRATIONS (CONSTANT VALUES)/CLASS
00080 !| NPOIN          |-->| NUMBER OF POINTS
00081 !| NSICLA         |-->| NUMBER OF SIZE CLASSES FOR BED MATERIALS
00082 !| X              |-->| X-COORDINATE
00083 !| Y              |-->| Y-COORDINATE
00084 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00085 !
00086       USE BIEF
00087 !
00088       IMPLICIT NONE
00089       INTEGER LNG,LU
00090       COMMON/INFO/LNG,LU
00091 !
00092 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00093 !
00094       INTEGER, INTENT(IN)           :: NPOIN,NSICLA
00095       DOUBLE PRECISION,INTENT(IN)   :: AT,CS0(NSICLA)
00096       DOUBLE PRECISION,INTENT(IN)   :: X(NPOIN),Y(NPOIN)
00097 !
00098       TYPE(BIEF_OBJ), INTENT(INOUT) :: CS
00099 !
00100 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00101 !
00102       INTEGER I
00103 !
00104 !-----------------------------------------------------------------------
00105 !
00106 !  --------------------------------------------------------------
00107 !  INITIALISES THE ARRAYS THAT HAVE NOT BEEN READ IN THE RESULTS FILE:
00108 !  --------------------------------------------------------------
00109 !
00110       IF(NSICLA.GT.0) THEN
00111         DO I=1,NSICLA
00112           CALL OS('X=C     ',X=CS%ADR(I)%P,C=CS0(I))
00113         ENDDO
00114       ENDIF
00115 !
00116 !-----------------------------------------------------------------------
00117 !
00118       RETURN
00119       END

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