- Timestamp:
- 2020-06-26T15:21:13+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_user.F90
r13056 r13163 226 226 CALL Agrif_Set_DistantCommonBorderX(.TRUE.) 227 227 endif 228 if (.not.l n_bry_south) THEN228 if (.not.lk_south) THEN 229 229 CALL Agrif_Set_NearCommonBorderY(.TRUE.) 230 230 endif … … 850 850 ! May need to extend at south boundary 851 851 IF (j1<1) THEN 852 IF (.NOT.agrif_child(l n_bry_south)) THEN852 IF (.NOT.agrif_child(lk_south)) THEN 853 853 IF ((nbondj == -1).OR.(nbondj == 2)) THEN 854 854 DO jj=1,j2 … … 888 888 IF( before) THEN 889 889 IF (j1<1) THEN 890 IF (.NOT.agrif_child(l n_bry_south)) THEN890 IF (.NOT.agrif_child(lk_south)) THEN 891 891 IF ((nbondj == -1).OR.(nbondj == 2)) THEN 892 892 DO jj=1,j2 … … 966 966 IF( before) THEN 967 967 IF (j1<1) THEN 968 IF (.NOT.agrif_child(l n_bry_south)) THEN968 IF (.NOT.agrif_child(lk_south)) THEN 969 969 IF ((nbondj == -1).OR.(nbondj == 2)) THEN 970 970 DO jj=1,j2 … … 1004 1004 IF( before) THEN 1005 1005 IF (j1<1) THEN 1006 IF (.NOT.agrif_child(l n_bry_south)) THEN1006 IF (.NOT.agrif_child(lk_south)) THEN 1007 1007 IF ((nbondj == -1).OR.(nbondj == 2)) THEN 1008 1008 DO jj=1,j2 … … 1076 1076 1077 1077 NAMELIST/namagrif/ nn_cln_update,ln_spc_dyn,rn_sponge_tra,rn_sponge_dyn,ln_chk_bathy,npt_connect, & 1078 & npt_copy , ln_bry_south1078 & npt_copy 1079 1079 1080 1080 REWIND( numnam_ref ) ! Namelist namagrif in reference namelist : nesting parameters … … 1094 1094 WRITE(numout,*) ' npt_copy = ', npt_copy 1095 1095 WRITE(numout,*) ' npt_connect = ', npt_connect 1096 WRITE(numout,*) ' ln_bry_south = ', ln_bry_south1097 1096 ENDIF 1098 1097 … … 1102 1101 nbghostcells_y_s = nbghostcells 1103 1102 nbghostcells_y_n = nbghostcells 1103 1104 lk_west = .NOT. ( Agrif_Ix() == 1 ) 1105 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -1 ) 1106 lk_south = .NOT. ( Agrif_Iy() == 1 ) 1107 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 ) 1104 1108 1105 1109 IF (.not.agrif_root()) THEN … … 1107 1111 nbghostcells_x = 0 1108 1112 ENDIF 1109 IF (.NOT.l n_bry_south) THEN1113 IF (.NOT.lk_south) THEN 1110 1114 nbghostcells_y_s = 0 1111 1115 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.