Changeset 7567 for branches/UKMO/CO6_shelfclimate/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

Timestamp:

2017-01-16T20:11:00+01:00 (7 years ago)

Author:

hadjt

Message:

CO6 version adapted for shelf seas climate projections, including added diagnostics

File:

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

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

@@ -32 +32 @@
 CONTAINS
 
+#if defined key_tracer_budget
+   SUBROUTINE trc_wri( kt , fl)  !slwa
+#else
    SUBROUTINE trc_wri( kt )
+#endif
       !!---------------------------------------------------------------------
       !!                     ***  ROUTINE trc_wri  ***
@@ -39 +43 @@
       !!---------------------------------------------------------------------
       INTEGER, INTENT( in )     :: kt
+#if defined key_tracer_budget
+      INTEGER, INTENT( in ), OPTIONAL     :: fl  ! slwa
+#endif
       !
       INTEGER                   :: jn
@@ -59 +66 @@
       IF( lk_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC
       IF( lk_c14b    )   CALL trc_wri_c14b       ! surface fluxes of C14
+#if defined key_tracer_budget
+      IF( .NOT.PRESENT(fl) .AND. lk_my_trc  )   CALL trc_wri_my_trc (kt)     ! MY_TRC  tracers   slwa
+      IF( PRESENT(fl) .AND. lk_my_trc  )   CALL trc_wri_my_trc (kt, fl)    ! MY_TRC  tracers for budget slwa
+#else
       IF( lk_my_trc  )   CALL trc_wri_my_trc     ! MY_TRC  tracers
+#endif
       !
       IF( nn_timing == 1 )  CALL timing_stop('trc_wri')