| 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 |
Parent Directory
| 
Revision Log
| 
Patch