Encyclopaedia Index
TALK=T;RUN( 1, 1)
TEXT(Library case Y610: Rain and snow-effect of interphase friction.
>>>>>>>>>>>>>>>>>>>>>> Comment begins >>>>>>>>>>>>>>>>>>>>>>>>>>>>
PLANT information :
* Data input groups used: 10
* Ground groups planted : 10
* Headings used : PRPT??
* Functions used : None
* Commands used : PLACE
<<<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<<<<<<
LOAD(W429)
IF(.NOT.ROOF) THEN
LSWEEP=400
mesg(Reduce interface friction at the bottom half of domain ? (y/n)
readvdu(ans,char,n)
if(:ans:.eq.y) then
LG(1)=T
NAMSAT=MOSG
CFIPS=GRND
INTFRC=9.81*(:RHO2:-:RHO1:)/(:FALLVEL:)*MASS1*LIQ
PLACE(0.0,24.0,5.0,10.0) /LG(1)
INTFRC=9.81*(:RHO2:-:RHO1:)/(7.*:FALLVEL:)*MASS1*LIQ
PLACE(0.0,24.0,0.0,5.0) /LG(1)
>>>>>>>>>>>>>>>>>>>>>> Comment begins >>>>>>>>>>>>>>>>>>>>>>>>>>>>
The above two statements provide what is required for none-shelter
(ROOF=F) situation: the first, apllied to the upper domain part,
extended from 5.0 m up to 10.m, has got the coefficient of 7 times
larger than the second one has. The lattter is applied for the bottom
part of the domain extended up to 5.0 m above the ground. The both
are activated if logical switch LG(1) equals T.
Please note the use of PLACE command with the arguments being
physical distances rather than grid extents in terms of cell numbers.
<<<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<<<<<<
ENDIF
ENDIF
STOP