õk820309Lí49 netcdf_filename.f90NETCDF_FILENAMESTOREFILENAMEDISPOSEFILENAMEFILENAMEBYIDIDBYFILENAMECOMPATIBLEMODE #@ STOREFILENAME%SIZEIDNAMEWRITABLESIZE A 1 #@ DISPOSEFILENAME%MAXDISPOSEFILENAME%SIZEIDENDMAXSIZE @@D&@   IDVARYING_STRING @A%@   IDBYFILENAME%SIZEFILENAMESIZE VARYING_STRING%@   IDWRITABLE @  @' IDNAMEN_LINKWRITABLEVARYING_STRING¬,fn#fn%ØSbuapp(NETCDF_FILENAME+4JDC_STRING_`STOREFILENAME#¿1STOREFILENAME%SIZE!ð0aSTOREFILENAME%ID# 8aSTOREFILENAME%NAME'X0aSTOREFILENAME%WRITABLE ˆlDISPOSEFILENAME$ô0DISPOSEFILENAME%MAX%$1DISPOSEFILENAME%SIZE#U0aDISPOSEFILENAME%ID$…0aDISPOSEFILENAME%ENDµRFILENAMEBYID 0aFILENAMEBYID%ID7[IDBYFILENAME"’1IDBYFILENAME%SIZE&ÃCaIDBYFILENAME%FILENAMELCOMPATIBLEMODE"R0aCOMPATIBLEMODE%ID(‚0aCOMPATIBLEMODE%WRITABLE²TTABLE_ENTRY8aTABLE_ENTRY%ID!>GaTABLE_ENTRY%NAME#…8aTABLE_ENTRY%N_LINK%½8aTABLE_ENTRY%WRITABLE