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_medusa.F90 in branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA – NEMO

source: branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcwri_medusa.F90 @ 5707

Last change on this file since 5707 was 5707, checked in by acc, 9 years ago

JPALM --25-08-2015 -- add MEDUSA in the branch. MEDUSA version already up-to-date with this trunk revision

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: trcwri_medusa.F90 3160 2011-11-20 14:27:18Z cetlod $
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.