Changeset 13505 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

Timestamp:

2020-09-23T11:43:55+02:00 (4 years ago)

Author:

dford

Message:

Get kd490 from spectral optical model.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90 (modified) (1 diff)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

@@ -135 +135 @@
       jp_fabm_xeps  = fabm_diag_index( 'light_xEPS' )
       jp_fabm_swr   = fabm_diag_index( 'light_swr_abs' )
+      jp_fabm_kd490 = fabm_diag_index( 'light_Kd_band3' )
       jp_fabm_pgrow = fabm_diag_index( 'p_grow_sum_result' )
       jp_fabm_ploss = fabm_diag_index( 'p_loss_sum_result' )