- Timestamp:
- 2021-04-13T14:11:15+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/agrif_user.F90
r14674 r14698 1114 1114 1115 1115 IF (.not.agrif_root()) THEN 1116 lk_west = .NOT. ( Agrif_Ix() == 1 )1117 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) + 1 )1118 lk_south = .NOT. ( Agrif_Iy() == 1 )1119 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) + 1)1116 lk_west = .NOT. ( Agrif_Ix() == 1 ) 1117 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) + 1 ) 1118 lk_south = .NOT. ( Agrif_Iy() == 1 ) 1119 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) + 1) 1120 1120 IF (.NOT.lk_south) THEN 1121 1121 nbghostcells_y_s = 0 … … 1134 1134 WRITE(numout,*) 'lk_north', lk_north 1135 1135 ENDIF 1136 ELSE ! root grid 1137 nbghostcells_x = 0 1138 nbghostcells_y_s = 0 1139 nbghostcells_y_n = 0 1136 1140 ENDIF 1137 1141
Note: See TracChangeset
for help on using the changeset viewer.