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

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

@@ -54 +54 @@
                                    zn_sed_c, zn_sed_ca, zn_sed_fe,      &
                                    zn_sed_n, zn_sed_si, zn_chl_srf,     &
-                                   scl_chl, chl_out
+                                   scl_chl,  chl_out,   xpar
       USE trc,               ONLY: med_diag, nittrc000, trn 
       USE trcnam_trp,        ONLY: ln_trcadv_cen2, ln_trcadv_tvd
@@ -749 +749 @@
              DEALLOCATE( remin3dn )
           ENDIF
+          IF( med_diag%MED_XPAR3%dgsave ) THEN
+             CALL iom_put( "MED_XPAR3" , xpar )
+          ENDIF  
 # if defined key_roam          
           IF( med_diag%PH3%dgsave ) THEN