Changeset 65 for trunk/SOURCES/diffusiv-polyn-0.6.f90
- Timestamp:
- 05/18/16 17:11:29 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/diffusiv-polyn-0.6.f90
r59 r65 44 44 REAL :: INV_4DX ! inverse de dx pour eviter les divisions =1/(4*dx) 45 45 REAL :: INV_4DY ! inverse de dy pour eviter les divisions =1/(4*dy) 46 INTEGER :: ii47 integer :: ll48 46 49 47 if (itracebug.eq.1) call tracebug(' Entree dans routine diffusiv')
Note: See TracChangeset
for help on using the changeset viewer.