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.
c1d.F90 in branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/C1D – NEMO

source: branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90 @ 11101

Last change on this file since 11101 was 11101, checked in by frrh, 5 years ago

Merge changes from Met Office GMED ticket 450 to reduce unnecessary
text output from NEMO.
This output, which is typically not switchable, is rarely of interest
in normal (non-debugging) runs and simply redunantley consumes extra
file space.
Further, the presence of this text output has been shown to
significantly degrade performance of models which are run during
Met Office HPC RAID (disk) checks.
The new code introduces switches which are configurable via the
changes made in the associated Met Office MOCI ticket 399.
File size: 4.0 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 in_out_manager   ! I/O manager
17   USE par_kind         ! kind parameters
18   USE lib_mpp
19
20   IMPLICIT NONE
21   PRIVATE
22
23   PUBLIC   c1d_init                                 ! called by nemogcm.F90
24
25   LOGICAL , PUBLIC, PARAMETER ::  lk_c1d = .TRUE.   ! 1D config. flag
26
27   REAL(wp), PUBLIC            ::  rn_lat1d     ! Column latitude
28   REAL(wp), PUBLIC            ::  rn_lon1d     ! Column longitude
29   LOGICAL , PUBLIC            ::  ln_c1d_locpt ! Localization (or not) of 1D column in a grid
30
31   !!----------------------------------------------------------------------
32   !! NEMO/C1D 3.3 , NEMO Consortium (2010)
33   !! $Id$
34   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
35   !!======================================================================
36CONTAINS
37
38   SUBROUTINE c1d_init
39      !!----------------------------------------------------------------------
40      !!                  ***  ROUTINE c1d_init  ***
41      !!
42      !! ** Purpose :   Initialization of C1D options
43      !!
44      !! ** Method  :   Read namelist namc1d
45      !!----------------------------------------------------------------------
46      INTEGER ::   ios                 ! Local integer output status for namelist read
47      NAMELIST/namc1d/ rn_lat1d, rn_lon1d , ln_c1d_locpt
48      !!----------------------------------------------------------------------
49      !
50
51      REWIND( numnam_ref )              ! Namelist namc1d in reference namelist : Tracer advection scheme
52      READ  ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901)
53901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist', lwp )
54
55      REWIND( numnam_cfg )              ! Namelist namtra_adv in configuration namelist : Tracer advection scheme
56      READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 )
57902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp )
58      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d )
59
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      !
72   END SUBROUTINE c1d_init
73
74#else
75   !!----------------------------------------------------------------------
76   !!   Dummy module :                           No use of 1D configuration
77   !!----------------------------------------------------------------------
78   USE par_kind         ! kind parameters
79
80   LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .FALSE.   !: 1D config. flag de-activated
81   REAL(wp)                   ::   rn_lat1d, rn_lon1d
82   LOGICAL , PUBLIC           ::   ln_c1d_locpt = .FALSE. 
83
84CONTAINS
85
86   SUBROUTINE c1d_init               ! Dummy routine
87   END SUBROUTINE c1d_init
88
89#endif
90
91   !!======================================================================
92END MODULE c1d
Note: See TracBrowser for help on using the repository browser.