Lignes du fichier q1 permettant une initialisation particuliére


Group 11.Initialise Var/Porosity Fields

PATCH (TEMPI,LINVLY,1,NX,1,NY,1,1,1,1)

INIT(TEMPI,H1,(hhaut-hbas)/YVLAST,hbas)

PATCH(VINIT,INIVAL,1,NX,1,NY,1,1,1,1)

COVAL(VINIT,V1,0,GRND)

RSTGRD = F

INIADD = T

RESTRT (ALL)

************************************************************