Ticket #775: ncid.patch

File ncid.patch, 852 bytes (added by kate, 6 years ago)

  • ROMS/Modules/mod_netcdf.F 

    diff --git a/ROMS/Modules/mod_netcdf.F b/ROMS/Modules/mod_netcdf.F
index 46a3940..e219a64 100644
    a b  
    14321432!
    14331433          DO i=1,MIN(Matts,n_gatt)
    14341434            att_id=i
    1435             status=nf90_inq_attname(ncid, nf90_global, att_id,          &
     1435            status=nf90_inq_attname(my_ncid, nf90_global, att_id,       &
    14361436      &                             att_name(i))
    14371437            IF (status.eq.nf90_noerr) THEN
    1438               status=nf90_inquire_attribute(ncid, nf90_global,          &
     1438              status=nf90_inquire_attribute(my_ncid, nf90_global,       &
    14391439      &                                     TRIM(att_name(i)),          &
    14401440      &                                     xtype = att_kind(i),        &
    14411441      &                                     attnum = att_id)