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 |
|
|
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 |