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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 108 - (hide annotations)
Tue Sep 16 14:00:41 2014 UTC (9 years, 9 months ago) by guez
Original Path: trunk/filtrez/acc.f
File size: 424 byte(s) 
Imported writefield from LMDZ. Close at the end of gcm the files which
were created by writefiled (not done in LMDZ).

Removed procedures for the output of Grads files. Removed calls to
dump2d. In guide, replaced calls to wrgrads by calls to writefield.

In vlspltqs, removed redundant programming of saturation
pressure. Call foeew from module FCTTRE instead.

Bug fix in interpre: size of w exceeding size of correponding actual
argument wg in advtrac.

In leapfrog, call guide until the end of the run, instead of six hours
before the end.

Bug fix in readsulfate_preind: type of arguments.
1 guez 81
2     ! $Header: /home/cvsroot/LMDZ4/libf/filtrez/acc.F,v 1.1.1.1 2004/05/19
3     ! 12:53:09 lmdzadmin Exp $
4    
5     SUBROUTINE acc(vec, d, im)
6 guez 108 implicit none
7     integer im, i, j
8     real vec(im, im), d(im)
9     real sum, ssum
10 guez 81
11     DO j = 1, im
12     DO i = 1, im
13     d(i) = vec(i, j)*vec(i, j)
14     END DO
15     sum = ssum(im, d, 1)
16     sum = sqrt(sum)
17     DO i = 1, im
18     vec(i, j) = vec(i, j)/sum
19     END DO
20     END DO
21     RETURN
22     END SUBROUTINE acc
  ViewVC Help
Powered by ViewVC 1.1.21