init_compo.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\init_compo.f
00002 !
00078                      SUBROUTINE INIT_COMPO
00079 !                    *********************
00080 !
00081      &(NCOUCHES)
00082 !
00083 !***********************************************************************
00084 ! SISYPHE   V6P1                                   21/07/2011
00085 !***********************************************************************
00086 !
00087 !
00088 !
00089 !
00090 !
00091 !
00092 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00093 !| NCOUCHES       |-->| NUMBER OF LAYER FOR EACH POINT
00094 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00095 !
00096       USE BIEF
00097       USE DECLARATIONS_TELEMAC
00098       USE DECLARATIONS_SISYPHE
00099 !
00100       IMPLICIT NONE
00101       INTEGER LNG,LU
00102       COMMON/INFO/LNG,LU
00103 !
00104 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00105 !
00106 !                                       NPOIN
00107       INTEGER, INTENT (INOUT)::NCOUCHES(*)
00108 !
00109 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00110 !
00111       INTEGER I , J
00112 !
00113 !-----------------------------------------------------------------------
00114 !
00115       DO J=1,NPOIN
00116 !
00117 !       BY DEFAULT : UNIFORM BED COMPOSITION
00118 !
00119         NCOUCHES(J) = 1
00120         DO I = 1, NSICLA
00121           AVAIL(J,1,I) = AVA0(I)
00122         ENDDO
00123 !
00124 !  TO BE FILLED BY THE USER
00125 !      NCOUCHES(J) = 10
00126 !      ES(J,1) = 1.D0
00127 !      ES(J,2) = 1.D0
00128 !      ES(J,3) = 1.D0
00129 !      ES(J,4) = 1.D0
00130 !      ES(J,5) = 1.D0
00131 !      ES(J,6) = 1.D0
00132 !      ES(J,7) = 1.D0
00133 !      ES(J,8) = 1.D0
00134 !      ES(J,9) = 1.D0
00135 !        DO I = 1, NSICLA
00136 !          DO K = 1, NCOUCHES(J)
00137 !          AVAIL(J,K,I) = AVA0(I)
00138 !          ENDDO
00139 !        ENDDO
00140 !
00141       ENDDO
00142 !
00143 !-----------------------------------------------------------------------
00144 !
00145       RETURN
00146       END

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