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 15678 – NEMO

Changeset 15678


Ignore:
Timestamp:
2022-01-27T18:22:56+01:00 (2 years ago)
Author:
dancopsey
Message:

Allow chlorophyll concentration to be supplied via namelist

Location:
NEMO/branches/UKMO/NEMO_4.0.4_change_chlorophyll
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_change_chlorophyll/cfgs/SHARED/namelist_ref

    r14075 r15678  
    376376   rn_si0      =   0.35       !  RGB & 2BD: shortess depth of extinction 
    377377   nn_chldta   =      0       !  RGB : Chl data (=1) or cst value (=0) 
     378   rn_chl_conc =   0.05       !  Chlorophyll concentration (for nn_chldta=0) 
    378379   rn_si1      =   23.0       !  2BD : longest depth of extinction 
    379380    
  • NEMO/branches/UKMO/NEMO_4.0.4_change_chlorophyll/src/OCE/TRA/traqsr.F90

    r14075 r15678  
    4848   LOGICAL , PUBLIC ::   ln_qsr_bio   !: bio-model      light absorption flag 
    4949   INTEGER , PUBLIC ::   nn_chldta    !: use Chlorophyll data (=1) or not (=0) 
     50   REAL(wp), PUBLIC ::   rn_chl_conc  !: Chlorophyll concentration (for nn_chldta=0) 
    5051   REAL(wp), PUBLIC ::   rn_abs       !: fraction absorbed in the very near surface (RGB & 2 bands) 
    5152   REAL(wp), PUBLIC ::   rn_si0       !: very near surface depth of extinction      (RGB & 2 bands) 
     
    190191         ELSE                                !* constant chrlorophyll 
    191192           DO jk = 1, nksr + 1 
    192               zchl3d(:,:,jk) = 0.05  
     193              zchl3d(:,:,jk) = rn_chl_conc 
    193194            ENDDO 
    194195         ENDIF 
     
    333334      !! 
    334335      NAMELIST/namtra_qsr/  sn_chl, cn_dir, ln_qsr_rgb, ln_qsr_2bd, ln_qsr_bio,  & 
    335          &                  nn_chldta, rn_abs, rn_si0, rn_si1 
     336         &                  nn_chldta, rn_abs, rn_chl_conc, rn_si0, rn_si1 
    336337      !!---------------------------------------------------------------------- 
    337338      ! 
     
    354355         WRITE(numout,*) '      bio-model            light penetration       ln_qsr_bio = ', ln_qsr_bio 
    355356         WRITE(numout,*) '      RGB : Chl data (=1) or cst value (=0)        nn_chldta  = ', nn_chldta 
     357         WRITE(numout,*) '      Chlorophyll concentration (for nn_chldta=0)  rn_chl_conc = ', rn_chl_conc 
    356358         WRITE(numout,*) '      RGB & 2 bands: fraction of light (rn_si1)    rn_abs     = ', rn_abs 
    357359         WRITE(numout,*) '      RGB & 2 bands: shortess depth of extinction  rn_si0     = ', rn_si0 
Note: See TracChangeset for help on using the changeset viewer.