Changeset 15678
- Timestamp:
- 2022-01-27T18:22:56+01:00 (3 years ago)
- 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 376 376 rn_si0 = 0.35 ! RGB & 2BD: shortess depth of extinction 377 377 nn_chldta = 0 ! RGB : Chl data (=1) or cst value (=0) 378 rn_chl_conc = 0.05 ! Chlorophyll concentration (for nn_chldta=0) 378 379 rn_si1 = 23.0 ! 2BD : longest depth of extinction 379 380 -
NEMO/branches/UKMO/NEMO_4.0.4_change_chlorophyll/src/OCE/TRA/traqsr.F90
r14075 r15678 48 48 LOGICAL , PUBLIC :: ln_qsr_bio !: bio-model light absorption flag 49 49 INTEGER , PUBLIC :: nn_chldta !: use Chlorophyll data (=1) or not (=0) 50 REAL(wp), PUBLIC :: rn_chl_conc !: Chlorophyll concentration (for nn_chldta=0) 50 51 REAL(wp), PUBLIC :: rn_abs !: fraction absorbed in the very near surface (RGB & 2 bands) 51 52 REAL(wp), PUBLIC :: rn_si0 !: very near surface depth of extinction (RGB & 2 bands) … … 190 191 ELSE !* constant chrlorophyll 191 192 DO jk = 1, nksr + 1 192 zchl3d(:,:,jk) = 0.05193 zchl3d(:,:,jk) = rn_chl_conc 193 194 ENDDO 194 195 ENDIF … … 333 334 !! 334 335 NAMELIST/namtra_qsr/ sn_chl, cn_dir, ln_qsr_rgb, ln_qsr_2bd, ln_qsr_bio, & 335 & nn_chldta, rn_abs, rn_ si0, rn_si1336 & nn_chldta, rn_abs, rn_chl_conc, rn_si0, rn_si1 336 337 !!---------------------------------------------------------------------- 337 338 ! … … 354 355 WRITE(numout,*) ' bio-model light penetration ln_qsr_bio = ', ln_qsr_bio 355 356 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 356 358 WRITE(numout,*) ' RGB & 2 bands: fraction of light (rn_si1) rn_abs = ', rn_abs 357 359 WRITE(numout,*) ' RGB & 2 bands: shortess depth of extinction rn_si0 = ', rn_si0
Note: See TracChangeset
for help on using the changeset viewer.