/[lmdze]/trunk/phylmd/CV30_routines/cv30_undilute2.f90
ViewVC logotype

Diff of /trunk/phylmd/CV30_routines/cv30_undilute2.f90

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

trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f revision 201 by guez, Mon Jun 6 17:42:15 2016 UTC trunk/phylmd/CV30_routines/cv30_undilute2.f90 revision 332 by guez, Tue Aug 13 09:19:22 2019 UTC
# Line 14  contains Line 14  contains
14    
15      ! Vertical profile of buoyancy computed here (use of buoybase).      ! Vertical profile of buoyancy computed here (use of buoybase).
16    
17      use conema3_m, only: epmax      use conf_phys_m, only: epmax
18      use cv30_param_m, only: minorig, nl      use cv30_param_m, only: minorig, nl
19      use cv_thermo_m, only: clmcpv, eps      use cv_thermo, only: clmcpv, eps
20      USE dimphy, ONLY: klon, klev      USE dimphy, ONLY: klon, klev
21      use SUPHEC_M, only: rcw, rlvtt, rcpd, rcpv, rv      use SUPHEC_M, only: rcw, rlvtt, rcpd, rcpv, rv
22    
23      integer, intent(in):: icb(:), icbs(:) ! (ncum)      integer, intent(in):: icb(:) ! (ncum) {2 <= icb <= nl - 3}
24    
25        integer, intent(in):: icbs(:) ! (ncum)
26      ! icbs is the first level above LCL (may differ from icb)      ! icbs is the first level above LCL (may differ from icb)
27    
28      real, intent(in):: tnk(:), qnk(:), gznk(:) ! (klon)      real, intent(in):: tnk(:), qnk(:), gznk(:) ! (klon)
Legend:
Removed from v.201  
changed lines
  Added in v.332
  ViewVC Help
Powered by ViewVC 1.1.21