Skip to content

Commit

Permalink
fix more typos
Browse files Browse the repository at this point in the history
  • Loading branch information
yichengt900 committed Jun 17, 2024
1 parent ba1a22b commit 707eda9
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions generic_tracers/generic_COBALT.F90
Original file line number Diff line number Diff line change
Expand Up @@ -3686,7 +3686,7 @@ subroutine generic_COBALT_update_from_source(tracer_list,Temp,Salt,rho_dzt,dzt,h
! phi_srdon (and corresponding values for P). These are generally specified as fractions of the ingested
! material, or fractions of the loss term.
!
! Note: For zooplankton ingestion, the "assimilation efficieny" is determined by 1.0 - the egested fraction.
! Note: For zooplankton ingestion, the "assimilation efficiency" is determined by 1.0 - the egested fraction.
! This is assumed to be 0.7 by default. Thus, for zoo phi_det + phi_ldon + phi_sldon + phi_srdon = 0.3. If
! this sum increases, you have effectively decreased the assimilation efficiency and vice-versa.

Expand Down Expand Up @@ -3814,7 +3814,7 @@ subroutine generic_COBALT_update_from_source(tracer_list,Temp,Salt,rho_dzt,dzt,h
assim_eff*zoo(m)%jingest_p(i,j,k)/zoo(m)%q_p_2_n)

! Ingested material that does not go to zooplankton production or egestion (i.e., detrital production or
! production of dissolved organic material is excreted as nh4 or po4 as part of the respiration process.
! production of dissolved organic material) is excreted as nh4 or po4 as part of the respiration process.
if (zoo(m)%jprod_n(i,j,k) .gt. 0.0) then
zoo(m)%jprod_nh4(i,j,k) = zoo(m)%jingest_n(i,j,k) - zoo(m)%jprod_ndet(i,j,k) - &
zoo(m)%jprod_n(i,j,k) - zoo(m)%jprod_ldon(i,j,k) - &
Expand Down

0 comments on commit 707eda9

Please sign in to comment.