Changeset 13505 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_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/trcsms_fabm.F90 (modified) (1 diff)

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

@@ -577 +577 @@
       model%interior_diagnostic_variables(jp_fabm_o3ph)%save = .TRUE.
       model%interior_diagnostic_variables(jp_fabm_o3pc)%save = .TRUE.
-      model%interior_diagnostic_variables(jp_fabm_xeps)%save = .TRUE.
       model%interior_diagnostic_variables(jp_fabm_pgrow)%save = .TRUE.
       model%interior_diagnostic_variables(jp_fabm_ploss)%save = .TRUE.
       IF( ln_qsr_spec ) THEN
          model%interior_diagnostic_variables(jp_fabm_swr)%save = .TRUE.
+      ENDIF
+      IF ( jp_fabm_kd490 /= -1 ) THEN
+         model%interior_diagnostic_variables(jp_fabm_kd490)%save = .TRUE.
+      ENDIF
+      IF ( jp_fabm_xeps /= -1 ) THEN
+         model%interior_diagnostic_variables(jp_fabm_xeps)%save = .TRUE.
       ENDIF
       DO jn=1,size(model%horizontal_diagnostic_variables)