Changeset 13677 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

Timestamp:

2020-10-26T18:37:31+01:00 (3 years ago)

Author:

dford

Message:

Add option for MEDUSA to use RGB light scheme.

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

@@ -317 +317 @@
    REAL(wp) ::   xlg        !: exposant for pigment absorption in green (NAMELIST)
    REAL(wp) ::   rpig       !: chla/chla+phea ratio                     (NAMELIST)
+   LOGICAL  ::   ln_rgb     !: use RGB light scheme rather than 2-band  (NAMELIST)
                                                         
    INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   neln    !: number of levels in the euphotic layer