Update physics/PBL/SATMEDMF/satmedmfvdifq.F

Co-authored-by: Dom Heinzeller <dom.heinzeller@icloud.com>

Author: grantfirl

physics/PBL/SATMEDMF/satmedmfvdifq.F

@@ -1617,7 +1617,7 @@ subroutine satmedmfvdifq_run(im,km,ntrac,ntcw,ntrw,               &
           endif
         enddo
       enddo
-       do k = kmscu, 1, -1
+      do k = kmscu, 1, -1
         do i = 1, im
           if(scuflg(i) .and.
      &      (k >= mrad(i) .and. k < krad(i))) then