/[lmdze]/trunk/libf/phylmd/cv_routines.f
ViewVC logotype

Diff of /trunk/libf/phylmd/cv_routines.f

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

revision 46 by guez, Mon Jul 21 16:05:07 2008 UTC revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 73  c Line 73  c
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  !=====================================================================  !=====================================================================
# Line 91  c local variables: Line 92  c local variables:
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    
# Line 256  c Line 256  c
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:
# Line 487  c local variables: Line 487  c local variables:
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---------------------------------------------------------------------
# Line 499  C     & Line 500  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:
# Line 770  c Line 770  c
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:
# Line 788  c local variables: Line 789  c local variables:
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-------------------------------------------------------------------
# Line 856  c Line 856  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:
# Line 1115  c Line 1115  c
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:
# Line 1320  c Line 1320  c
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
Legend:
Removed from v.46  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21