source: branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90 @ 5266

Last change on this file since 5266 was 5266, checked in by cetlod, 6 years ago

PISCES_QUOTA : First commits, see ticket #1516

File size: 3.3 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 || defined key_pisces_quota)
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
23#  include "top_substitute.h90"
24CONTAINS
25
26   SUBROUTINE trc_wri_pisces
27      !!---------------------------------------------------------------------
28      !!                     ***  ROUTINE trc_wri_trc  ***
29      !!
30      !! ** Purpose :   output passive tracers fields
31      !!---------------------------------------------------------------------
32      CHARACTER (len=20)   :: cltra
33      REAL(wp)             :: zrfact
34      INTEGER              :: jn
35      !!---------------------------------------------------------------------
36 
37      ! write the tracer concentrations in the file
38      ! ---------------------------------------
39#if defined key_pisces_reduced
40      DO jn = jp_pcs0, jp_pcs1
41         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
42         IF( lk_vvl ) THEN
43            CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) )
44         ELSE
45            CALL iom_put( cltra, trn(:,:,:,jn) )
46         ENDIF
47         CALL iom_put( cltra, trn(:,:,:,jn) * zrfact )
48      END DO
49#else
50      DO jn = jp_pcs0, jp_pcs1
51         zrfact = 1.0e+6 
52         IF( jn == jpno3 .OR. jn == jpnh4 ) zrfact = rno3 * 1.0e+6 
53         IF( jn == jppo4  )                 zrfact = po4r * 1.0e+6
54         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
55         IF( lk_vvl ) THEN
56            CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) * zrfact )
57         ELSE
58            CALL iom_put( cltra, trn(:,:,:,jn) * zrfact )
59         ENDIF
60      END DO
61#endif
62      !
63   END SUBROUTINE trc_wri_pisces
64
65#else
66   !!----------------------------------------------------------------------
67   !!  Dummy module :                                     No passive tracer
68   !!----------------------------------------------------------------------
69   PUBLIC trc_wri_pisces
70CONTAINS
71   SUBROUTINE trc_wri_pisces                     ! Empty routine 
72   END SUBROUTINE trc_wri_pisces
73#endif
74
75   !!----------------------------------------------------------------------
76   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
77   !! $Id: trcwri_pisces.F90 3160 2011-11-20 14:27:18Z cetlod $
78   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
79   !!======================================================================
80END MODULE trcwri_pisces
Note: See TracBrowser for help on using the repository browser.