73 |
|
|
74 |
SUBROUTINE cv_prelim(len,nd,ndp1,t,q,p,ph |
SUBROUTINE cv_prelim(len,nd,ndp1,t,q,p,ph |
75 |
: ,lv,cpn,tv,gz,h,hm) |
: ,lv,cpn,tv,gz,h,hm) |
76 |
|
use cvthermo |
77 |
implicit none |
implicit none |
78 |
|
|
79 |
!===================================================================== |
!===================================================================== |
92 |
integer k, i |
integer k, i |
93 |
real cpx(len,nd) |
real cpx(len,nd) |
94 |
|
|
|
include "cvthermo.h" |
|
95 |
include "cvparam.h" |
include "cvparam.h" |
96 |
|
|
97 |
|
|
256 |
|
|
257 |
SUBROUTINE cv_undilute1(len,nd,t,q,qs,gz,p,nk,icb,icbmax |
SUBROUTINE cv_undilute1(len,nd,t,q,qs,gz,p,nk,icb,icbmax |
258 |
: ,tp,tvp,clw) |
: ,tp,tvp,clw) |
259 |
|
use cvthermo |
260 |
implicit none |
implicit none |
261 |
|
|
|
include "cvthermo.h" |
|
262 |
include "cvparam.h" |
include "cvparam.h" |
263 |
|
|
264 |
c inputs: |
c inputs: |
487 |
: ,tnk,qnk,gznk,t,q,qs,gz |
: ,tnk,qnk,gznk,t,q,qs,gz |
488 |
: ,p,dph,h,tv,lv |
: ,p,dph,h,tv,lv |
489 |
o ,inb,inb1,tp,tvp,clw,hp,ep,sigp,frac) |
o ,inb,inb1,tp,tvp,clw,hp,ep,sigp,frac) |
490 |
|
use cvthermo |
491 |
implicit none |
implicit none |
492 |
|
|
493 |
C--------------------------------------------------------------------- |
C--------------------------------------------------------------------- |
500 |
C FIND THE LEVEL OF NEUTRAL BUOYANCY |
C FIND THE LEVEL OF NEUTRAL BUOYANCY |
501 |
C--------------------------------------------------------------------- |
C--------------------------------------------------------------------- |
502 |
|
|
|
include "cvthermo.h" |
|
503 |
include "cvparam.h" |
include "cvparam.h" |
504 |
|
|
505 |
c inputs: |
c inputs: |
770 |
SUBROUTINE cv_closure(nloc,ncum,nd,nk,icb |
SUBROUTINE cv_closure(nloc,ncum,nd,nk,icb |
771 |
: ,tv,tvp,p,ph,dph,plcl,cpn |
: ,tv,tvp,p,ph,dph,plcl,cpn |
772 |
: ,iflag,cbmf) |
: ,iflag,cbmf) |
773 |
|
use cvthermo |
774 |
implicit none |
implicit none |
775 |
|
|
776 |
c inputs: |
c inputs: |
789 |
real dtpbl(nloc), dtmin(nloc), tvpplcl(nloc), tvaplcl(nloc) |
real dtpbl(nloc), dtmin(nloc), tvpplcl(nloc), tvaplcl(nloc) |
790 |
real work(nloc) |
real work(nloc) |
791 |
|
|
|
include "cvthermo.h" |
|
792 |
include "cvparam.h" |
include "cvparam.h" |
793 |
|
|
794 |
c------------------------------------------------------------------- |
c------------------------------------------------------------------- |
856 |
: ,ph,t,q,qs,u,v,h,lv,qnk |
: ,ph,t,q,qs,u,v,h,lv,qnk |
857 |
: ,hp,tv,tvp,ep,clw,cbmf |
: ,hp,tv,tvp,ep,clw,cbmf |
858 |
: ,m,ment,qent,uent,vent,nent,sij,elij) |
: ,m,ment,qent,uent,vent,nent,sij,elij) |
859 |
|
use cvthermo |
860 |
implicit none |
implicit none |
861 |
|
|
|
include "cvthermo.h" |
|
862 |
include "cvparam.h" |
include "cvparam.h" |
863 |
|
|
864 |
c inputs: |
c inputs: |
1115 |
SUBROUTINE cv_unsat(nloc,ncum,nd,inb,t,q,qs,gz,u,v,p,ph |
SUBROUTINE cv_unsat(nloc,ncum,nd,inb,t,q,qs,gz,u,v,p,ph |
1116 |
: ,h,lv,ep,sigp,clw,m,ment,elij |
: ,h,lv,ep,sigp,clw,m,ment,elij |
1117 |
: ,iflag,mp,qp,up,vp,wt,water,evap) |
: ,iflag,mp,qp,up,vp,wt,water,evap) |
1118 |
|
use cvthermo |
1119 |
implicit none |
implicit none |
1120 |
|
|
1121 |
|
|
|
include "cvthermo.h" |
|
1122 |
include "cvparam.h" |
include "cvparam.h" |
1123 |
|
|
1124 |
c inputs: |
c inputs: |
1320 |
: ,tv,tvp |
: ,tv,tvp |
1321 |
o ,iflag,wd,qprime,tprime |
o ,iflag,wd,qprime,tprime |
1322 |
o ,precip,cbmf,ft,fq,fu,fv,Ma,qcondc) |
o ,precip,cbmf,ft,fq,fu,fv,Ma,qcondc) |
1323 |
|
use cvthermo |
1324 |
implicit none |
implicit none |
1325 |
|
|
|
include "cvthermo.h" |
|
1326 |
include "cvparam.h" |
include "cvparam.h" |
1327 |
|
|
1328 |
c inputs |
c inputs |