fixing errors

Author: daleihao

components/elm/src/biogeophys/SurfaceAlbedoMod.F90

@@ -1772,7 +1772,7 @@ subroutine Albedo_TOP_Adjustment_novegsol(bounds, num_novegsol, filter_novegsol,
        fd_top_adjust(p,1:numrad) = 1
        fi_top_adjust(p,1:numrad) = 1
 
-    ! make sure the lat/lon is 0-18 
+    ! make sure the lon is between 0-180 
     lon_180 = lon(g)
     if (lon_180 > pi) lon_180 = lon_180-2._r8*pi
     ! end
@@ -1982,7 +1982,7 @@ subroutine Albedo_TOP_Adjustment_vegsol_direct(p, ib, &
        g = pgridcell(p)
        fd_top_adjust(p,ib) = 1
 
-       ! make sure the lat/lon is 0-180
+       ! make sure the lon is between 0-180
        lon_180 = lon(g)
        if (lon_180 > pi) lon_180 = lon_180-2._r8*pi
 
@@ -2156,14 +2156,13 @@ subroutine Albedo_TOP_Adjustment_vegsol_diffuse(p, ib, &
     coeff_rdif(:,0) = coeff_rdif(:,1)
 
     next_tod = 86400._r8 * (nextsw_cday - int(nextsw_cday))
-     
-    ! make sure the lat/lon is 0-18 
-    lon_180 = lon(g)
-    if (lon_180 > pi) lon_180 = lon_180-2._r8*pi
-    ! end
 
        g = pgridcell(p)
        fi_top_adjust(p,ib) = 1
+       
+       ! make sure the lon is between 0-180
+       lon_180 = lon(g)
+       if (lon_180 > pi) lon_180 = lon_180-2._r8*pi
 
        if (cosz > 0._r8 .and. abs(lat(g)) < 1.047_r8 .and. stdev_elev(g) > 0._r8) then
           local_timeofday = next_tod + lon_180 / pi * 180._r8 * 240._r8  ! need to check make sure is 0-180