source: branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90 @ 7953

Last change on this file since 7953 was 7646, checked in by timgraham, 4 years ago

Merge of dev_merge_2016 into trunk. UPDATE TO ARCHFILES NEEDED for XIOS2.
LIM_SRC_s/limrhg.F90 to follow in next commit due to change of kind (I'm unable to do it in this commit).
Merged using the following steps:

1) svn merge —reintegrate svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk .
2) Resolve minor conflicts in sette.sh and namelist_cfg for ORCA2LIM3 (due to a change in trunk after branch was created)
3) svn commit
4) svn switch svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
5) svn merge svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2016/dev_merge_2016 .
6) At this stage I checked out a clean copy of the branch to compare against what is about to be committed to the trunk.
6) svn commit #Commit code to the trunk

In this commit I have also reverted a change to Fcheck_archfile.sh which was causing problems on the Paris machine.

File size: 2.0 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 (2016)
22   !! $Id$
23   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
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.