Changeset 13238
- Timestamp:
- 2020-07-03T12:04:50+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90
r13236 r13238 635 635 USE Agrif_Util 636 636 USE ice 637 USE par_oce, ONLY : nbghostcells, nbghostcells_x, nbghostcells_y_s638 637 ! 639 638 IMPLICIT NONE … … 888 887 nbghostcells_y_n = nbghostcells 889 888 ! 890 IF ( jperio == 1 ) nbghostcells_x = 0 891 IF ( .NOT. lk_south ) nbghostcells_y_s = 0 892 PRINT*, 'seb ', narea, jpiglo, nbcellsx, nn_hls, nbghostcells_x 889 IF( jperio == 1 ) nbghostcells_x = 0 890 IF( .NOT. lk_south ) nbghostcells_y_s = 0 893 891 ! Some checks 894 892 IF( jpiglo /= nbcellsx + 2 + 2*nn_hls + nbghostcells_x + nbghostcells_x ) CALL ctl_stop( 'STOP', & -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/USR/usrdef_nam.F90
r13229 r13238 69 69 kk_cfg = nn_GYRE 70 70 ! 71 kpi = 30 * nn_GYRE + 2! Global Domain size: add 1 land point on each side72 kpj = 20 * nn_GYRE + 273 #if defined key_agrif 74 IF( .NOT. Agrif_Root() ) THEN75 kpi = nbcellsx + 2 * ( nbghostcells_x + 1 ) ! Global Domain size: add nbghostcells + 1 "land" point on each side71 IF( Agrif_Root() ) THEN ! Global Domain size: add 1 land point on each side 72 kpi = 30 * nn_GYRE + 2 ! 73 kpj = 20 * nn_GYRE + 2 74 ELSE ! Global Domain size: add nbghostcells + 1 "land" point on each side 75 kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 76 76 kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 77 77 ENDIF 78 #endif79 78 kpk = jpkglo 80 79 ! ! Set the lateral boundary condition of the global domain -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/par_oce.F90
r13229 r13238 47 47 ! global domain size for AGRIF !!! * total AGRIF computational domain * 48 48 INTEGER, PUBLIC :: nbug_in_agrif_conv_do_not_remove_or_modify = 1 - 1 49 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 3 !: number of ghost cells: default value50 INTEGER, PUBLIC :: nbghostcells_x !: number of ghost cells in i-direction49 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 3 !: number of ghost cells: default value 50 INTEGER, PUBLIC :: nbghostcells_x !: number of ghost cells in i-direction 51 51 INTEGER, PUBLIC :: nbghostcells_y_s !: number of ghost cells in j-direction at south 52 INTEGER, PUBLIC :: nbghostcells_y_n !: number of ghost cells in j-direction at north !: number of ghost cells53 INTEGER, PUBLIC :: nbcellsx ! = jpiglo - 2 - 2*nbghostcells_x!: number of cells in i-direction54 INTEGER, PUBLIC :: nbcellsy ! = jpjglo - 2 - 2*nbghostcells-y!: number of cells in j-direction52 INTEGER, PUBLIC :: nbghostcells_y_n !: number of ghost cells in j-direction at north 53 INTEGER, PUBLIC :: nbcellsx !: number of cells in i-direction 54 INTEGER, PUBLIC :: nbcellsy !: number of cells in j-direction 55 55 56 56 ! local domain size !!! * local computational domain * -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/CANAL/MY_SRC/usrdef_nam.F90
r12939 r13238 106 106 kk_cfg = INT( rn_dx ) 107 107 ! 108 ! Global Domain size: EW_CANAL global domain is 1800 km x 1800 Km x 5000 m 109 kpi = NINT( rn_domszx / rn_dx ) + 1 110 kpj = NINT( rn_domszy / rn_dy ) + 3 111 kpk = NINT( rn_domszz / rn_dz ) + 1 112 #if defined key_agrif 113 IF( .NOT. Agrif_Root() ) THEN 114 kpi = nbcellsx + 2 + 2*nbghostcells 115 kpj = nbcellsy + 2 + 2*nbghostcells 108 IF( Agrif_Root() ) THEN ! Global Domain size: EW_CANAL global domain is 1800 km x 1800 Km x 5000 m 109 kpi = NINT( rn_domszx / rn_dx ) + 1 110 kpj = NINT( rn_domszy / rn_dy ) + 3 111 ELSE ! Global Domain size: add nbghostcells + 1 "land" point on each side 112 kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 113 kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 116 114 ENDIF 117 #endif 115 kpk = MAX( 2, NINT( rn_domszz / rn_dz ) + 1 ) 118 116 ! 119 117 zh = (kpk-1)*rn_dz -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_ADV2D/MY_SRC/usrdef_nam.F90
r13065 r13238 82 82 kk_cfg = NINT( rn_dx ) 83 83 ! 84 IF( Agrif_Root() ) THEN ! Global Domain size: 84 IF( Agrif_Root() ) THEN ! Global Domain size: ICE_AGRIF domain is 300 km x 300 Km x 10 m 85 85 kpi = NINT( 300.e3 / rn_dx ) - 1 86 86 kpj = NINT( 300.e3 / rn_dy ) - 1 87 ELSE 88 kpi = nbcellsx + 2 * ( nbghostcells + 1 ) ! Global Domain size: add nbghostcells + 1 "land" point on each side89 kpj = nbcellsy + 2 * ( nbghostcells + 1 )87 ELSE ! Global Domain size: add nbghostcells + 1 "land" point on each side 88 kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 89 kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 90 90 ENDIF 91 kpk = 191 kpk = 2 92 92 ! 93 93 !! zlx = (kpi-2)*rn_dx*1.e-3 -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90
r13065 r13238 87 87 kpi = kpi - 2 ! for compatibility with old version (because kerio=7) --> to be removed 88 88 kpj = kpj - 2 ! for compatibility with old version (because kerio=7) --> to be removed 89 ELSE 90 kpi = nbcellsx + 2 * ( nbghostcells + 1 ) ! Global Domain size: add nbghostcells + 1 "land" point on each side91 kpj = nbcellsy + 2 * ( nbghostcells + 1 )89 ELSE ! Global Domain size: add nbghostcells + 1 "land" point on each side 90 kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 91 kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 92 92 ENDIF 93 93 kpk = 2 -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/VORTEX/MY_SRC/usrdef_nam.F90
r13065 r13238 84 84 kpi = NINT( 1800.e3 / rn_dx ) + 3 85 85 kpj = NINT( 1800.e3 / rn_dy ) + 3 86 ELSE 87 kpi = nbcellsx + 2 * ( nbghostcells + 1 ) ! Global Domain size: add nbghostcells + 1 "land" point on each side88 kpj = nbcellsy + 2 * ( nbghostcells + 1 )86 ELSE ! Global Domain size: add nbghostcells + 1 "land" point on each side 87 kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 88 kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 89 89 ENDIF 90 90 kpk = NINT( 5000._wp / rn_dz ) + 1
Note: See TracChangeset
for help on using the changeset viewer.