Changeset 14683
- Timestamp:
- 2021-04-08T11:52:58+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/tests/SEAMOUNT/MY_SRC/usrdef_nam.F90
r14332 r14683 49 49 CONTAINS 50 50 51 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio)51 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, ldIperio, ldJperio, ldNFold, cdNFtype ) 52 52 !!---------------------------------------------------------------------- 53 53 !! *** ROUTINE dom_nam *** … … 62 62 !! ** input : - namusr_def namelist found in namelist_cfg 63 63 !!---------------------------------------------------------------------- 64 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 65 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 66 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 67 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 64 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 65 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 66 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 67 LOGICAL , INTENT(out) :: ldIperio, ldJperio ! i- and j- periodicity 68 LOGICAL , INTENT(out) :: ldNFold ! North pole folding 69 CHARACTER(len=1), INTENT(out) :: cdNFtype ! Folding type: T or F 70 68 71 ! 69 72 INTEGER :: ios ! Local integer … … 79 82 ! 80 83 cd_cfg = 'Seamount' ! name & resolution (not used) 84 kk_cfg = 0 85 86 ! ! Set the lateral boundary condition of the global domain 87 ldIperio = .TRUE. ; ldJperio = .true. ! C1D configuration : 3x3 basin with cyclic Est-West and Norht-South condition 88 ldNFold = .FALSE. ; cdNFtype = '-' 89 81 90 ! 82 91 ! Global Domain size: SEAMOUNT_TEST_CASE domain is rn_length km x rn_width km x rn_bathy m … … 88 97 rn_drho = 1000._wp * rn_bathy * ( rn_s * rn_f * rn_l / rn_bathy ) ** 2._wp / grav 89 98 ! 90 kperio = 1! SEAMOUNT_TEST_CASE configuration : closed domain99 ! ! SEAMOUNT_TEST_CASE configuration : closed domain 91 100 ! ! control print 92 101 IF(lwp) THEN … … 104 113 WRITE(numout,*) ' ' 105 114 WRITE(numout,*) ' Lateral boundary condition of the global domain' 106 WRITE(numout,*) ' closed jperio = ', kperio 115 WRITE(numout,*) ' east-west ldIperio = ', ldIperio 116 WRITE(numout,*) ' north-south ldJperio = ', ldJperio 107 117 WRITE(numout,*) ' Initial condition: ln_exp_init = ', ln_exp_init 108 118 WRITE(numout,*) ' ln_linear_init = ', ln_linear_init
Note: See TracChangeset
for help on using the changeset viewer.