Changeset 13673
- Timestamp:
- 2020-10-26T08:51:22+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/NST/agrif_user.F90
r13565 r13673 69 69 IF ( .NOT. lk_south ) THEN 70 70 CALL Agrif_Set_NearCommonBorderY(.TRUE.) 71 ENDIF 72 73 IF ( .NOT. lk_north ) THEN 74 CALL Agrif_Set_DistantCommonBorderY(.TRUE.) 71 75 ENDIF 72 76 … … 799 803 ! JC => side effects of lines below to be checked: 800 804 lk_west = .NOT. ( Agrif_Ix() == 1 ) 801 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent( jpiglo) -1 )805 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) -1 ) 802 806 lk_south = .NOT. ( Agrif_Iy() == 1 ) 803 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent( jpjglo) -1 )807 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) -1 ) 804 808 ! 805 809 ! Set the number of ghost cells according to periodicity … … 810 814 IF( jperio == 1 ) nbghostcells_x = 0 811 815 IF( .NOT. lk_south ) nbghostcells_y_s = 0 812 ! For 2DV domains: 813 IF (( nbcellsy <= 3 ).AND.(AGRIF_Irhoy()==1)) THEN 814 lk_north = .FALSE. ; lk_south = .FALSE. 815 nbghostcells_y_s = nbghostcells 816 ENDIF 817 IF (( nbcellsx <= 3 ).AND.(AGRIF_Irhox()==1)) THEN 818 lk_east = .FALSE. ; lk_north = .FALSE. 819 ENDIF 816 IF( .NOT. lk_north ) nbghostcells_y_n = 0 817 ! 820 818 ! Some checks 821 819 IF( jpiglo /= nbcellsx + 2 + 2*nn_hls + nbghostcells_x + nbghostcells_x ) CALL ctl_stop( 'STOP', &
Note: See TracChangeset
for help on using the changeset viewer.