* ----------------------------------------------------------
  * Activate GENTRA
GENTR=T
  * ----------------------------------------------------------
  * GENTRA GROUP 0: PIL variables and default values
  * ----------------------------------------------------------
INTEGER(IX1,IX2,IX3,IX4,IX5,IX6,IX7,IX8,IX9)
CHAR(CX1,CX2,CX3);REAL(RX1);BOOLEAN(LX1)
CHAR(CDRAG,CKONC,CNUSS,CCPLIQ,CLHEAS,CSOLIN,CSOLST)
CHAR(CKONV,CCPCON,CCPVAP,CMWCON,CMWVAP,CLIQST,CLATVP)
CHAR(CVAPST,CSTPRE,CDTRCT,CHLIQD,CCPSOL,CHSOLD)
INTEGER(GPTYPE,GWALLC);GPTYPE=30;GWALLC=3
REAL(GWREST,GPOROS);GWREST=1.0;GPOROS=1.0E-10
REAL(GGRAX,GGRAY,GGRAZ);GGRAX=0.0;GGRAY=0.0;GGRAZ=0.0
BOOLEAN(GBUOYA,GSTOCH,GSURPR);GBUOYA=F;GSURPR=F;GSTOCH=F
REAL(GDRAG,GNUSS);GDRAG=GRND1;GNUSS=GRND1
REAL(GLHEAS,GSOLIN);GLHEAS=3.335E+05;GSOLIN=1
REAL(GSOLST,GLIQST);GSOLST=273.15;GLIQST=273.15
REAL(GKONC,GKONV,GCPCON,GCPVAP,GCPLIQ,GMWCON,GMWVAP,GHLIQD)
REAL(GCPSOL,GDBUG1)
GKONC=0.0263;GKONV=GRND1;GCPCON=1007;GCPVAP=GRND1;GDBUG1=0.0
GHLIQD=GRND1;GCPLIQ=4131.8;GMWCON=28.9;GMWVAP=18;GCPSOL=4131.8
REAL(GVAPST,GSTPRE,GLATVP);GVAPST=GRND1;GSTPRE=GRND1;GLATVP=GRND1
REAL(GDTRCT);GDTRCT=0.0
CHAR(GINFIL);GINFIL='Q1'
INTEGER(GINSYS);GINSYS=12
INTEGER(GSWEP1,GSWEPF,GLAGTS);GSWEP1=1;GSWEPF=1;GLAGTS=5
REAL(GTIMMX);GTIMMX=0.0;INTEGER(GSTEMX);GSTEMX=0
REAL(GDTMAX,GRTFRC);GDTMAX=1.0;GRTFRC=1.0
REAL(GLNRLX);GLNRLX=1.0
CHAR(GRSFIL,GHFILE);GRSFIL=NONE
GHFILE='GHIS'
INTEGER(GOUTFR,GRESTI);GOUTFR=1;GRESTI=0
INTEGER(NGWSTR,NGWEND,NGWINT,GSWOUT);CHAR(GT1STC,GH1STC)
NGWSTR=0;NGWEND=0;NGWINT=1;GSWOUT=1
GT1STC=NONE;GH1STC=NONE
REAL(GFLENG,GTSTRT,GTEND)
CHAR(GENSET);GENSET=$G002
char(gtabfil); gtabfil=*..\d_earth\d_opt\d_gentra\inplib\drag.csv