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