mean_grain_size.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\mean_grain_size.f
00002 !
00056                      SUBROUTINE MEAN_GRAIN_SIZE
00057 !                    **************************
00058 !
00059 !
00060 !***********************************************************************
00061 ! SISYPHE   V6P1                                   21/07/2011
00062 !***********************************************************************
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00071 !
00072       USE BIEF
00073       USE DECLARATIONS_TELEMAC
00074       USE DECLARATIONS_SISYPHE
00075 !
00076       IMPLICIT NONE
00077       INTEGER LNG,LU
00078       COMMON/INFO/LNG,LU
00079 !
00080 !-----------------------------------------------------------------------
00081 !
00082       INTEGER I,J
00083 !
00084 !-----------------------------------------------------------------------
00085 !
00086 !     UNLADM IS NEEDED FOR HUNZIKER
00087 !
00088       DO J=1,NPOIN
00089         ACLADM%R(J) = 0.D0
00090         UNLADM%R(J) = 0.D0
00091         IF(NSICLA.GT.1) THEN
00092           DO I=1,NSICLA
00093             IF(AVAIL(J,1,I).GT.0.D0) THEN
00094               ACLADM%R(J) = ACLADM%R(J) + FDM(I)*AVAIL(J,1,I)
00095               UNLADM%R(J) = UNLADM%R(J) + FDM(I)*AVAIL(J,2,I)
00096             ENDIF
00097           ENDDO
00098         ENDIF
00099         IF(ACLADM%R(J).LE.0.D0) ACLADM%R(J) = FDM(1)
00100         IF(UNLADM%R(J).LE.0.D0) UNLADM%R(J) = ACLADM%R(J)
00101       ENDDO
00102 !
00103 !-----------------------------------------------------------------------
00104 !
00105       RETURN
00106       END

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