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

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

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

revision 191 by guez, Thu Apr 14 15:15:56 2016 UTC revision 192 by guez, Thu May 12 13:00:07 2016 UTC
# Line 12  contains Line 12  contains
12      use cv_thermo_m, only: cpd, ginv, grav      use cv_thermo_m, only: cpd, ginv, grav
13      USE dimphy, ONLY: klon, klev      USE dimphy, ONLY: klon, klev
14    
15      ! inputs:      integer, intent(in):: icb(:) ! (ncum)
16      integer, intent(in):: icb(:), inb(:) ! (ncum)  
17        integer, intent(in):: inb(:) ! (ncum)
18        ! first model level above the level of neutral buoyancy of the
19        ! parcel (1 <= inb <= nl - 1)
20    
21      real, intent(in):: t(:, :), q(:, :), qs(:, :) ! (klon, klev)      real, intent(in):: t(:, :), q(:, :), qs(:, :) ! (klon, klev)
22      real, intent(in):: gz(:, :) ! (klon, klev)      real, intent(in):: gz(:, :) ! (klon, klev)
23      real, intent(in):: u(:, :), v(:, :) ! (klon, klev)      real, intent(in):: u(:, :), v(:, :) ! (klon, klev)
24      real p(klon, klev), ph(klon, klev + 1)      real, intent(in):: p(klon, klev), ph(klon, klev + 1)
25      real th(klon, klev)      real, intent(in):: th(klon, klev)
26      real tv(klon, klev)      real, intent(in):: tv(klon, klev)
27      real lv(klon, klev)      real, intent(in):: lv(klon, klev)
28      real cpn(klon, klev)      real, intent(in):: cpn(klon, klev)
29      real, intent(in):: ep(klon, klev), sigp(klon, klev), clw(klon, klev)      real, intent(in):: ep(:, :), sigp(:, :), clw(:, :) ! (ncum, klev)
30      real m(klon, klev), ment(klon, klev, klev), elij(klon, klev, klev)      real, intent(in):: m(:, :) ! (ncum, klev)
31        real, intent(in):: ment(:, :, :) ! (ncum, klev, klev)
32        real, intent(in):: elij(:, :, :) ! (ncum, klev, klev)
33      real, intent(in):: delt      real, intent(in):: delt
34      real plcl(klon)      real, intent(in):: plcl(klon)
35    
36      ! outputs:      ! outputs:
37      real, intent(out):: mp(klon, klev)      real, intent(out):: mp(klon, klev)
Legend:
Removed from v.191  
changed lines
  Added in v.192
  ViewVC Help
Powered by ViewVC 1.1.21