/[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/CV30_routines/cv3_yield.f revision 184 by guez, Wed Mar 16 14:50:46 2016 UTC trunk/Sources/phylmd/CV30_routines/cv30_yield.f revision 185 by guez, Wed Mar 16 15:04:46 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 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.184  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21