Skip to content

Commit b6025e1

Browse files
committed
maint: updated length of characters
Also implemented the use of the VAR_TYPE_LENGTH in fdict Signed-off-by: Nick Papior <nickpapior@gmail.com>
1 parent 8a48414 commit b6025e1

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

src/netcdf_ncdf_pp.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -105,7 +105,7 @@ module netcdf_ncdf
105105
! If define == 1 then it is in data mode (needed for netCDF-3)
106106
integer :: define
107107
! The name of the netCDF-file
108-
character(len=250) :: name = " "
108+
character(len=256) :: name = " "
109109
! the group of the netCDF-file (i.e. a file within a file)
110110
character(len=NF90_MAX_NAME) :: grp = " "
111111
! The communicator describing the parallel activity
@@ -852,7 +852,7 @@ subroutine ncdf_assert(this,assert,dims,vars, &
852852

853853
! We can currently only check integers :(
854854
character(len=DICT_KEY_LENGTH) :: key
855-
character(len=2) :: t
855+
character(len=VAR_TYPE_LENGTH) :: t
856856
type(dict) :: dic ! local loop dictionary...
857857
type(var) :: ivar
858858
logical :: success
@@ -1680,7 +1680,7 @@ subroutine get_att_id(this,ID,name,att)
16801680
character(len=*), intent(in) :: name
16811681
type(var), intent(inout) :: att
16821682
integer :: xtype, att_len
1683-
character(len=500) :: att_char
1683+
character(len=512) :: att_char
16841684
real(sp), allocatable :: a_sp(:)
16851685
real(dp), allocatable :: a_dp(:)
16861686
integer(ih), allocatable :: a_ih(:)

0 commit comments

Comments
 (0)