source: branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcwri_idtra.F90

Last change on this file was 5712, checked in by acc, 6 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.6 KB
Line 
1MODULE trcwri_idtra
2   !!======================================================================
3   !!                       *** MODULE trcwri ***
4   !!    IDEALIZED Tracer :   Output of IDEALIZED Tracer tracers
5   !!======================================================================
6   !! History :   1.0  !  2009-05 (C. Ethe)  Original code
7   !!             1.1  !  2013-05 (A. Yool)  converted for MEDUSA
8   !!----------------------------------------------------------------------
9#if defined key_top && defined key_iomput && defined key_idtra
10   !!----------------------------------------------------------------------
11   !!   'key_idtra'                                           IDEALIZED Tracer model
12   !!----------------------------------------------------------------------
13   !! trc_wri_idtra   :  outputs of concentration fields
14   !!----------------------------------------------------------------------
15   USE oce_trc         ! Ocean variables
16   USE par_trc         ! TOP parameters
17   USE trc             ! passive tracers common variables
18   USE trcsms_idtra    ! IDEALIZE TRACER sms trends
19   USE iom             ! I/O manager
20
21   IMPLICIT NONE
22   PRIVATE
23
24   PUBLIC trc_wri_idtra
25
26CONTAINS
27
28   SUBROUTINE trc_wri_idtra
29      !!---------------------------------------------------------------------
30      !!                     ***  ROUTINE trc_wri_trc  ***
31      !!
32      !! ** Purpose :   output passive tracers fields
33      !!---------------------------------------------------------------------
34      CHARACTER (len=20)   :: cltra
35      INTEGER              :: jn
36      !!---------------------------------------------------------------------
37
38      ! write the tracer concentrations in the file
39      ! ---------------------------------------
40      DO jn = jp_idtra0, jp_idtra1
41         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
42         CALL iom_put( cltra, trn(:,:,:,jn) )
43      END DO
44      !
45   END SUBROUTINE trc_wri_idtra
46
47#else
48   !!----------------------------------------------------------------------
49   !!  Dummy module :                                     No passive tracer
50   !!----------------------------------------------------------------------
51   PUBLIC trc_wri_idtra
52CONTAINS
53   SUBROUTINE trc_wri_idtra                     ! Empty routine 
54   END SUBROUTINE trc_wri_idtra
55#endif
56
57   !!----------------------------------------------------------------------
58   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
59   !! $Id$
60   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
61   !!======================================================================
62END MODULE trcwri_idtra
63
Note: See TracBrowser for help on using the repository browser.