source: branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90 @ 4291

Last change on this file since 4291 was 3680, checked in by rblod, 8 years ago

First commit of the final branch for 2012 (future nemo_3_5), see ticket #1028

File size: 2.9 KB
Line 
1MODULE trcwri_pisces
2   !!======================================================================
3   !!                       *** MODULE trcwri ***
4   !!    PISCES :   Output of PISCES tracers
5   !!======================================================================
6   !! History :   1.0  !  2009-05 (C. Ethe)  Original code
7   !!----------------------------------------------------------------------
8#if defined key_top && defined key_iomput && ( defined key_pisces || defined key_pisces_reduced )
9   !!----------------------------------------------------------------------
10   !!   'key_pisces or key_pisces_reduced'                     PISCES model
11   !!----------------------------------------------------------------------
12   !! trc_wri_pisces   :  outputs of concentration fields
13   !!----------------------------------------------------------------------
14   USE trc         ! passive tracers common variables
15   USE sms_pisces  ! PISCES variables
16   USE iom         ! I/O manager
17
18   IMPLICIT NONE
19   PRIVATE
20
21   PUBLIC trc_wri_pisces 
22
23CONTAINS
24
25   SUBROUTINE trc_wri_pisces
26      !!---------------------------------------------------------------------
27      !!                     ***  ROUTINE trc_wri_trc  ***
28      !!
29      !! ** Purpose :   output passive tracers fields
30      !!---------------------------------------------------------------------
31      CHARACTER (len=20)   :: cltra
32      REAL(wp)             :: zrfact
33      INTEGER              :: jn
34      !!---------------------------------------------------------------------
35 
36      ! write the tracer concentrations in the file
37      ! ---------------------------------------
38#if defined key_pisces_reduced
39      DO jn = jp_pcs0, jp_pcs1
40         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
41         CALL iom_put( cltra, trn(:,:,:,jn) * zrfact )
42      END DO
43#else
44      DO jn = jp_pcs0, jp_pcs1
45         zrfact = 1.0e+6 
46         IF( jn == jpno3 .OR. jn == jpnh4 ) zrfact = rno3 * 1.0e+6 
47         IF( jn == jppo4  )                 zrfact = po4r * 1.0e+6
48         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
49         CALL iom_put( cltra, trn(:,:,:,jn) * zrfact )
50      END DO
51#endif
52      !
53   END SUBROUTINE trc_wri_pisces
54
55#else
56   !!----------------------------------------------------------------------
57   !!  Dummy module :                                     No passive tracer
58   !!----------------------------------------------------------------------
59   PUBLIC trc_wri_pisces
60CONTAINS
61   SUBROUTINE trc_wri_pisces                     ! Empty routine 
62   END SUBROUTINE trc_wri_pisces
63#endif
64
65   !!----------------------------------------------------------------------
66   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
67   !! $Id: trcwri_pisces.F90 3160 2011-11-20 14:27:18Z cetlod $
68   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
69   !!======================================================================
70END MODULE trcwri_pisces
Note: See TracBrowser for help on using the repository browser.