Changeset 14072 for NEMO/trunk/src/OCE/USR
- Timestamp:
- 2020-12-04T08:48:38+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/USR/usrdef_nam.F90
r13982 r14072 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
Note: See TracChangeset
for help on using the changeset viewer.