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_c14b.F90 in branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/TOP_SRC/C14b – NEMO

source: branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/TOP_SRC/C14b/trcwri_c14b.F90 @ 5666

Last change on this file since 5666 was 5666, checked in by deazer, 9 years ago

Upgraded branch to VERSION 3 6 STABLE

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