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.
trcnam_age.F90 in NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/TOP/AGE – NEMO

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

Last change on this file since 12808 was 12377, checked in by acc, 4 years 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.0 KB
Line 
1MODULE trcnam_age
2   !!======================================================================
3   !!                         ***  MODULE trcnam_age  ***
4   !! TOP :   initialisation of some run parameters for Age tracer
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)
7   !!----------------------------------------------------------------------
8   !! trc_nam_age      : AGE tracer initialisation
9   !!----------------------------------------------------------------------
10   USE oce_trc         ! Ocean variables
11   USE trc             ! Ocean variables
12   USE trcsms_age      ! AGE specific variable
13
14   IMPLICIT NONE
15   PRIVATE
16
17   PUBLIC   trc_nam_age   ! called by trcnam.F90 module
18
19   !!----------------------------------------------------------------------
20   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
21   !! $Id$
22   !! Software governed by the CeCILL license (see ./LICENSE)
23   !!----------------------------------------------------------------------
24CONTAINS
25
26   SUBROUTINE trc_nam_age
27      !!-------------------------------------------------------------------
28      !!                  ***  ROUTINE trc_nam_age  ***
29      !!                 
30      !! ** Purpose :   Definition some run parameter for AGE model
31      !!
32      !! ** input   :   Namelist namage
33      !!----------------------------------------------------------------------
34      INTEGER ::   ios   ! Local integer
35      !!
36      NAMELIST/namage/ rn_age_depth, rn_age_kill_rate 
37      !!----------------------------------------------------------------------
38      !
39      IF(lwp) THEN
40         WRITE(numout,*)
41         WRITE(numout,*) ' Sea Age Tracer'
42         WRITE(numout,*)
43         WRITE(numout,*) 'trc_nam_age : Read namage namelist for Age passive tracer'
44         WRITE(numout,*) '~~~~~~~~~~~'
45      ENDIF
46
47      ! Variable setting
48      ctrcnm    (jp_age) = 'Age'
49      ctrcln    (jp_age) = 'Sea water age since surface contact'
50      ctrcun    (jp_age) = 'year'
51      ln_trc_ini(jp_age) = .false.
52      ln_trc_sbc(jp_age) = .false.
53      ln_trc_cbc(jp_age) = .false.
54      ln_trc_obc(jp_age) = .false.
55      !
56      READ  ( numnat_ref, namage, IOSTAT = ios, ERR = 901)
57901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namage in reference namelist' )
58      READ  ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 )
59902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namage in configuration namelist' )
60      IF(lwm) WRITE ( numont, namage )
61      !
62      IF(lwp) THEN                  ! control print
63         WRITE(numout,*) '   Namelist : namage'
64         WRITE(numout,*) '      depth over which age tracer reset to zero     rn_age_depth      = ', rn_age_depth 
65         WRITE(numout,*) '      recip of relaxation timescale                 rn_age_kill_rate  = ', rn_age_kill_rate, '[s]'
66         WRITE(numout,*) '      (for age tracer shallower than age_depth) '
67      ENDIF
68      !
69   END SUBROUTINE trc_nam_age
70   
71   !!======================================================================
72END MODULE trcnam_age
Note: See TracBrowser for help on using the repository browser.