source: NEMO/trunk/src/TOP/MY_TRC/trcwri_my_trc.F90 @ 10069

Last change on this file since 10069 was 10069, checked in by nicolasmartin, 3 years ago

Fix mistakes of previous commit on SVN keywords property

  • Property svn:keywords set to Id
File size: 1.9 KB
Line 
1MODULE trcwri_my_trc
2   !!======================================================================
3   !!                       *** MODULE trcwri ***
4   !!     trc_wri_my_trc   :  outputs of concentration fields
5   !!======================================================================
6#if defined key_top && defined key_iomput
7   !!----------------------------------------------------------------------
8   !! History :      !  2007  (C. Ethe, G. Madec)  Original code
9   !!                !  2016  (C. Ethe, T. Lovato) Revised architecture
10   !!----------------------------------------------------------------------
11   USE par_trc         ! passive tracers common variables
12   USE trc         ! passive tracers common variables
13   USE iom         ! I/O manager
14
15   IMPLICIT NONE
16   PRIVATE
17
18   PUBLIC trc_wri_my_trc 
19
20   !!----------------------------------------------------------------------
21   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
22   !! $Id$
23   !! Software governed by the CeCILL license (see ./LICENSE)
24   !!----------------------------------------------------------------------
25CONTAINS
26
27   SUBROUTINE trc_wri_my_trc
28      !!---------------------------------------------------------------------
29      !!                     ***  ROUTINE trc_wri_trc  ***
30      !!
31      !! ** Purpose :   output passive tracers fields
32      !!---------------------------------------------------------------------
33      CHARACTER (len=20)   :: cltra
34      INTEGER              :: jn
35      !!---------------------------------------------------------------------
36 
37      ! write the tracer concentrations in the file
38      ! ---------------------------------------
39      DO jn = jp_myt0, jp_myt1
40         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
41         CALL iom_put( cltra, trn(:,:,:,jn) )
42      END DO
43      !
44   END SUBROUTINE trc_wri_my_trc
45
46#else
47
48CONTAINS
49
50   SUBROUTINE trc_wri_my_trc
51      !
52   END SUBROUTINE trc_wri_my_trc
53
54#endif
55
56END MODULE trcwri_my_trc
Note: See TracBrowser for help on using the repository browser.