- Timestamp:
- 2021-04-09T17:48:50+02:00 (3 years ago)
- Location:
- utils/tools/DOMAINcfg
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/AGRIF_FixedGrids.in
r14625 r14687 1 1 2 2 4 3 83 52 941 1 13 12 3 154 113 1464 4 42 45 85 53 95 1 1 1 3 125 156 114 147 4 4 4 4 4 0 5 5 1 -
utils/tools/DOMAINcfg/make_namelist.py
r14674 r14687 20 20 Agrilefile="AGRIF_FixedGrids.in" 21 21 grid=[] 22 nbghostcells = 322 nbghostcells = 4 23 23 nbghostcells_x = nbghostcells 24 24 nbghostcells_y = nbghostcells -
utils/tools/DOMAINcfg/src/agrif_connect.F90
r14640 r14687 180 180 ! --- West --- ! 181 181 IF( ((nbondi == -1) .OR. (nbondi == 2) ).AND. .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6)) THEN 182 ind1 = nn_hls + 1 +nbghostcells + istart182 ind1 = nn_hls + nbghostcells + istart 183 183 ind2 = ind1 + ispongearea 184 184 DO ji = mi0(ind1), mi1(ind2) … … 189 189 ! ghost cells: 190 190 ind1 = 1 191 ind2 = nn_hls + 1 +nbghostcells + istart ! halo + land + nbghostcells191 ind2 = nn_hls + nbghostcells + istart ! halo + land + nbghostcells 192 192 DO ji = mi0(ind1), mi1(ind2) 193 193 DO jj = 1, jpj … … 199 199 ! --- East --- ! 200 200 IF( ((nbondi == 1) .OR. (nbondi == 2) ).AND. .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6)) THEN 201 ind2 = jpiglo - (nn_hls + nbghostcells ) - istart201 ind2 = jpiglo - (nn_hls + nbghostcells -1 ) - istart 202 202 ind1 = ind2 -ispongearea 203 203 DO ji = mi0(ind1), mi1(ind2) … … 207 207 ENDDO 208 208 ! ghost cells: 209 ind1 = jpiglo - (nn_hls + nbghostcells ) - istart ! halo + land + nbghostcells - 1209 ind1 = jpiglo - (nn_hls + nbghostcells - 1 ) - istart ! halo + land + nbghostcells - 1 210 210 ind2 = jpiglo - 1 211 211 DO ji = mi0(ind1), mi1(ind2) … … 218 218 ! --- South --- ! 219 219 IF(( (nbondj == -1) .OR. (nbondj == 2) ).AND.(lk_south)) THEN 220 ind1 = nn_hls + 1 +nbghostcells + istart220 ind1 = nn_hls + nbghostcells + istart 221 221 ind2 = ind1 + ispongearea 222 222 DO jj = mj0(ind1), mj1(ind2) … … 227 227 ! ghost cells: 228 228 ind1 = 1 229 ind2 = nn_hls + 1 +nbghostcells + istart ! halo + land + nbghostcells229 ind2 = nn_hls + nbghostcells + istart ! halo + land + nbghostcells 230 230 DO jj = mj0(ind1), mj1(ind2) 231 231 DO ji = 1, jpi … … 237 237 ! --- North --- ! 238 238 IF( (nbondj == 1) .OR. (nbondj == 2) ) THEN 239 ind2 = jpjglo - (nn_hls + nbghostcells ) - istart239 ind2 = jpjglo - (nn_hls + nbghostcells - 1) - istart 240 240 ind1 = ind2 -ispongearea 241 241 DO jj = mj0(ind1), mj1(ind2) … … 245 245 ENDDO 246 246 ! ghost cells: 247 ind1 = jpjglo - (nn_hls + nbghostcells ) - istart ! halo + land + nbghostcells - 1247 ind1 = jpjglo - (nn_hls + nbghostcells - 1) - istart ! halo + land + nbghostcells - 1 248 248 ind2 = jpjglo 249 249 DO jj = mj0(ind1), mj1(ind2) -
utils/tools/DOMAINcfg/src/par_oce.f90
r14623 r14687 55 55 ! global domain size for AGRIF !!! * total AGRIF computational domain * 56 56 INTEGER, PUBLIC :: nbug_in_agrif_conv_do_not_remove_or_modify = 1 - 1 57 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 3!: number of ghost cells: default value57 INTEGER, PUBLIC, PARAMETER :: nbghostcells = 4 !: number of ghost cells: default value 58 58 INTEGER, PUBLIC :: nbghostcells_x !: number of ghost cells in i-direction 59 59 INTEGER, PUBLIC :: nbghostcells_y_s !: number of ghost cells in j-direction at south
Note: See TracChangeset
for help on using the changeset viewer.