Log of /trunk/dyn3d/coefpoly.f

---

Revision 76 - (view) (annotate) - [selected]
Modified Fri Nov 15 18:45:49 2013 UTC (10 years, 6 months ago) by guez
File length: 1445 byte(s)
Diff to previous 71

Moved everything out of libf.

---

Revision 71 - (view) (annotate) - [select for diffs]
Modified Mon Jul 8 18:12:18 2013 UTC (10 years, 10 months ago) by guez
Original Path: trunk/libf/dyn3d/coefpoly.f
File length: 1445 byte(s)
Diff to previous 3 , to selected 76

No reason to call inidissip in ce0l.

In inidissip, set random seed to 1 beacuse PGI compiler does not
accept all zeros.

dq was computed needlessly in caladvtrac. Arguments masse and dq of
calfis not used.

Replaced real*8 by double precision.

Pass arrays with inverted order of vertical levels to conflx instead
of creating local variables for this inside conflx.

---

Revision 3 - (view) (annotate) - [select for diffs]
Added Wed Feb 27 13:16:39 2008 UTC (16 years, 3 months ago) by guez
Original Path: trunk/libf/dyn3d/coefpoly.f
File length: 1415 byte(s)
Diff to selected 76

Initial import