Changeset 13504

Timestamp:

2020-09-23T11:41:06+02:00 (3 years ago)

Author:

dford

Message:

Update for getting kd490 from spectral optical model.

File:

• branches/UKMO/dev_r5518_obs_oper_update_utils366_fabmv1_v2/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_obs_oper_update_utils366_fabmv1_v2/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -1682 +1682 @@
                   &           ' but MEDUSA does not explicitly simulate Kd490' )
 #elif defined key_fabm
-               ! light_xEPS diagnostic variable
-               fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_xeps)
+               ! light_Kd_band3 diagnostic variable if using spectral optical model
+               ! light_xEPS diagnostic variable if using standard ERSEM light model
+               IF ( jp_fabm_kd490 /= -1 ) THEN
+                  fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_kd490)
+               ELSEIF ( jp_fabm_xeps /= -1 ) THEN
+                  fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_xeps)
+               ELSE
+                  CALL ctl_stop( ' Trying to run skd490 observation operator', &
+                     &           ' but cannot access Kd490 from ERSEM' )
+               ENDIF
                zsurfvar(:,:,1) = fabm_3d(:,:,1)
 #else