source: dynamico_lmdz/aquaplanet/LMDZ5_old/libf/filtrez/acc.F

Last change on this file was 3809, checked in by ymipsl, 10 years ago

Add LMDZ in aquaplanet configuration
YM
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.