source: NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/TOP/trcwri.F90 @ 12808

Last change on this file since 12808 was 12377, checked in by acc, 10 months ago

The big one. Merging all 2019 developments from the option 1 branch back onto the trunk.

This changeset reproduces 2019/dev_r11943_MERGE_2019 on the trunk using a 2-URL merge
onto a working copy of the trunk. I.e.:

svn merge —ignore-ancestry \

svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/trunk \
svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/branches/2019/dev_r11943_MERGE_2019 ./

The —ignore-ancestry flag avoids problems that may otherwise arise from the fact that
the merge history been trunk and branch may have been applied in a different order but
care has been taken before this step to ensure that all applicable fixes and updates
are present in the merge branch.

The trunk state just before this step has been branched to releases/release-4.0-HEAD
and that branch has been immediately tagged as releases/release-4.0.2. Any fixes
or additions in response to tickets on 4.0, 4.0.1 or 4.0.2 should be done on
releases/release-4.0-HEAD. From now on future 'point' releases (e.g. 4.0.2) will
remain unchanged with periodic releases as needs demand. Note release-4.0-HEAD is a
transitional naming convention. Future full releases, say 4.2, will have a release-4.2
branch which fulfills this role and the first point release (e.g. 4.2.0) will be made
immediately following the release branch creation.

2020 developments can be started from any trunk revision later than this one.

  • Property svn:keywords set to Id
File size: 3.9 KB
Line 
1MODULE trcwri
2   !!======================================================================
3   !!                       *** MODULE trcwri ***
4   !!    TOP :   Output of passive tracers
5   !!======================================================================
6   !! History :   1.0  !  2009-05 (C. Ethe)  Original code
7   !!----------------------------------------------------------------------
8#if defined key_top && defined key_iomput
9   !!----------------------------------------------------------------------
10   !!   'key_top'                                           TOP models
11   !!----------------------------------------------------------------------
12   !! trc_wri_trc   :  outputs of concentration fields
13   !!----------------------------------------------------------------------
14   USE dom_oce     ! ocean space and time domain variables
15   USE oce_trc     ! shared variables between ocean and passive tracers
16   USE trc         ! passive tracers common variables
17   USE iom         ! I/O manager
18   USE dianam      ! Output file name
19   USE trcwri_pisces
20   USE trcwri_cfc
21   USE trcwri_c14
22   USE trcwri_age
23   USE trcwri_my_trc
24
25   IMPLICIT NONE
26   PRIVATE
27
28   PUBLIC trc_wri     
29
30CONTAINS
31
32   SUBROUTINE trc_wri( kt, Kmm )
33      !!---------------------------------------------------------------------
34      !!                     ***  ROUTINE trc_wri  ***
35      !!
36      !! ** Purpose :   output passive tracers fields and dynamical trends
37      !!---------------------------------------------------------------------
38      INTEGER, INTENT( in )     :: kt
39      INTEGER, INTENT( in )     :: Kmm  ! time level indices
40      !
41      INTEGER                   :: jn
42      CHARACTER (len=20)        :: cltra
43      CHARACTER (len=40)        :: clhstnam
44      INTEGER ::   inum = 11            ! temporary logical unit
45      !!---------------------------------------------------------------------
46      !
47      IF( ln_timing )   CALL timing_start('trc_wri')
48      !
49      IF( l_offline ) THEN    ! WRITE root name in date.file for use by postpro
50         IF(  kt == nittrc000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro
51           CALL dia_nam( clhstnam, nn_writetrc,' ' )
52           CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
53           WRITE(inum,*) clhstnam
54           CLOSE(inum)
55        ENDIF
56
57       ! Output of initial vertical scale factor
58       CALL iom_put( "e3t_0", e3t_0(:,:,:) )
59       CALL iom_put( "e3u_0", e3u_0(:,:,:) )
60       CALL iom_put( "e3v_0", e3v_0(:,:,:) )
61       !
62       CALL iom_put( "e3t" , e3t(:,:,:,Kmm) )
63       CALL iom_put( "e3u" , e3u(:,:,:,Kmm) )
64       CALL iom_put( "e3v" , e3v(:,:,:,Kmm) )
65       !
66      ENDIF
67      ! write the tracer concentrations in the file
68      ! ---------------------------------------
69      IF( ln_pisces  )   CALL trc_wri_pisces( Kmm )     ! PISCES
70      IF( ll_cfc     )   CALL trc_wri_cfc   ( Kmm )     ! surface fluxes of CFC
71      IF( ln_c14     )   CALL trc_wri_c14   ( Kmm )     ! surface fluxes of C14
72      IF( ln_age     )   CALL trc_wri_age   ( Kmm )     ! AGE tracer
73      IF( ln_my_trc  )   CALL trc_wri_my_trc( Kmm )     ! MY_TRC  tracers
74      !
75      IF( ln_timing )   CALL timing_stop('trc_wri')
76      !
77   END SUBROUTINE trc_wri
78
79#else
80   !!----------------------------------------------------------------------
81   !!  Dummy module :                                     No passive tracer
82   !!----------------------------------------------------------------------
83   PUBLIC trc_wri
84CONTAINS
85   SUBROUTINE trc_wri( kt, Kmm )                     ! Empty routine   
86   INTEGER, INTENT(in) :: kt
87   INTEGER, INTENT(in) :: Kmm  ! time level indices
88   END SUBROUTINE trc_wri
89#endif
90
91   !!----------------------------------------------------------------------
92   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
93   !! $Id$
94   !! Software governed by the CeCILL license (see ./LICENSE)
95   !!======================================================================
96END MODULE trcwri
Note: See TracBrowser for help on using the repository browser.