Ignore:
Timestamp:
2021-04-13T14:11:15+02:00 (6 months ago)
Author:
jchanut
Message:

#2638: initialize agrif ghost cells number (to zero) on root grid (DOMAINcfg)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/DOMAINcfg/src/agrif_user.F90

    r14674 r14698  
    11141114 
    11151115      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) 
    11201120         IF (.NOT.lk_south) THEN 
    11211121            nbghostcells_y_s = 0 
     
    11341134            WRITE(numout,*) 'lk_north', lk_north 
    11351135         ENDIF 
     1136      ELSE ! root grid 
     1137         nbghostcells_x   = 0  
     1138         nbghostcells_y_s = 0  
     1139         nbghostcells_y_n = 0  
    11361140      ENDIF 
    11371141 
Note: See TracChangeset for help on using the changeset viewer.