Log of /trunk/misc/tanh_cautious.f90

---

Revision 328 - (view) (annotate) - [select for diffs]
Modified Thu Jun 13 14:40:06 2019 UTC (4 years, 11 months ago) by guez
File length: 766 byte(s)
Copied from: trunk/misc/tanh_cautious.f revision 327
Diff to previous 254

Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.)  Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.

---

Revision 254 - (view) (annotate) - [select for diffs]
Modified Mon Feb 5 10:39:38 2018 UTC (6 years, 3 months ago) by guez
Original Path: trunk/misc/tanh_cautious.f
File length: 766 byte(s)
Diff to previous 145

Move Sources/* to root directory.

---

Revision 145 - (view) (annotate) - [select for diffs]
Modified Tue Jun 16 15:23:29 2015 UTC (8 years, 11 months ago) by guez
Original Path: trunk/Sources/misc/tanh_cautious.f
File length: 766 byte(s)
Diff to previous 144

Renamed bibio to misc.

In procedure fxhyp, use the fact that xf is an odd function of xtild.

In procedure invert_zoom_x, replace linear search in xf by
bisection. Also, use result from previous loop iteration as initial
guess. Variable "it" cannot be equal to 2 * nmax after search.

Unused arguments: hm of cv3_feed; ph, qnk, tv,tvp of cv3_mixing; ppsol
of lw; rconst, temp of vdif_kcay; rconst, plev, temp, ustar, l_mix of
yamada.

---

Revision 144 - (view) (annotate) - [select for diffs]
Added Wed Jun 10 16:46:46 2015 UTC (8 years, 11 months ago) by guez
Original Path: trunk/Sources/bibio/tanh_cautious.f
File length: 766 byte(s)

In procedure fxhyp, the convoluted computation of tanh(fa/fb) occurred
three times. Extracted it into a function. Also, the computation of
xmoy and fxm was repeated. So stored the values in arrays instead.

In procedure fxhyp, in the computation of fhyp, there were tests
xtild(i) == 0. and xtild(i) == pi_d. No use to do these tests at each
iteration. We now they are true for i == nmax and i == 2 * nmax,
respectively, and we know they are false for other values of
"i". Similarly, in the computations of ffdx and xxpr, there were the
tests xmoy == 0. and xmoy == pi_d, these could not be true.

Moved files from bibio to dyn3d, following LMDZ.