source: branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90 @ 7910

Last change on this file since 7910 was 6140, checked in by timgraham, 5 years ago

Merge of branches/2015/dev_merge_2015 back into trunk. Merge excludes NEMOGCM/TOOLS/OBSTOOLS/ for now due to issues with the change of file type. Will sort these manually with further commits.

Branch merged as follows:
In the working copy of branch ran:
svn merge svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk@HEAD
Small conflicts due to bug fixes applied to trunk since the dev_merge_2015 was copied. Bug fixes were applied to the branch as well so these were easy to resolve.
Branch committed at this stage

In working copy run:
svn switch svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
to switch working copy

Run:
svn merge —reintegrate svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2015/dev_merge_2015
to merge the branch into the trunk and then commit - no conflicts at this stage.

  • Property svn:keywords set to Id
File size: 3.9 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/C1D 3.7 , NEMO Consortium (2015)
34   !! $Id$
35   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
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      REWIND( numnam_ref )              ! Namelist namc1d in reference namelist : Tracer advection scheme
53      READ  ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901)
54901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namc1d in reference namelist', lwp )
55      !
56      REWIND( numnam_cfg )              ! Namelist namtra_adv in configuration namelist : Tracer advection scheme
57      READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 )
58902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp )
59      IF(lwm) WRITE ( numond, namc1d )
60      !
61      IF(lwp) THEN                    ! Control print
62         WRITE(numout,*)
63         WRITE(numout,*) 'c1d_init : Initialize 1D model configuration options'
64         WRITE(numout,*) '~~~~~~~~'
65         WRITE(numout,*) '   Namelist namc1d : set options for the C1D model'
66         WRITE(numout,*) '      column latitude                 rn_lat1d     = ', rn_lat1d
67         WRITE(numout,*) '      column longitude                rn_lon1d     = ', rn_lon1d
68         WRITE(numout,*) '      column localization in a grid   ln_c1d_locpt = ', ln_c1d_locpt
69      ENDIF
70      !
71   END SUBROUTINE c1d_init
72
73#else
74   !!----------------------------------------------------------------------
75   !!   Dummy module :                           No use of 1D configuration
76   !!----------------------------------------------------------------------
77   USE par_kind         ! kind parameters
78   LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .FALSE.   !: 1D config. flag de-activated
79   REAL(wp)                   ::   rn_lat1d, rn_lon1d
80   LOGICAL , PUBLIC           ::   ln_c1d_locpt = .FALSE. 
81CONTAINS
82   SUBROUTINE c1d_init               ! Dummy routine
83   END SUBROUTINE c1d_init
84#endif
85
86   !!======================================================================
87END MODULE c1d
Note: See TracBrowser for help on using the repository browser.