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 NEMO/branches/UKMO/NEMO4_beta_mirror/src/TOP/MY_TRC – NEMO

source: NEMO/branches/UKMO/NEMO4_beta_mirror/src/TOP/MY_TRC/trcwri_my_trc.F90 @ 10325

Last change on this file since 10325 was 10325, checked in by davestorkey, 5 years ago

UKMO/NEMO4_beta_mirror branch: clear SVN keywords.

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.