New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13333 for NEMO/trunk/src/OCE – NEMO

Changeset 13333 for NEMO/trunk/src/OCE


Ignore:
Timestamp:
2020-07-22T16:05:31+02:00 (4 years ago)
Author:
cetlod
Message:

trunk : bugfix in the heat content trend when activating bio-model light penetration, see ticket #2499

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/TRA/traqsr.F90

    r13295 r13333  
    6363   REAL(wp) ::   xsi1r   ! inverse of rn_si1 
    6464   ! 
    65    REAL(wp) , DIMENSION(3,61)           ::   rkrgb    ! tabulated attenuation coefficients for RGB absorption 
     65   REAL(wp) , PUBLIC, DIMENSION(3,61)   ::   rkrgb    ! tabulated attenuation coefficients for RGB absorption 
    6666   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_chl   ! structure of input Chl (file informations, fields read) 
    6767 
     
    417417         IF( .NOT.lk_top )   CALL ctl_stop( 'No bio model : ln_qsr_bio = true impossible ' ) 
    418418         ! 
     419         CALL trc_oce_rgb( rkrgb )                 ! tabulated attenuation coef. 
     420         !                                    
     421         nksr = trc_oce_ext_lev( r_si2, 33._wp )   ! level of light extinction 
     422         ! 
     423         IF(lwp) WRITE(numout,*) '        level of light extinction = ', nksr, ' ref depth = ', gdepw_1d(nksr+1), ' m' 
     424         ! 
    419425      END SELECT 
    420426      ! 
Note: See TracChangeset for help on using the changeset viewer.