Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
MODULE c1d
!!======================================================================
!! *** MODULE c1d ***
!! Ocean domain : 1D configuration
!!=====================================================================
!! History : 2.0 ! 2004-09 (C. Ethe) Original code
!! 3.0 ! 2008-04 (G. Madec) adaptation to SBC
!! 3.5 ! 2013-10 (D. Calvert) add namelist
!!----------------------------------------------------------------------
!!----------------------------------------------------------------------
!! c1d_init : read in the C1D namelist
!!----------------------------------------------------------------------
USE par_kind ! kind parameters
!
USE in_out_manager ! I/O manager
USE lib_mpp ! MPP library
IMPLICIT NONE
PRIVATE
PUBLIC c1d_init ! called by nemogcm.F90
REAL(wp), PUBLIC :: rn_lat1d !: Column latitude
REAL(wp), PUBLIC :: rn_lon1d !: Column longitude
!!----------------------------------------------------------------------
!! NEMO/OCE 4.0 , NEMO Consortium (2018)
!! $Id: c1d.F90 15023 2021-06-18 14:35:25Z gsamson $
!! Software governed by the CeCILL license (see ./LICENSE)
!!======================================================================
CONTAINS
SUBROUTINE c1d_init
!!----------------------------------------------------------------------
!! *** ROUTINE c1d_init ***
!!
!! ** Purpose : Initialization of C1D options
!!
!! ** Method : Read namelist namc1d
!!----------------------------------------------------------------------
INTEGER :: ios ! Local integer
!!
NAMELIST/namc1d/ rn_lat1d, rn_lon1d
!!----------------------------------------------------------------------
!
READ ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901)
901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist' )
!
READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 )
902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist' )
IF(lwm) WRITE ( numond, namc1d )
!
IF(lwp) THEN ! Control print
WRITE(numout,*)
WRITE(numout,*) 'c1d_init : Initialize 1D model configuration options'
WRITE(numout,*) '~~~~~~~~'
WRITE(numout,*) ' Namelist namc1d : set options for the C1D model'
WRITE(numout,*) ' column latitude rn_lat1d = ', rn_lat1d
WRITE(numout,*) ' column longitude rn_lon1d = ', rn_lon1d
ENDIF
!
END SUBROUTINE c1d_init
!!======================================================================
END MODULE c1d