- Timestamp:
- 2016-01-08T10:35:19+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
- Property svn:keywords set to Id
r4667 r6225 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 !! $Id : c1d.F90 2382 2010-11-13 13:08:12Z gm$33 !! NEMO/C1D 3.7 , NEMO Consortium (2015) 34 !! $Id$ 34 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 35 36 !!====================================================================== … … 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 !!---------------------------------------------------------------------- 49 51 ! 50 51 52 REWIND( numnam_ref ) ! Namelist namc1d in reference namelist : Tracer advection scheme 52 53 READ ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901) 53 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist', lwp )54 54 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist', lwp ) 55 ! 55 56 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 56 57 READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 57 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 ) 58 59 IF(lwm) WRITE ( numond, namc1d ) 59 60 60 ! 61 61 IF(lwp) THEN ! Control print … … 69 69 ENDIF 70 70 ! 71 !72 71 END SUBROUTINE c1d_init 73 72 … … 77 76 !!---------------------------------------------------------------------- 78 77 USE par_kind ! kind parameters 79 80 78 LOGICAL, PUBLIC, PARAMETER :: lk_c1d = .FALSE. !: 1D config. flag de-activated 81 79 REAL(wp) :: rn_lat1d, rn_lon1d 82 80 LOGICAL , PUBLIC :: ln_c1d_locpt = .FALSE. 83 84 81 CONTAINS 85 86 82 SUBROUTINE c1d_init ! Dummy routine 87 83 END SUBROUTINE c1d_init 88 89 84 #endif 90 85
Note: See TracChangeset
for help on using the changeset viewer.