- Timestamp:
- 2021-03-24T11:01:30+01:00 (3 years ago)
- Location:
- utils/tools/DOMAINcfg
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/AGRIF_FixedGrids.in_cmems
r13204 r14633 2 2 -10 15 57 75 3 3 3 3 3 30 70 126 170 3 3 3 4 1 1 811 35 3 3 34 1 179 1 35 3 3 3 5 5 0 6 6 0 -
utils/tools/DOMAINcfg/src/agrif_user.F90
r14630 r14633 1113 1113 IF (.not.agrif_root()) THEN 1114 1114 lk_west = .NOT. ( Agrif_Ix() == 1 ) 1115 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent( jpiglo) -1 )1115 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) -1 ) 1116 1116 lk_south = .NOT. ( Agrif_Iy() == 1 ) 1117 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 ) 1118 IF (.NOT.lk_south) THEN 1119 nbghostcells_y_s = 0 1120 ENDIF 1117 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) -1 ) 1118 IF (.NOT.lk_south) THEN 1119 nbghostcells_y_s = 0 1120 ENDIF 1121 IF (.NOT.lk_north) THEN 1122 nbghostcells_y_n = 0 1123 ENDIF 1124 IF(lwp) THEN ! Control print 1125 WRITE(numout,*) 1126 WRITE(numout,*) 'nbghostcells_y_s', nbghostcells_y_s 1127 WRITE(numout,*) 'nbghostcells_y_n', nbghostcells_y_n 1128 WRITE(numout,*) 'nbghostcells_x', nbghostcells_x 1129 WRITE(numout,*) 'lk_west', lk_west 1130 WRITE(numout,*) 'lk_east', lk_east 1131 WRITE(numout,*) 'lk_south', lk_south 1132 WRITE(numout,*) 'lk_north', lk_north 1133 ENDIF 1121 1134 ENDIF 1122 1135
Note: See TracChangeset
for help on using the changeset viewer.