/[lmdze]/trunk/phylmd/CV30_routines/cv30_feed.f
ViewVC logotype

Diff of /trunk/phylmd/CV30_routines/cv30_feed.f

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

trunk/Sources/phylmd/CV30_routines/cv3_feed.f revision 184 by guez, Wed Mar 16 14:50:46 2016 UTC trunk/Sources/phylmd/CV30_routines/cv30_feed.f revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 1  Line 1 
1  module cv3_feed_m  module cv30_feed_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, &    SUBROUTINE cv30_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, &
8         tnk, qnk, gznk, plcl)         tnk, qnk, gznk, plcl)
9    
10      ! Purpose: convective feed      ! Purpose: convective feed
# Line 14  contains Line 14  contains
14      ! - here, nk(i) = minorig      ! - here, nk(i) = minorig
15      ! - icb defined differently (plcl compared with ph instead of p)      ! - icb defined differently (plcl compared with ph instead of p)
16    
17      use cv3_param_m, only: minorig, nl, nlm      use cv30_param_m, only: minorig, nl
18    
19      integer, intent(in):: len, nd      integer, intent(in):: len, nd
20      real, intent(in):: t(len, nd)      real, intent(in):: t(len, nd)
# Line 73  contains Line 73  contains
73      ! Calculate first level above lcl (= icb)      ! Calculate first level above lcl (= icb)
74    
75      do i = 1, len      do i = 1, len
76         icb(i) = nlm         icb(i) = nl - 1
77      end do      end do
78    
79      ! La modification consiste \`a comparer plcl \`a ph et non \`a p:      ! La modification consiste \`a comparer plcl \`a ph et non \`a p:
# Line 85  contains Line 85  contains
85      end do      end do
86    
87      do i = 1, len      do i = 1, len
88         if ((icb(i) == nlm).and.(iflag(i) == 0)) iflag(i) = 9         if ((icb(i) == nl - 1).and.(iflag(i) == 0)) iflag(i) = 9
89      end do      end do
90    
91      do i = 1, len      do i = 1, len
# Line 100  contains Line 100  contains
100         if (iflag(i) < 7) icbmax = max(icbmax, icb(i))         if (iflag(i) < 7) icbmax = max(icbmax, icb(i))
101      end do      end do
102    
103    end SUBROUTINE cv3_feed    end SUBROUTINE cv30_feed
104    
105  end module cv3_feed_m  end module cv30_feed_m
Legend:
Removed from v.184  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21