Skip to content

Commit

Permalink
remove comments
Browse files Browse the repository at this point in the history
  • Loading branch information
adamrher committed Sep 29, 2023
1 parent 4aae7f4 commit e9d7cad
Showing 1 changed file with 1 addition and 16 deletions.
17 changes: 1 addition & 16 deletions src/physics/cam/clubb_mf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -572,12 +572,6 @@ subroutine integrate_mf( nz,
ztop = 0._r8
ddbot= 0

!+++ARH - uncomment to recover bgb restarts
! ddcp = 0._r8
! ztopm1 = zm(1)
! return
!---ARH

if (bsort) then
niter_xc = 3
limarea = .true.
Expand Down Expand Up @@ -1461,16 +1455,7 @@ subroutine integrate_mf( nz,
uflx(k) = uflxup(k) + uflxdn(k)
vflx(k) = vflxup(k) + vflxdn(k)
enddo

!+++ARH - uncomment bfb restarts (state only, clubb+mf diags still not bfb)
! thlflx = 0._r8
! qtflx = 0._r8
! sqt = 0_r8
! sthl = 0._r8
! moist_a = 0._r8
! moist_qc = 0._r8
!---ARH

!
else
ddcp = 0._r8
ztopm1 = zm(1)
Expand Down

0 comments on commit e9d7cad

Please sign in to comment.