source: trunk/LMDZ.VENUS/Tools/moytim.F @ 3552

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

SL: corrections in Titan and Venus tools

File size: 1.2 KB
Line 
1      SUBROUTINE moytim(iim,jjp1,nl,nt,indefini,x,xmean)
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,nt
19      real indefini
20      REAL x(iim,jjp1,nl,nt)
21      REAL xmean(iim,jjp1,nl)
22
23c   Local:
24c   ------
25
26      iNTEGER i,j,l,t , n
27
28c------------------------------------------------------------------------
29      do l=1,nl
30       do j=1,jjp1
31        do i=1,iim
32           xmean(i,j,l)=0.
33           n = 0
34           do t=1,nt
35              if (x(i,j,l,t).ne.indefini) then
36                 xmean(i,j,l) = xmean(i,j,l) + x(i,j,l,t)
37                 n = n+1
38              end if
39           end do
40           if (n.ne.0) then
41              xmean(i,j,l) = xmean(i,j,l)/float(n)
42           else
43              xmean(i,j,l) = indefini
44           end if 
45        end do
46       end do
47      end do
48
49      RETURN
50      END
Note: See TracBrowser for help on using the repository browser.