source: branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcwri_medusa.F90 @ 9309

Last change on this file since 9309 was 5726, checked in by jpalmier, 5 years ago

JPALM — 10-09-2015 — add MEDUSA in the branch ; adapted TOP_SRC to MEDUSA ; remove some svn keywords in the branch

File size: 2.5 KB
Line 
1MODULE trcwri_medusa
2   !!======================================================================
3   !!                       *** MODULE trcwri ***
4   !!    MEDUSA :   Output of MEDUSA 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_medusa
10   !!----------------------------------------------------------------------
11   !!   'key_medusa'                                           MEDUSA model
12   !!----------------------------------------------------------------------
13   !! trc_wri_medusa   :  outputs of concentration fields
14   !!----------------------------------------------------------------------
15   USE trc         ! passive tracers common variables
16   USE sms_medusa  ! MEDUSA variables
17   USE iom         ! I/O manager
18
19   IMPLICIT NONE
20   PRIVATE
21
22   PUBLIC trc_wri_medusa 
23
24CONTAINS
25
26   SUBROUTINE trc_wri_medusa
27      !!---------------------------------------------------------------------
28      !!                     ***  ROUTINE trc_wri_trc  ***
29      !!
30      !! ** Purpose :   output passive tracers fields
31      !!---------------------------------------------------------------------
32      CHARACTER (len=20)   :: cltra
33      INTEGER              :: jn
34      !!---------------------------------------------------------------------
35 
36      ! write the tracer concentrations in the file
37      ! ---------------------------------------
38      DO jn = jp_msa0, jp_msa1
39         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
40         CALL iom_put( cltra, trn(:,:,:,jn) )
41      END DO
42      !
43   END SUBROUTINE trc_wri_medusa
44
45#else
46   !!----------------------------------------------------------------------
47   !!  Dummy module :                                     No passive tracer
48   !!----------------------------------------------------------------------
49   PUBLIC trc_wri_medusa
50CONTAINS
51   SUBROUTINE trc_wri_medusa                     ! Empty routine 
52   END SUBROUTINE trc_wri_medusa
53#endif
54
55   !!----------------------------------------------------------------------
56   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
57   !! $Id$
58   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
59   !!======================================================================
60END MODULE trcwri_medusa
Note: See TracBrowser for help on using the repository browser.