- Timestamp:
- 2020-12-02T16:32:24+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/USR/usrdef_nam.F90
r13286 r14017 12 12 !!---------------------------------------------------------------------- 13 13 !! usr_def_nam : read user defined namelist and set global domain size 14 !! usr_def_hgr : initialize the horizontal mesh 14 !! usr_def_hgr : initialize the horizontal mesh 15 15 !!---------------------------------------------------------------------- 16 16 USE dom_oce … … 20 20 USE in_out_manager ! I/O manager 21 21 USE lib_mpp ! MPP library 22 22 23 23 IMPLICIT NONE 24 24 PRIVATE … … 32 32 !!---------------------------------------------------------------------- 33 33 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 34 !! $Id$ 34 !! $Id$ 35 35 !! Software governed by the CeCILL license (see ./LICENSE) 36 36 !!---------------------------------------------------------------------- … … 40 40 !!---------------------------------------------------------------------- 41 41 !! *** ROUTINE dom_nam *** 42 !! 42 !! 43 43 !! ** Purpose : read user defined namelist and define the domain size 44 44 !! … … 51 51 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 52 52 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 53 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 54 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 53 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 54 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 55 55 ! 56 56 INTEGER :: ios ! Local integer … … 70 70 kk_cfg = nn_GYRE 71 71 ! 72 kpi = 30 * nn_GYRE + 2 ! 72 kpi = 30 * nn_GYRE + 2 ! 73 73 kpj = 20 * nn_GYRE + 2 74 74 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.