Lignes du ground permettant une initialiastion particulière


C--- GROUP 11. Initialization of variable or porosity fields C

Index VAL

11 CONTINUE

C--INITIALISATION DE CO & VAL QUI IRONT INITIALISER V1

C--ON NE TOUCHE PAS A V1

if(npatch(1:5).eq.'VINIT')then

if(indvar.eq.v1)then

l0val=l0f(val)

l0xg2d=l0f(xg2d)

l0yg2d=l0f(yg2d)

do 113 ix=ixf,ixl

do 114 iy=iyf,iyl

icell=iy+(ix-1)*ny

f(l0val+icell)=rg(10)*cos(rg(11)*3.1416*2*

#f(l0xg2d+icell)/xulast)*sin(3.1416*f(l0yg2d+icell)/yvlast)

114 continue

113 continue

endif

endif

RETURN

C*****************************************************************

C

C--- GROUP 12. Convection and diffusion adjustments