Commit 0b112d1c authored by Onur Kerimoglu's avatar Onur Kerimoglu
Browse files

maecs: temporary fix for the dysfunctional light attenuation diagnostic

parent 83add0ef
......@@ -987,16 +987,32 @@ end subroutine initialize
!self-shading of phytoplankton.
attBIO = self%a_spm*(poc+z)+ self%a_doc*doc+ self%a_phyc*p + self%a_chl*chl
!Start of temporary comment-out !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!attenuation increment is the sum:
!get the final extinction, and save it as model diagnostic
_GET_(self%id_att, att)
!_GET_(self%id_att, att) !problem is here. this is not the total attenuation as it should, but only bioshading.
!att. caused by SPM is the total attenuation minus the bioshading
!End of temporary coment-out !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!Temporary replacement !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!Following is intended to be used both with external attenuation file and analytical method:
!attenuation increment is the bio-shading
!total attenuation is
!att. caused by SPM is kw
!!End of temporary replacement!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#if _DEBUG_
write(*,'(A, 4( F7.4))') 'kw,attSPM,attBIO,att:',kw,attSPM,attBIO,att
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment