Changeset 10366 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90

Timestamp:

2018-12-03T12:26:33+01:00 (5 years ago)

Author:

dford

Message:

Remove visibility, as now available through FABM, and switch from deprecated get_bulk to get_interior.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90 (modified) (2 diffs)

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

@@ -37 +37 @@
 
    USE fabm
-   USE par_fabm
 
    IMPLICIT NONE
@@ -119 +118 @@
       CALL trc_bc_read  ( kt )       ! tracers: surface and lateral Boundary Conditions
       CALL trc_rnf_fabm ( kt ) ! River forcings
-      
-      visib(:,:,:) = 1.7 / fabm_get_bulk_diagnostic_data(model, jp_fabm_xeps)
 
       IF( l_trdtrc ) THEN      ! Save the trends in the mixed layer