--- trunk/phylmd/CV3_routines/cv3_unsat.f 2014/09/04 10:40:24 105 +++ trunk/Sources/phylmd/CV30_routines/cv30_unsat.f 2016/03/16 15:04:46 185 @@ -1,15 +1,15 @@ -module cv3_unsat_m +module cv30_unsat_m implicit none contains - SUBROUTINE cv3_unsat(nloc,ncum,nd,na,icb,inb & + SUBROUTINE cv30_unsat(nloc,ncum,nd,na,icb,inb & ,t,rr,rs,gz,u,v,p,ph & ,th,tv,lv,cpn,ep,sigp,clw & ,m,ment,elij,delt,plcl & ,mp,rp,up,vp,wt,water,evap,b) - use cv3_param_m + use cv30_param_m use cvthermo use cvflag @@ -316,6 +316,6 @@ end DO - end SUBROUTINE cv3_unsat + end SUBROUTINE cv30_unsat -end module cv3_unsat_m +end module cv30_unsat_m