/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f

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

trunk/Sources/phylmd/CV3_routines/cv3_undilute2.f revision 183 by guez, Wed Mar 16 14:42:58 2016 UTC trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 1  Line 1 
1  module cv3_undilute2_m  module cv30_undilute2_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_undilute2(nloc, ncum, nd, icb, icbs, nk, tnk, qnk, gznk, t, &    SUBROUTINE cv30_undilute2(nloc, ncum, nd, icb, icbs, nk, tnk, qnk, gznk, t, &
8         qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, tvp, clw, hp, &         qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, tvp, clw, hp, &
9         ep, sigp, buoy)         ep, sigp, buoy)
10    
# Line 16  contains Line 16  contains
16      ! Vertical profile of buoyancy computed here (use of buoybase).      ! Vertical profile of buoyancy computed here (use of buoybase).
17    
18      use conema3_m, only: epmax      use conema3_m, only: epmax
19      use cv3_param_m, only: dtovsh, minorig, nl, nlp, pbcrit, ptcrit, spfac      use cv30_param_m, only: dtovsh, minorig, nl, pbcrit, ptcrit, spfac
20      use cvthermo, only: cl, clmcpv, cpd, cpv, eps, lv0, rrv      use cvthermo, only: cl, clmcpv, cpd, cpv, eps, lv0, rrv
21    
22      ! inputs:      ! inputs:
# Line 137  contains Line 137  contains
137      ! tvp est calcule en une seule fois, et sans retirer      ! tvp est calcule en une seule fois, et sans retirer
138      ! l'eau condensee (~> reversible CAPE)      ! l'eau condensee (~> reversible CAPE)
139      do i = 1, ncum      do i = 1, ncum
140         tp(i, nlp) = tp(i, nl)         tp(i, nl + 1) = tp(i, nl)
141      end do      end do
142    
143      ! EFFECTIVE VERTICAL PROFILE OF BUOYANCY:      ! EFFECTIVE VERTICAL PROFILE OF BUOYANCY:
# Line 177  contains Line 177  contains
177    
178      ! CALCULATE LIQUID WATER STATIC ENERGY OF LIFTED PARCEL      ! CALCULATE LIQUID WATER STATIC ENERGY OF LIFTED PARCEL
179    
180      do k = 1, nlp      do k = 1, nl + 1
181         do i = 1, ncum         do i = 1, ncum
182            hp(i, k) = h(i, k)            hp(i, k) = h(i, k)
183         enddo         enddo
# Line 190  contains Line 190  contains
190         end do         end do
191      end do      end do
192    
193    end SUBROUTINE cv3_undilute2    end SUBROUTINE cv30_undilute2
194    
195  end module cv3_undilute2_m  end module cv30_undilute2_m
Legend:
Removed from v.183  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21