source: trunk/LMDZ.TITAN.old/Tools/moyzon.F @ 3555

Last change on this file since 3555 was 1454, checked in by slebonnois, 10 years ago

SL: corrections in Titan and Venus tools

File size: 1.1 KB
Line 
1      SUBROUTINE moyzon(iim,jjp1,nl,indefini,x,xbar)
2c=======================================================================
3c
4c
5c   Subject:
6c   ------
7c   Calcul de la moyenne zonale de la variable au point scalaire x
8c
9c=======================================================================
10      IMPLICIT NONE
11c-----------------------------------------------------------------------
12c   Declararations:
13c   ---------------
14
15c   Arguments:
16c   ----------
17
18      INTEGER iim,jjp1,nl
19      real indefini
20      REAL x(iim+1,jjp1,nl)
21      REAL xbar(jjp1,nl)
22
23c   Local:
24c   ------
25
26      iNTEGER i,j,l , n
27
28c------------------------------------------------------------------------
29      do l=1,nl
30        do j=1,jjp1
31           xbar(j,l)=0.
32           n = 0
33           do i=1,iim
34              if (x(i,j,l).ne.indefini) then
35                 xbar(j,l) = xbar(j,l) + x(i,j,l)
36                 n = n+1
37              end if
38           end do
39           if (n.ne.0) then
40              xbar(j,l) = xbar(j,l)/float(n)
41           else
42              xbar(j,l) = indefini
43           end if 
44        end do
45      end do
46
47      RETURN
48      END
Note: See TracBrowser for help on using the repository browser.