- Timestamp:
- 05/31/24 14:33:03 (6 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/GRISLIv3/SOURCES/Draggings_modules/dragging_param_beta_mod.f90
r470 r504 28 28 29 29 implicit none 30 31 logical,dimension(nx,ny) :: cote32 30 33 31 real,dimension(nx,ny) :: beta_param ! local variable … … 213 211 fleuvemx(:,:)=.false. 214 212 fleuvemy(:,:)=.false. 215 cote(:,:)=.false.216 213 gzmx(:,:)=.true. 217 214 gzmy(:,:)=.true. … … 219 216 flgzmy(:,:)=.false. 220 217 !$OMP END WORKSHARE 221 222 ! detection des cotes223 !$OMP DO224 do j=2,ny-1225 do i=2,nx-1226 if ((.not.flot(i,j)).and. &227 ((flot(i+1,j)).or.(flot(i,j+1)).or.(flot(i-1,j)).or.(flot(i,j-1)))) then228 cote(i,j)=.true.229 endif230 end do231 end do232 !$OMP END DO233 218 234 219
Note: See TracChangeset
for help on using the changeset viewer.