source: NEMO/trunk/src/OCE/C1D/c1d.F90 @ 13226

Last change on this file since 13226 was 12377, checked in by acc, 11 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.7 KB
Line 
1MODULE c1d
2   !!======================================================================
3   !!                     ***  MODULE  c1d  ***
4   !! Ocean domain  :  1D configuration
5   !!=====================================================================
6   !! History :  2.0  !  2004-09 (C. Ethe)     Original code
7   !!            3.0  !  2008-04 (G. Madec)    adaptation to SBC
8   !!            3.5  !  2013-10 (D. Calvert)  add namelist
9   !!----------------------------------------------------------------------
10#if defined key_c1d
11   !!----------------------------------------------------------------------
12   !!   'key_c1d'                                   1D column configuration
13   !!----------------------------------------------------------------------
14   !!   c1d_init      : read in the C1D namelist
15   !!----------------------------------------------------------------------
16   USE par_kind       ! kind parameters
17   !
18   USE in_out_manager ! I/O manager
19   USE lib_mpp        ! MPP library
20
21   IMPLICIT NONE
22   PRIVATE
23
24   PUBLIC   c1d_init   ! called by nemogcm.F90
25
26   LOGICAL , PUBLIC, PARAMETER ::  lk_c1d = .TRUE.   ! 1D config. flag
27
28   REAL(wp), PUBLIC ::  rn_lat1d     !: Column latitude
29   REAL(wp), PUBLIC ::  rn_lon1d     !: Column longitude
30   LOGICAL , PUBLIC ::  ln_c1d_locpt !: Localization (or not) of 1D column in a grid
31
32   !!----------------------------------------------------------------------
33   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
34   !! $Id$
35   !! Software governed by the CeCILL license (see ./LICENSE)
36   !!======================================================================
37CONTAINS
38
39   SUBROUTINE c1d_init
40      !!----------------------------------------------------------------------
41      !!                  ***  ROUTINE c1d_init  ***
42      !!
43      !! ** Purpose :   Initialization of C1D options
44      !!
45      !! ** Method  :   Read namelist namc1d
46      !!----------------------------------------------------------------------
47      INTEGER ::   ios   ! Local integer
48      !!
49      NAMELIST/namc1d/ rn_lat1d, rn_lon1d , ln_c1d_locpt
50      !!----------------------------------------------------------------------
51      !
52      READ  ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901)
53901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namc1d in reference namelist' )
54      !
55      READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 )
56902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d in configuration namelist' )
57      IF(lwm) WRITE ( numond, namc1d )
58      !
59      IF(lwp) THEN                    ! Control print
60         WRITE(numout,*)
61         WRITE(numout,*) 'c1d_init : Initialize 1D model configuration options'
62         WRITE(numout,*) '~~~~~~~~'
63         WRITE(numout,*) '   Namelist namc1d : set options for the C1D model'
64         WRITE(numout,*) '      column latitude                 rn_lat1d     = ', rn_lat1d
65         WRITE(numout,*) '      column longitude                rn_lon1d     = ', rn_lon1d
66         WRITE(numout,*) '      column localization in a grid   ln_c1d_locpt = ', ln_c1d_locpt
67      ENDIF
68      !
69   END SUBROUTINE c1d_init
70
71#else
72   !!----------------------------------------------------------------------
73   !!   Dummy module :                           No use of 1D configuration
74   !!----------------------------------------------------------------------
75   USE par_kind         ! kind parameters
76   LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .FALSE.   !: 1D config. flag de-activated
77   REAL(wp)                   ::   rn_lat1d, rn_lon1d
78   LOGICAL , PUBLIC           ::   ln_c1d_locpt = .FALSE. 
79CONTAINS
80   SUBROUTINE c1d_init               ! Dummy routine
81   END SUBROUTINE c1d_init
82#endif
83
84   !!======================================================================
85END MODULE c1d
Note: See TracBrowser for help on using the repository browser.