1k820309s69 gtool_file.f90GTOOL_FILE   u GTOOLFILECREATE u GTOOLFILECLOSE u GTOOLFILEREOPENGTOOLFILEOPENu GTOOLFILEPUTATTRIBUTE u GTOOLFILENVARS u GTOOLFILENAMEo GTOOLFILEERROR|LETGTOOLFILENETCDFFILELETNETCDFFILEGTOOLFILE @' NCFILE NC_FILE#@ XGTOOLFILECREATE%PRESENTFILEFILENAMEOVERWRITEFAILTITLESOURCEINSTITUTIONPRESENT DA GT_FILE VARYING_STRING B@F@ B@1 B@1 B@1#@ XFILEFAIL DA GT_FILEF@#@ XFILEOLDFILE DA GT_FILE @A GT_FILE#@ XFILEFILENAMEWRITABLEFAIL DA GT_FILE VARYING_STRING B@F@#@ XFILEATTRNAMEVALUE DA GT_FILE @@1 1%@ X FILE @A GT_FILE&@ X FILEVARYING_STRING @A GT_FILE%@ X FILE  GT_FILE#@ XNCFILEGTFILED NC_FILE  GT_FILE#@ XGTFILENCFILED GT_FILE  NC_FILE"fn#fn4JNETCDF4JDC_STRING6Dgen@CREATEzCgen@CLOSERgen@OPEN!Jgen@PUTATTRIBUTE$YCgen@VARIABLESNUMBERBgen@NAMECu@ERROR!bi@|CGT_FILE@aGT_FILE%NCFILE GTOOLFILECREATE(4GTOOLFILECREATE%PRESENT%<aGTOOLFILECREATE%FILE)CaGTOOLFILECREATE%FILENAME*C0aGTOOLFILECREATE%OVERWRITE%s0aGTOOLFILECREATE%FAIL&8aGTOOLFILECREATE%TITLE'8aGTOOLFILECREATE%SOURCE,8aGTOOLFILECREATE%INSTITUTIONKFGTOOLFILECLOSE$<aGTOOLFILECLOSE%FILE$0aGTOOLFILECLOSE%FAIL IGTOOLFILEREOPEN%F<aGTOOLFILEREOPEN%FILE(<aGTOOLFILEREOPEN%OLDFILEXGTOOLFILEOPEN#<aGTOOLFILEOPEN%FILE'RCaGTOOLFILEOPEN%FILENAME'0aGTOOLFILEOPEN%WRITABLE#0aGTOOLFILEOPEN%FAIL&PGTOOLFILEPUTATTRIBUTE+E <aGTOOLFILEPUTATTRIBUTE%FILE/ 8aGTOOLFILEPUTATTRIBUTE%ATTRNAME, 8aGTOOLFILEPUTATTRIBUTE%VALUE EGTOOLFILENVARS$6 <aGTOOLFILENVARS%FILEr TGTOOLFILENAME# <aGTOOLFILENAME%FILE EGTOOLFILEERROR$G <aGTOOLFILEERROR%FILE' JLETGTOOLFILENETCDFFILE. <aLETGTOOLFILENETCDFFILE%NCFILE. <aLETGTOOLFILENETCDFFILE%GTFILE'E JLETNETCDFFILEGTOOLFILE. <aLETNETCDFFILEGTOOLFILE%GTFILE. <aLETNETCDFFILEGTOOLFILE%NCFILE