New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13504 – NEMO

Changeset 13504


Ignore:
Timestamp:
2020-09-23T11:41:06+02:00 (4 years 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.