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/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/C1D – NEMO

source: branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90 @ 5965

Last change on this file since 5965 was 5965, checked in by timgraham, 8 years ago

Upgraded branch to r5518 of trunk (v3.6 stable revision)

  • Property svn:keywords set to Id
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) 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.