/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_tracer.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_tracer.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE cv30_tracer(nloc, ncum, na, ment, sij, da, phi)    SUBROUTINE cv30_tracer(nloc, ncum, na, ment, sij, da, phi)
8    
9      implicit none      ! Passive tracers.
10    
     ! Inputs:  
11      integer, intent(in):: ncum, na, nloc      integer, intent(in):: ncum, na, nloc
12      real ment(nloc, na, na), sij(nloc, na, na)      real, intent(in):: ment(nloc, na, na), sij(nloc, na, na)
13    
14      ! Ouputs:      ! Ouputs:
15      real da(nloc, na), phi(nloc, na, na)      real, intent(out):: da(nloc, na)
16        real phi(nloc, na, na)
17    
18      ! Local variables:      ! Local:
19      integer i, j, k      integer i, j, k
20    
21      !------------------------------------------------------------      !------------------------------------------------------------
# Line 25  contains Line 25  contains
25      do j = 1, na      do j = 1, na
26         do k = 1, na         do k = 1, na
27            do i = 1, ncum            do i = 1, ncum
28               da(i, j) = da(i, j)+(1.-sij(i, k, j))*ment(i, k, j)               da(i, j) = da(i, j) + (1. - sij(i, k, j)) * ment(i, k, j)
29               phi(i, j, k) = sij(i, k, j) * ment(i, k, j)               phi(i, j, k) = sij(i, k, j) * ment(i, k, j)
30            end do            end do
31         end do         end do
Legend:
Removed from v.185  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21