@@ -49,7 +49,7 @@ MODULE m_ncio
49
49
50
50
! low-level Read 1D
51
51
PUBLIC :: nc_rdvar1d_i1, nc_rdvar1d_i2, nc_rdvar1d_i4, nc_rdvar1d_r4 , &
52
- nc_rdvar1d_r8
52
+ nc_rdvar1d_r8 , nc_rdvar1d_str
53
53
! low-level Read 2D
54
54
PUBLIC :: nc_rdvar2d_i1, nc_rdvar2d_i2, nc_rdvar2d_i4, nc_rdvar2d_r4 , &
55
55
nc_rdvar2d_r8
@@ -312,6 +312,15 @@ SUBROUTINE nc_rdvar1d_r8(fid, varname, varval)
312
312
include " nc_rdvar.f90.inc"
313
313
END SUBROUTINE
314
314
315
+ SUBROUTINE nc_rdvar1d_str (fid , varname , varval )
316
+ IMPLICIT NONE
317
+ INTEGER (i4),INTENT (IN ) :: fid
318
+ CHARACTER (* ),INTENT (IN ) :: varname
319
+ CHARACTER (* ), INTENT (INOUT ) :: varval(:)
320
+ include " nc_rdvar.f90.inc"
321
+ END SUBROUTINE
322
+
323
+
315
324
316
325
!- -------------------------------------------------------------------------------
317
326
! write 1D
@@ -400,6 +409,7 @@ SUBROUTINE nc_rdvar2d_r8(fid, varname, varval)
400
409
include " nc_rdvar.f90.inc"
401
410
END SUBROUTINE
402
411
412
+
403
413
!- -------------------------------------------------------------------------------
404
414
! write 2D
405
415
!- -------------------------------------------------------------------------------
0 commit comments