* ---------------------------------------------------------- * GENTRA GROUP 6: Transmission of data to GENTRA-Earth * ---------------------------------------------------------- IG(20)=GPTYPE;IG(19)=GWALLC;IG(18)=GSWEP1;IG(17)=GSWEPF IG(16)=GLAGTS;IG(15)=GSTEMX;IG(14)=GOUTFR;IG(13)=GRESTI IG(12)=NGWSTR;IG(11)=NGWEND;IG(10)=NGWINT;IG(9)=GSWOUT RG(100)=GGRAX;RG(99)=GGRAY;RG(98)=GGRAZ;RG(97)=GDRAG RG(96)=GKONC;RG(95)=GNUSS;RG(94)=GLHEAS;RG(93)=GSOLIN RG(92)=GSOLST;RG(91)=GLIQST;RG(90)=GKONV;RG(89)=GCPCON RG(88)=GCPVAP;RG(87)=GMWCON;RG(86)=GMWVAP;RG(85)=GDBUG1 RG(84)=GWREST RG(83)=GTIMMX;RG(82)=GCPLIQ;RG(81)=GPOROS;RG(80)=GDTMAX RG(77)=GRTFRC;RG(76)=GHLIQD;RG(75)=GVAPST;RG(74)=GLATVP RG(73)=GDTRCT;RG(72)=GCPSOL;RG(71)=GSTPRE RG(70)=GTEND;RG(69)=GTSTRT;RG(68)=GFLENG LG(20)=GBUOYA;LG(19)=GSTOCH;LG(18)=GSURPR CG(10)=':GT1STC:' CG(9) =':GH1STC:' CG(8) =':GINFIL:' CG(7) =':GRSFIL:' spedat(del,gentra,restart) spedat(set,gentra,restart,c,:GRSFIL:) CG(6) =':GHFILE:' if(gdrag.ne.grnd2) then + spedat(del,gentra,dragfil) else + spedat(del,gentra,dragfil) + spedat(set,gentra,dragfil,c,:GTABFIL:) endif NOCOPY=T