Changeset 14586 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_readchl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcopt_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/trcopt_medusa.F90 (modified) (1 diff)

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

@@ -126 +126 @@
             DO jj = 1, jpj
                DO ji = 1, jpi
-                  !totchl = trn(ji,jj,jk,jpchn) + trn(ji,jj,jk,jpchd)
-                  totchl = chl_for_qsr(ji,jj,jk)
+                  IF ( ln_chlbio ) THEN
+                     totchl = chl_for_qsr(ji,jj,jk)
+                  ELSE
+                     totchl = trn(ji,jj,jk,jpchn) + trn(ji,jj,jk,jpchd)
+                  ENDIF
                   totchl = MIN( 10. , MAX( 0.05, totchl ) )
                   irgb = NINT( 41 + 20.* LOG10( totchl ) + 1.e-15 )