Changeset 6140 for trunk/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
- Timestamp:
- 2015-12-21T12:35:23+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
r5836 r6140 4 4 !! Ocean domain : 1D configuration 5 5 !!===================================================================== 6 !! History : 7 !! 8 !! 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 9 !!---------------------------------------------------------------------- 10 10 #if defined key_c1d … … 12 12 !! 'key_c1d' 1D column configuration 13 13 !!---------------------------------------------------------------------- 14 !! c1d_init 14 !! c1d_init : read in the C1D namelist 15 15 !!---------------------------------------------------------------------- 16 USE in_out_manager ! I/O manager 17 USE par_kind ! kind parameters 18 USE lib_mpp 16 USE par_kind ! kind parameters 17 ! 18 USE in_out_manager ! I/O manager 19 USE lib_mpp ! MPP library 19 20 20 21 IMPLICIT NONE 21 22 PRIVATE 22 23 23 PUBLIC c1d_init 24 PUBLIC c1d_init ! called by nemogcm.F90 24 25 25 26 LOGICAL , PUBLIC, PARAMETER :: lk_c1d = .TRUE. ! 1D config. flag 26 27 27 REAL(wp), PUBLIC :: rn_lat1d !Column latitude28 REAL(wp), PUBLIC :: rn_lon1d !Column longitude29 LOGICAL , PUBLIC :: ln_c1d_locpt !Localization (or not) of 1D column in a grid28 REAL(wp), PUBLIC :: rn_lat1d !: Column latitude 29 REAL(wp), PUBLIC :: rn_lon1d !: Column longitude 30 LOGICAL , PUBLIC :: ln_c1d_locpt !: Localization (or not) of 1D column in a grid 30 31 31 32 !!---------------------------------------------------------------------- 32 !! NEMO/C1D 3. 3 , NEMO Consortium (2010)33 !! NEMO/C1D 3.7 , NEMO Consortium (2015) 33 34 !! $Id$ 34 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 44 45 !! ** Method : Read namelist namc1d 45 46 !!---------------------------------------------------------------------- 46 INTEGER :: ios ! Local integer output status for namelist read 47 INTEGER :: ios ! Local integer 48 !! 47 49 NAMELIST/namc1d/ rn_lat1d, rn_lon1d , ln_c1d_locpt 48 50 !!---------------------------------------------------------------------- … … 50 52 REWIND( numnam_ref ) ! Namelist namc1d in reference namelist : Tracer advection scheme 51 53 READ ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901) 52 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist', lwp )53 54 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist', lwp ) 55 ! 54 56 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 55 57 READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 56 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp )58 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp ) 57 59 IF(lwm) WRITE ( numond, namc1d ) 58 60 !
Note: See TracChangeset
for help on using the changeset viewer.