source: branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/AGE/trcwri_age.F90 @ 9260

Last change on this file since 9260 was 6715, checked in by jpalmier, 5 years ago

JPALM — 16-06-2016 — MEDUSA branch update :

— pass co2 flux and dms_surf through restart for atm coupling.
— introduce CFC cycle for dynamic evolution comparison
— add Tim Graham Age tracer
— include MEDUSA Q10 modif
— svn-key removed
— still need debug stage

  • Property svn:executable set to *
File size: 2.3 KB
Line 
1MODULE trcwri_age
2   !!======================================================================
3   !!                       *** MODULE trcwri ***
4   !!    age :   Output of age tracers
5   !!======================================================================
6   !! History :   1.0  !  2009-05 (C. Ethe)  Original code
7   !!----------------------------------------------------------------------
8#if defined key_top && defined key_age && defined key_iomput
9   !!----------------------------------------------------------------------
10   !!   'key_age'                                           age model
11   !!----------------------------------------------------------------------
12   !! trc_wri_age   :  outputs of concentration fields
13   !!----------------------------------------------------------------------
14   USE par_age     
15   USE trc         
16   USE iom
17
18   IMPLICIT NONE
19   PRIVATE
20
21   PUBLIC trc_wri_age 
22
23#  include "top_substitute.h90"
24CONTAINS
25
26   SUBROUTINE trc_wri_age
27      !!---------------------------------------------------------------------
28      !!                     ***  ROUTINE trc_wri_trc  ***
29      !!
30      !! ** Purpose :   output passive tracers fields
31      !!---------------------------------------------------------------------
32      CHARACTER (len=20)   :: cltra
33      INTEGER              :: jn
34      !!---------------------------------------------------------------------
35
36 
37      ! write the tracer concentrations in the file
38      ! ---------------------------------------
39      DO jn = jp_age0, jp_age1
40         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
41         CALL iom_put( TRIM(cltra), trn(:,:,:,jn) )
42      END DO
43      !
44      !
45   END SUBROUTINE trc_wri_age
46
47#else
48   !!----------------------------------------------------------------------
49   !!  Dummy module :                                     No passive tracer
50   !!----------------------------------------------------------------------
51   PUBLIC trc_wri_age
52CONTAINS
53   SUBROUTINE trc_wri_age                     ! Empty routine 
54   END SUBROUTINE trc_wri_age
55#endif
56
57   !!----------------------------------------------------------------------
58   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
59   !! $Id$
60   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
61   !!======================================================================
62END MODULE trcwri_age
Note: See TracBrowser for help on using the repository browser.