Changeset 10241 for branches/UKMO/AMM15_v3_6_STABLE_package_bgc_updates/NEMOGCM/NEMO/TOP_SRC/trc.F90

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:

• branches/UKMO/AMM15_v3_6_STABLE_package_bgc_updates/NEMOGCM/NEMO/TOP_SRC/trc.F90 (modified) (2 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_bgc_updates/NEMOGCM/NEMO/TOP_SRC/trc.F90

@@ -149 +149 @@
    LOGICAL            , PUBLIC                                        ::  ln_diatrc      !: boolean term for additional diagnostic
    INTEGER            , PUBLIC                                        ::  nn_writedia    !: frequency of additional outputs
+#if defined key_fabm
+   REAL(wp)           , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  visib          !: visibility
+#endif
 
    !! Biological trends
@@ -253 +256 @@
 ! FABM <<<+++
          &      ln_trc_sbc(jptra)     , ln_trc_cbc(jptra)     , ln_trc_obc(jptra)     ,       &
+         &      visib(jpi,jpj,jpk)    ,                                                       &
 #endif
 #if defined key_bdy