dc6f1372 by Nathan Lighthart

Fix UPGM hru-based file handles

- Change hruID to be pass by reference instead of pass by value as NAP does not detect the pass by value
- Change starting value of cropxml file to avoid conflicts with fortran reserved values
1 parent 2faaefac
......@@ -126,7 +126,7 @@ subroutine jupgminit(cropxmlfile,cropxmlfile_len,upgmcropfile, &
! @Description("HRU ID")
! @In
integer(C_INT), value, intent(in) :: hruID
integer(C_INT) :: hruID
integer :: phenolfilehandle
!
......@@ -134,7 +134,7 @@ subroutine jupgminit(cropxmlfile,cropxmlfile_len,upgmcropfile, &
!
integer :: julday
cropxml = 0 + hruID
cropxml = 170000 + hruID
upgmmgt = 10000 + hruID
upgmstress = 20000 + hruID
upgmcli = 30000 + hruID
......
Styling with Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!