Changeset 13677 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_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/trcnam_medusa.F90 (modified) (4 diffs)

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

@@ -94 +94 @@
       &    xthetarem,xo2min 
 #endif
-      NAMELIST/natopt/xkg0,xkr0,xkgp,xkrp,xlg,xlr,rpig
+      NAMELIST/natopt/xkg0,xkr0,xkgp,xkrp,xlg,xlr,rpig,ln_rgb
       INTEGER :: jl, jn
       INTEGER :: ios                 ! Local integer output status for namelist read
@@ -1097 +1097 @@
       xlr   = 0.
       rpig  = 0.
+      ln_rgb = .false.
 
       !READ(numnatm,natopt)
@@ -1120 +1121 @@
          WRITE(numout,*) ' red   chl exposant              xlr   = ',xlr
          WRITE(numout,*) ' chla/chla+phea ratio            rpig  = ',rpig
+         WRITE(numout,*) ' use RGB scheme                ln_rgb  = ',ln_rgb
          WRITE(numout,*) ' '
 
@@ -1533 +1535 @@
           med_diag%MED_XPAR%dgsave = .FALSE.
       ENDIF
+      IF  (iom_use("MED_XPAR3")) THEN 
+          med_diag%MED_XPAR3%dgsave = .TRUE.
+      ELSE 
+          med_diag%MED_XPAR3%dgsave = .FALSE.
+      ENDIF
       IF  (iom_use("INTFLX_N")) THEN 
           med_diag%INTFLX_N%dgsave = .TRUE.