Skip to content

Commit

Permalink
Updates to netCDF modules in the NcdfUtil folder
Browse files Browse the repository at this point in the history
NcdfUtil/m_netcdf_io_define.F90
- In routine NF90_Set_Fill, use ifill argument instead of the
  parameter NF90_NOFILL in the call to NF90_Set_Fill.  This error
  turning off filling regardless of what the value of ifill was.

NcdfUtil/m_netcdf_io_write.F90
- Fixed incorrect subroutine header comment

NcdfUtil/ncdf_mod.F90
- Remove USE statements at top of module.  Instead include USE statements
  within each subroutine. This will make all imported routines
  PRIVATE to ncdf_mod.F90.
- Removed leftover "netcdf.inc" from the netCDF-F77 interface
- Use NF90_UNLIMITED instead of NF_UNLIMITED (which is netCDF-F77)
- Remove unnecessary ELSE branches
- Whitespace updates, trimmed trailing whitespace
- Remove NC_READ_VAR_CORE.  Add its functionality into overloaded
  module routines NC_READ_VAR_SP and NC_READ_VAR_DP.

Signed-off-by: Bob Yantosca <[email protected]>
  • Loading branch information
yantosca committed Jul 31, 2023
1 parent 351079f commit e492d8c
Show file tree
Hide file tree
Showing 3 changed files with 269 additions and 98 deletions.
2 changes: 1 addition & 1 deletion NcdfUtil/m_netcdf_io_define.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1003,7 +1003,7 @@ SUBROUTINE NcSetFill(ncid, ifill, omode)
character (len=512) :: err_msg
integer :: ierr
!
ierr = NF90_Set_Fill(ncid, NF90_NOFILL, omode)
ierr = NF90_Set_Fill(ncid, ifill, omode)

IF (ierr.ne.NF90_NOERR) THEN
err_msg = 'NF90_Set_FIll: Error in omode '
Expand Down
2 changes: 1 addition & 1 deletion NcdfUtil/m_netcdf_io_write.F90
Original file line number Diff line number Diff line change
Expand Up @@ -932,7 +932,7 @@ end subroutine Ncwr_4d_R4
!------------------------------------------------------------------------------
!BOP
!
! !IROUTINE: Ncwr_3d_Int
! !IROUTINE: Ncwr_4d_Int
!
! !INTERFACE:
!
Expand Down
Loading

0 comments on commit e492d8c

Please sign in to comment.