added missing output rhop

GEOS-ESM · Nov 28, 2023 · 32c0288 · 32c0288
1 parent a28b1b9
commit 32c0288
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Process_Library/MieQuery.H b/Process_Library/MieQuery.H
@@ -130,6 +130,10 @@
        gf =  __RHINTERP2__(this%gf, irh, arh, bin, gf)
      endif
 
+     if(present(rhop)) then
+       rhop =  __RHINTERP2__(this%rhop, irh, arh, bin, rhod)
+     endif
+
      if(present(rhod)) then
        rhod =  __RHINTERP2__(this%rhod, irh, arh, bin, rhod)
      endif