Changeset 14586 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_readchl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

Timestamp:

2021-03-04T16:29:51+01:00 (3 years ago)

Author:

dford

Message:

Allow just physics to use input chlorophyll.

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14_readchl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_FOAMv14_readchl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

@@ -94 +94 @@
       &    xthetarem,xo2min 
 #endif
-      NAMELIST/natopt/xkg0,xkr0,xkgp,xkrp,xlg,xlr,rpig,ln_rgb
+      NAMELIST/natopt/xkg0,xkr0,xkgp,xkrp,xlg,xlr,rpig,ln_rgb,ln_chlbio
       INTEGER :: jl, jn
       INTEGER :: ios                 ! Local integer output status for namelist read
@@ -1098 +1098 @@
       rpig  = 0.
       ln_rgb = .false.
+      ln_chlbio = .true.
 
       !READ(numnatm,natopt)
@@ -1122 +1123 @@
          WRITE(numout,*) ' chla/chla+phea ratio            rpig  = ',rpig
          WRITE(numout,*) ' use RGB scheme                ln_rgb  = ',ln_rgb
+         WRITE(numout,*) '                            ln_chlbio  = ',ln_chlbio
          WRITE(numout,*) ' '