Changeset 13459 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

Timestamp:

2020-09-11T12:55:28+02:00 (4 years ago)

Author:

dford

Message:

Fix for getting SWR.

File:

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

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

@@ -134 +134 @@
       jp_fabm_o3pc  = fabm_diag_index( 'O3_pCO2' )
       jp_fabm_xeps  = fabm_diag_index( 'light_xEPS' )
+      jp_fabm_swr   = fabm_diag_index( 'light_swr_abs' )
       jp_fabm_pgrow = fabm_diag_index( 'p_grow_sum_result' )
       jp_fabm_ploss = fabm_diag_index( 'p_loss_sum_result' )