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_my_trc.F90 in branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MY_TRC – NEMO

source: branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90

Last change on this file was 5712, checked in by acc, 9 years ago

Branch NERC/dev_r5107_NOC_MEDUSA. Remove extra blanks from the ends of the SVN keyword lines that cause unnecessary conflicts with fcm_make

File size: 2.4 KB
Line 
1MODULE trcwri_my_trc
2   !!======================================================================
3   !!                       *** MODULE trcwri ***
4   !!    my_trc :   Output of my_trc tracers
5   !!======================================================================
6   !! History :   1.0  !  2009-05 (C. Ethe)  Original code
7   !!----------------------------------------------------------------------
8#if defined key_top && key_my_trc && defined key_iomput
9   !!----------------------------------------------------------------------
10   !!   'key_my_trc'                                           my_trc model
11   !!----------------------------------------------------------------------
12   !! trc_wri_my_trc   :  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_my_trc 
21
22#  include "top_substitute.h90"
23CONTAINS
24
25   SUBROUTINE trc_wri_my_trc
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_myt0, jp_myt1
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_my_trc
43
44#else
45   !!----------------------------------------------------------------------
46   !!  Dummy module :                                     No passive tracer
47   !!----------------------------------------------------------------------
48   PUBLIC trc_wri_my_trc
49CONTAINS
50   SUBROUTINE trc_wri_my_trc                     ! Empty routine 
51   END SUBROUTINE trc_wri_my_trc
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_my_trc
Note: See TracBrowser for help on using the repository browser.