add comment

Author: JosephMouallem

driver/SHiELD/atmosphere.F90

@@ -2016,7 +2016,7 @@ subroutine populate_surf_diff (surf_diff, IPD_Data, IAU_Data, Atm_block)
      enddo
    enddo
 
-   do k=npz,npz
+   do k=npz,npz ! clean this up
      k1=npz-k+1
      do nb = 1,Atm_block%nblks
        blen = Atm_block%blksz(nb)