* ---------------------------------------------------------- * 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