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

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

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

trunk/Sources/phylmd/CV3_routines/cv3_yield.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC trunk/Sources/phylmd/CV30_routines/cv30_yield.f revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 1  Line 1 
1  module cv3_yield_m  module cv30_yield_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_yield(nloc,ncum,nd,na  &    SUBROUTINE cv30_yield(nloc,ncum,nd,na  &
8         ,icb,inb,delt &         ,icb,inb,delt &
9         ,t,rr,u,v,gz,p,ph,h,hp,lv,cpn,th &         ,t,rr,u,v,gz,p,ph,h,hp,lv,cpn,th &
10         ,ep,clw,m,tp,mp,rp,up,vp &         ,ep,clw,m,tp,mp,rp,up,vp &
# Line 14  contains Line 14  contains
14         ,iflag,precip,VPrecip,ft,fr,fu,fv &         ,iflag,precip,VPrecip,ft,fr,fu,fv &
15         ,upwd,dnwd,dnwd0,ma,mike,tls,tps,qcondc,wd)         ,upwd,dnwd,dnwd0,ma,mike,tls,tps,qcondc,wd)
16      use conema3_m      use conema3_m
17      use cv3_param_m      use cv30_param_m
18      use cvthermo      use cvthermo
19      use cvflag      use cvflag
20    
# Line 230  contains Line 230  contains
230         enddo         enddo
231         if(num1.le.0) cycle         if(num1.le.0) cycle
232    
233         call zilch(amp1,ncum)         amp1(:ncum) = 0.
234         call zilch(ad,ncum)         ad(:ncum) = 0.
235    
236         do  k=i+1,nl+1         do  k=i+1,nl+1
237            do  il=1,ncum            do  il=1,ncum
# Line 697  contains Line 697  contains
697         enddo                                               ! cld         enddo                                               ! cld
698      enddo                                                ! cld      enddo                                                ! cld
699    
700    end SUBROUTINE cv3_yield    end SUBROUTINE cv30_yield
701    
702  end module cv3_yield_m  end module cv30_yield_m
Legend:
Removed from v.178  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21