Skip to content

Commit

Permalink
Merge pull request #1484 from emkemp/fix/ldt_hdf4
Browse files Browse the repository at this point in the history
Fixed preprocessing statements for HDF4 function calls.
  • Loading branch information
jvgeiger authored Jan 23, 2024
2 parents 3a6dbb5 + 298d3c4 commit 8500e06
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions ldt/SMAP_E_OPL/TOOLSUBS.F90
Original file line number Diff line number Diff line change
Expand Up @@ -68,7 +68,7 @@ SUBROUTINE AVHRR_NDVI(ssid,lon_ind,lat_ind,avg_NDVI)
!sd_id = sfstart(trim(filename),DFACC)
!ssid = sfselect(sd_id, 0)

#if (defined USE_HDF5)
#if (defined USE_HDF4)
status = sfrdata(ssid,start, stride,edges, data)
#endif
!PRINT *, "Filename", filename
Expand Down Expand Up @@ -99,7 +99,7 @@ SUBROUTINE AVHRR_NDVI_MATRIX(ssid,lon_ind,lat_ind, NDVI_MAT)
!DFACC=1 !Read Only Access
!sd_id = sfstart(trim(filename),DFACC)
!ssid = sfselect(sd_id, 0)
#if (defined USE_HDF5)
#if (defined USE_HDF4)
status = sfrdata(ssid,start, stride,edges, data)
#endif
NDVI_MAT=-9999
Expand Down

0 comments on commit 8500e06

Please sign in to comment.