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$ !! 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