Changeset 15574 for NEMO/branches/2021/dev_r14318_RK3_stage1/tests/ICB
- Timestamp:
- 2021-12-03T20:32:50+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14318_RK3_stage1
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/dev_r14318_RK3_stage1/tests/ICB/EXPREF/namelist_cfg
r14229 r15574 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 51 51 / 52 52 !----------------------------------------------------------------------- 53 &namtile ! parameters of the tiling 54 !----------------------------------------------------------------------- 55 / 56 !----------------------------------------------------------------------- 53 57 &namtsd ! Temperature & Salinity Data (init/dmp) (default: OFF) 54 58 !----------------------------------------------------------------------- … … 64 68 / 65 69 !----------------------------------------------------------------------- 66 &namc1d ! 1D configuration options ( "key_c1d"default: PAPA station)67 !----------------------------------------------------------------------- 68 / 69 !----------------------------------------------------------------------- 70 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)71 !----------------------------------------------------------------------- 72 / 73 !----------------------------------------------------------------------- 74 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)70 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 71 !----------------------------------------------------------------------- 72 / 73 !----------------------------------------------------------------------- 74 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 75 !----------------------------------------------------------------------- 76 / 77 !----------------------------------------------------------------------- 78 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 75 79 !----------------------------------------------------------------------- 76 80 -
NEMO/branches/2021/dev_r14318_RK3_stage1/tests/ICB/MY_SRC/usrdef_nam.F90
r13899 r15574 42 42 CONTAINS 43 43 44 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio)44 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, ldIperio, ldJperio, ldNFold, cdNFtype ) 45 45 !!---------------------------------------------------------------------- 46 46 !! *** ROUTINE dom_nam *** … … 54 54 !! ** input : - namusr_def namelist found in namelist_cfg 55 55 !!---------------------------------------------------------------------- 56 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 57 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 58 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 59 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 56 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 57 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 58 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 59 LOGICAL , INTENT(out) :: ldIperio, ldJperio ! i- and j- periodicity 60 LOGICAL , INTENT(out) :: ldNFold ! North pole folding 61 CHARACTER(len=1), INTENT(out) :: cdNFtype ! Folding type: T or F 60 62 ! 61 63 INTEGER :: ios ! Local integer … … 78 80 ! 79 81 ! ! Set the lateral boundary condition of the global domain 80 kperio = 0 ! ICB configuration : box 82 ldIperio = .FALSE. ; ldJperio = .FALSE. ! ICB configuration : closed domain 83 ldNFold = .FALSE. ; cdNFtype = '-' 81 84 ! 82 85 ! ! control print … … 99 102 WRITE(numout,*) ' jpkglo = ', kpk 100 103 WRITE(numout,*) ' ' 101 WRITE(numout,*) ' Lateral boundary condition of the global domain'102 WRITE(numout,*) ' ICB : closed basin jperio = ', kperio103 104 ENDIF 104 105 !
Note: See TracChangeset
for help on using the changeset viewer.