Changeset 15304 for NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcwri.F90

Timestamp:

2021-09-30T16:51:27+02:00 (3 years ago)

Author:

jpalmier

Message:

MO system don't like externals....
have to adapt.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcwri.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcwri.F90

@@ -18 +18 @@
    USE dianam      ! Output file name
    USE trcwri_pisces
+   USE trcwri_medusa
    USE trcwri_cfc
    USE trcwri_c14
@@ -66 +67 @@
       ! ---------------------------------------
       IF( ln_pisces  )   CALL trc_wri_pisces     ! PISCES 
+      IF( ln_medusa  )   CALL trc_wri_medusa     ! MEDUSA 
       IF( ll_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC
       IF( ln_c14     )   CALL trc_wri_c14        ! surface fluxes of C14
@@ -88 +90 @@
    !!----------------------------------------------------------------------
    !! NEMO/TOP 4.0 , NEMO Consortium (2018)
-   !! $Id$
+   !! $Id: trcwri.F90 12280 2019-12-21 10:42:44Z cetlod $ 
    !! Software governed by the CeCILL license (see ./LICENSE)
    !!======================================================================