always update netsw variable to be sent to coupler

Author: peverwhee

src/physics/rrtmgp/radiation.F90

@@ -1420,6 +1420,8 @@ subroutine radiation_tend( &
    qrs(:ncol,:) = qrs(:ncol,:) * state%pdel(:ncol,:)
    qrl(:ncol,:) = qrl(:ncol,:) * state%pdel(:ncol,:)
 
+   cam_out%netsw(:ncol) = fsns(:ncol)
+
    if (.not. present(rd_out)) then
       deallocate(rd)
    end if
@@ -1496,8 +1498,6 @@ subroutine set_sw_diags()
       rd%fsnsc(:ncol) = fcns(:ncol,pverp)   ! net sw clearsky flux at surface
       rd%fsntc(:ncol) = fcns(:ncol,ktopcam) ! net sw clearsky flux at top
 
-      cam_out%netsw(:ncol) = fsns(:ncol)
-
       ! Output fluxes at 200 mb
       call vertinterp(ncol, pcols, pverp, state%pint, 20000._r8, fns,  rd%fsn200)
       call vertinterp(ncol, pcols, pverp, state%pint, 20000._r8, fcns, rd%fsn200c)