Changeset 14789 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/USR/usrdef_nam.F90
- Timestamp:
- 2021-05-05T13:18:04+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r12970_AGRIF_CMEMSext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 ^/vendors/PPR@HEAD ext/PPR 8 9 9 10 # SETTE 10 ^/utils/CI/sette@1 3559sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/USR/usrdef_nam.F90
r13286 r14789 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 !!---------------------------------------------------------------------- 37 37 CONTAINS 38 38 39 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio)39 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, ldIperio, ldJperio, ldNFold, cdNFtype ) 40 40 !!---------------------------------------------------------------------- 41 41 !! *** ROUTINE dom_nam *** 42 !! 42 !! 43 43 !! ** Purpose : read user defined namelist and define the domain size 44 44 !! … … 49 49 !! ** input : - namusr_def namelist found in namelist_cfg 50 50 !!---------------------------------------------------------------------- 51 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 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. 51 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 52 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 53 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 54 LOGICAL , INTENT(out) :: ldIperio, ldJperio ! i- and j- periodicity 55 LOGICAL , INTENT(out) :: ldNFold ! North pole folding 56 CHARACTER(len=1), INTENT(out) :: cdNFtype ! Folding type: T or F 55 57 ! 56 58 INTEGER :: ios ! Local integer … … 70 72 kk_cfg = nn_GYRE 71 73 ! 72 kpi = 30 * nn_GYRE + 2 ! 74 kpi = 30 * nn_GYRE + 2 ! 73 75 kpj = 20 * nn_GYRE + 2 74 76 #if defined key_agrif … … 82 84 kpk = jpkglo 83 85 ! ! Set the lateral boundary condition of the global domain 84 kperio = 0 ! GYRE configuration : closed domain 86 ldIperio = .FALSE. ; ldJperio = .FALSE. ! GYRE configuration : closed domain 87 ldNFold = .FALSE. ; cdNFtype = '-' 85 88 ! 86 89 ! ! control print … … 102 105 WRITE(numout,*) ' number of model levels jpkglo = ', kpk 103 106 WRITE(numout,*) ' ' 104 WRITE(numout,*) ' Lateral b.c. of the global domain set to closed jperio = ', kperio105 107 ENDIF 106 108 !
Note: See TracChangeset
for help on using the changeset viewer.