/[lmdze]/trunk/Sources/misc/acc.f
ViewVC logotype

Contents of /trunk/Sources/misc/acc.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 145 - (show annotations)
Tue Jun 16 15:23:29 2015 UTC (8 years, 11 months ago) by guez
File size: 411 byte(s)
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.

1 module acc_m
2
3 implicit none
4
5 contains
6
7 SUBROUTINE acc(vec)
8
9 ! From LMDZ4/libf/filtrez/acc.F, v 1.1.1.1 2004/05/19 12:53:09
10
11 ! Normalize each column of vec.
12
13 real, intent(inout):: vec(:, :)
14
15 ! Local:
16 integer j
17
18 !--------------------------------------------------
19
20 forall (j = 1:size(vec, 2)) vec(:, j) = vec(:, j) / sqrt(sum(vec(:, j)**2))
21
22 END SUBROUTINE acc
23
24 end module acc_m

  ViewVC Help
Powered by ViewVC 1.1.21