source: LMDZ5/branches/LMDZ_tree_FC/libf/filtrez/acc.F @ 4810

Last change on this file since 4810 was 2197, checked in by Ehouarn Millour, 10 years ago

Added 'implicit none' statements and proper variable definitions where they were missing.
EM

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 448 bytes
Line 
1!
2! $Header$
3!
4        subroutine acc(vec,d,im)
5        implicit none
6        integer :: im
7        real :: vec(im,im),d(im)
8        integer :: i,j
9        real ::sum
10        real,external :: ssum
11        do j=1,im
12          do i=1,im
13            d(i)=vec(i,j)*vec(i,j)
14          enddo
15          sum=ssum(im,d,1)
16          sum=sqrt(sum)
17          do i=1,im
18            vec(i,j)=vec(i,j)/sum
19          enddo
20        enddo
21        return
22        end
Note: See TracBrowser for help on using the repository browser.