Changeset 7693 for branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

Timestamp:

2017-02-17T16:38:26+01:00 (7 years ago)

Author:

frrh

Message:

Merge in branches/NERC/dev_r5518_NOC_MEDUSA_Stable from revision range
r 5711:7611 (i.e. the entire branch)

File:

• branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/trcwri.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

@@ -5 +5 @@
    !!======================================================================
    !! History :   1.0  !  2009-05 (C. Ethe)  Original code
+   !!              -   !  2014-06 (A. Yool, J. Palmieri) adding MEDUSA-2
    !!----------------------------------------------------------------------
 #if defined key_top && defined key_iomput
@@ -21 +22 @@
    USE trcwri_c14b
    USE trcwri_my_trc
+   USE trcwri_medusa
+   USE trcwri_idtra
+   USE trcwri_age
 
    IMPLICIT NONE
@@ -57 +61 @@
       ! ---------------------------------------
       IF( lk_pisces  )   CALL trc_wri_pisces     ! PISCES 
+      IF( lk_medusa  )   CALL trc_wri_medusa     ! MESDUSA
+      IF( lk_idtra   )   CALL trc_wri_idtra       ! Idealize tracers
       IF( lk_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC
       IF( lk_c14b    )   CALL trc_wri_c14b       ! surface fluxes of C14
+      IF( lk_age     )   CALL trc_wri_age        ! AGE tracer
       IF( lk_my_trc  )   CALL trc_wri_my_trc     ! MY_TRC  tracers
       !