New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trcwri_age.F90 in branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/AGE – NEMO

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

Last change on this file since 9204 was 6715, checked in by jpalmier, 8 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.