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

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

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

trunk/phylmd/CV3_routines/cv3_unsat.f revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC trunk/Sources/phylmd/CV30_routines/cv30_unsat.f revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC
# Line 1  Line 1 
1  module cv3_unsat_m  module cv30_unsat_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_unsat(nloc,ncum,nd,na,icb,inb &    SUBROUTINE cv30_unsat(nloc,ncum,nd,na,icb,inb &
8         ,t,rr,rs,gz,u,v,p,ph &         ,t,rr,rs,gz,u,v,p,ph &
9         ,th,tv,lv,cpn,ep,sigp,clw &         ,th,tv,lv,cpn,ep,sigp,clw &
10         ,m,ment,elij,delt,plcl &         ,m,ment,elij,delt,plcl &
11         ,mp,rp,up,vp,wt,water,evap,b)         ,mp,rp,up,vp,wt,water,evap,b)
12      use cv3_param_m      use cv30_param_m
13      use cvthermo      use cvthermo
14      use cvflag      use cvflag
15    
# Line 33  contains Line 33  contains
33      real b(nloc,na)      real b(nloc,na)
34    
35      ! local variables      ! local variables
36      integer i,j,k,il,num1      integer i,j,il,num1
37      real tinv, delti      real tinv, delti
38      real awat, afac, afac1, afac2, bfac      real awat, afac, afac1, afac2, bfac
39      real pr1, pr2, sigt, b6, c6, revap, tevap, delth      real pr1, pr2, sigt, b6, c6, revap, tevap, delth
# Line 316  contains Line 316  contains
316    
317      end DO      end DO
318    
319    end SUBROUTINE cv3_unsat    end SUBROUTINE cv30_unsat
320    
321  end module cv3_unsat_m  end module cv30_unsat_m
Legend:
Removed from v.97  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21