@@ -105,7 +105,7 @@ module netcdf_ncdf
105
105
! If define == 1 then it is in data mode (needed for netCDF-3)
106
106
integer :: define
107
107
! The name of the netCDF-file
108
- character (len= 250 ) :: name = " "
108
+ character (len= 256 ) :: name = " "
109
109
! the group of the netCDF-file (i.e. a file within a file)
110
110
character (len= NF90_MAX_NAME) :: grp = " "
111
111
! The communicator describing the parallel activity
@@ -852,7 +852,7 @@ subroutine ncdf_assert(this,assert,dims,vars, &
852
852
853
853
! We can currently only check integers :(
854
854
character (len= DICT_KEY_LENGTH) :: key
855
- character (len= 2 ) :: t
855
+ character (len= VAR_TYPE_LENGTH ) :: t
856
856
type (dict) :: dic ! local loop dictionary...
857
857
type (var) :: ivar
858
858
logical :: success
@@ -1680,7 +1680,7 @@ subroutine get_att_id(this,ID,name,att)
1680
1680
character (len=* ), intent (in ) :: name
1681
1681
type (var), intent (inout ) :: att
1682
1682
integer :: xtype, att_len
1683
- character (len= 500 ) :: att_char
1683
+ character (len= 512 ) :: att_char
1684
1684
real (sp), allocatable :: a_sp(:)
1685
1685
real (dp), allocatable :: a_dp(:)
1686
1686
integer (ih), allocatable :: a_ih(:)
0 commit comments