long_name = 'X-coordinate of cell center'

         long_name = 'i-index of cell center'

         long_name = 'longitude of cell center'

         long_name = 'polar angle coordinate of cell center'

         long_name = 'X-Coordinate of cell corner'

         long_name = 'i-index of cell corner'

         long_name = 'longitude of cell corner'

         long_name = 'polar angle  of cell corner'

         long_name = 'X-Coordinate of cell center including overlaps'

         long_name = 'i-index of cell center including overlaps'

         long_name = 'longitude of cell center including overlaps'

         long_name =

         long_name = 'Y-Coordinate of cell center'

         long_name = 'j-index of cell center'

         long_name = 'latitude of cell center'

         long_name = 'radial coordinate of cell center'

         long_name = 'Y-Coordinate of cell corner'

         long_name = 'j-index of cell corner'

         long_name = 'latitude of cell corner'

         long_name = 'radial coordinate of cell corner'

         long_name = 'Y-Coordinate of cell center including overlaps'

         long_name = 'j-index of cell center including overlaps'

         long_name = 'latitude of cell center including overlaps'

         long_name =

        long_name = 'vertical coordinate of cell center'

        long_name = 'vertical coordinate of cell interface'

         long_name = 'vertical coordinate of lower cell interface'

         long_name = 'vertical coordinate of upper cell interface'

         long_name = 'vertical coordinate of upper cell interface'

         long_name = 'vertical coordinate of lower cell interface'

         long_name = 'vertical coordinate of lower cell interface'

         long_name = 'vertical coordinate of upper cell interface'

        ia = ILNBLNK(long_name)

         err = NF_PUT_ATT_TEXT(fid, vid, 'long_name', ia, long_name)

      character*(MAX_LEN_NAME) units, long_name, positive

         long_name(i:i) = ' '