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_cfc.F90 in branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/TOP_SRC/CFC – NEMO

source: branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/TOP_SRC/CFC/trcwri_cfc.F90 @ 5870

Last change on this file since 5870 was 5870, checked in by acc, 8 years ago

Branch 2015/dev_r5803_NOC_WAD. Merge in trunk changes from 5803 to 5869 in preparation for merge. Also tidied and reorganised some wetting and drying code. Renamed wadlmt.F90 to wetdry.F90. Wetting drying code changes restricted to domzgr.F90, domvvl.F90 nemogcm.F90 sshwzv.F90, dynspg_ts.F90, wetdry.F90 and dynhpg.F90. Code passes full SETTE tests with ln_wd=.false.. Still awaiting test case for checking with ln_wd=.false.

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