Changeset 658 for trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90
- Timestamp:
- May 12, 2012, 8:10:08 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90
r645 r658 726 726 727 727 subroutine tridag(a,b,c,r,u,n) 728 parameter (nmax=4000)728 ! parameter (nmax=4000) 729 729 ! dimension gam(nmax),a(n),b(n),c(n),r(n),u(n) 730 real*8 gam(n max),a(n),b(n),c(n),r(n),u(n)730 real*8 gam(n),a(n),b(n),c(n),r(n),u(n) 731 731 if(b(1).eq.0.)then 732 732 stop 'tridag: error: b(1)=0 !!! '
Note: See TracChangeset
for help on using the changeset viewer.