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 10241 for branches/UKMO/AMM15_v3_6_STABLE_package_bgc_updates/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90 – NEMO

Ignore:
Timestamp:
2018-10-26T18:02:18+02:00 (5 years ago)
Author:
dford
Message:

Add visibility diagnostic (can't currently be done via fabm.yaml without changing the FABM code).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/AMM15_v3_6_STABLE_package_bgc_updates/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90

    r10156 r10241  
    3737 
    3838   USE fabm 
     39   USE par_fabm 
    3940 
    4041   IMPLICIT NONE 
    … …  
    118119      CALL trc_bc_read  ( kt )       ! tracers: surface and lateral Boundary Conditions 
    119120      CALL trc_rnf_fabm ( kt ) ! River forcings 
     121       
     122      visib(:,:,:) = 1.7 / fabm_get_bulk_diagnostic_data(model, jp_fabm_xeps) 
    120123 
    121124      IF( l_trdtrc ) THEN      ! Save the trends in the mixed layer 
Note: See TracChangeset for help on using the changeset viewer.