Skip to content

Commit

Permalink
remove print statements
Browse files Browse the repository at this point in the history
  • Loading branch information
wwieder committed Nov 12, 2024
1 parent 88d5b0f commit ac08121
Showing 1 changed file with 0 additions and 12 deletions.
12 changes: 0 additions & 12 deletions src/biogeochem/CNFUNMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -467,9 +467,6 @@ subroutine CNFUN(bounds,num_soilc, filter_soilc,num_soilp&
real(r8) :: total_c_spent_retrans
real(r8) :: total_c_accounted_retrans

!real(r8) :: nfix_tmin = -2.04_r8
!real(r8) :: nfix_topt = 32.10_r8
!real(r8) :: nfix_tmax = 43.98_r8
!------end of not_use_nitrif_denitrif------!
!--------------------------------------------------------------------
!------------
Expand Down Expand Up @@ -1074,15 +1071,6 @@ subroutine CNFUN(bounds,num_soilc, filter_soilc,num_soilp&
big_cost,crootfr(p,j),s_fix(ivt(p)),tc_soisno(c,j))
elseif (nfix_method == 2) then
! Bytnerowicz no acclimation calculation

! Hardwiring the parameters works
!costNit(j,icostFix) = fun_cost_fix_Bytnerowicz_noAcc(fixer,&
! nfix_tmin, nfix_topt, nfix_tmax&
! ,big_cost,crootfr(p,j),s_fix(ivt(p)),tc_soisno(c,j))

! Debug print statements
!write(iulog,*) "tmin, topt, tmax =", nfix_tmin(ivt(p)),nfix_topt(ivt(p)),nfix_tmax(ivt(p))
!write(iulog,*) "a_fix, b_fix, c_fix =", a_fix(ivt(p)),b_fix(ivt(p)),c_fix(ivt(p))
costNit(j,icostFix) = fun_cost_fix_Bytnerowicz_noAcc(fixer, &
nfix_tmin(ivt(p)),nfix_topt(ivt(p)),nfix_tmax(ivt(p)), &
big_cost,crootfr(p,j),s_fix(ivt(p)),tc_soisno(c,j))
Expand Down

0 comments on commit ac08121

Please sign in to comment.