Changeset 13504


Ignore:
Timestamp:
2020-09-23T11:41:06+02:00 (4 months ago)
Author:
dford
Message:

Update for getting kd490 from spectral optical model.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_utils366_fabmv1_v2/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r13487 r13504  
    16821682                  &           ' but MEDUSA does not explicitly simulate Kd490' ) 
    16831683#elif defined key_fabm 
    1684                ! light_xEPS diagnostic variable 
    1685                fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_xeps) 
     1684               ! light_Kd_band3 diagnostic variable if using spectral optical model 
     1685               ! light_xEPS diagnostic variable if using standard ERSEM light model 
     1686               IF ( jp_fabm_kd490 /= -1 ) THEN 
     1687                  fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_kd490) 
     1688               ELSEIF ( jp_fabm_xeps /= -1 ) THEN 
     1689                  fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_xeps) 
     1690               ELSE 
     1691                  CALL ctl_stop( ' Trying to run skd490 observation operator', & 
     1692                     &           ' but cannot access Kd490 from ERSEM' ) 
     1693               ENDIF 
    16861694               zsurfvar(:,:,1) = fabm_3d(:,:,1) 
    16871695#else 
Note: See TracChangeset for help on using the changeset viewer.