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