| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 |
- 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
- !!----------------------------------------------------------------------
- #if defined key_c1d
- !!----------------------------------------------------------------------
- !! 'key_c1d' 1D column configuration
- !!----------------------------------------------------------------------
- !! c1d_init : read in the C1D namelist
- !!----------------------------------------------------------------------
- USE in_out_manager ! I/O manager
- USE par_kind ! kind parameters
- USE lib_mpp
- IMPLICIT NONE
- PRIVATE
- PUBLIC c1d_init ! called by nemogcm.F90
- LOGICAL , PUBLIC, PARAMETER :: lk_c1d = .TRUE. ! 1D config. flag
- REAL(wp), PUBLIC :: rn_lat1d ! Column latitude
- REAL(wp), PUBLIC :: rn_lon1d ! Column longitude
- LOGICAL , PUBLIC :: ln_c1d_locpt ! Localization (or not) of 1D column in a grid
- !!----------------------------------------------------------------------
- !! NEMO/C1D 3.3 , NEMO Consortium (2010)
- !! $Id: c1d.F90 2355 2015-05-20 07:11:50Z ufla $
- !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
- !!======================================================================
- CONTAINS
- SUBROUTINE c1d_init
- !!----------------------------------------------------------------------
- !! *** ROUTINE c1d_init ***
- !!
- !! ** Purpose : Initialization of C1D options
- !!
- !! ** Method : Read namelist namc1d
- !!----------------------------------------------------------------------
- INTEGER :: ios ! Local integer output status for namelist read
- NAMELIST/namc1d/ rn_lat1d, rn_lon1d , ln_c1d_locpt
- !!----------------------------------------------------------------------
- !
- REWIND( numnam_ref ) ! Namelist namc1d in reference namelist : Tracer advection scheme
- READ ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901)
- 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist', lwp )
- REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme
- READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 )
- 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp )
- 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
- WRITE(numout,*) ' column localization in a grid ln_c1d_locpt = ', ln_c1d_locpt
- ENDIF
- !
- !
- END SUBROUTINE c1d_init
- #else
- !!----------------------------------------------------------------------
- !! Dummy module : No use of 1D configuration
- !!----------------------------------------------------------------------
- USE par_kind ! kind parameters
- LOGICAL, PUBLIC, PARAMETER :: lk_c1d = .FALSE. !: 1D config. flag de-activated
- REAL(wp) :: rn_lat1d, rn_lon1d
- LOGICAL , PUBLIC :: ln_c1d_locpt = .FALSE.
- CONTAINS
- SUBROUTINE c1d_init ! Dummy routine
- END SUBROUTINE c1d_init
- #endif
- !!======================================================================
- END MODULE c1d
|
