31 |
c |
c |
32 |
c NOTES: 1) Pressure levs are built up from bottom, using p0, ps and dp: |
c NOTES: 1) Pressure levs are built up from bottom, using p0, ps and dp: |
33 |
c p(i,j,k)=p(i,j,k-1) + dp(k)*ps(i,j)/p0(i,j) |
c p(i,j,k)=p(i,j,k-1) + dp(k)*ps(i,j)/p0(i,j) |
34 |
c 2) Output dp's are aligned to fit EXACTLY between existing |
c 2) Output dp(s) are aligned to fit EXACTLY between existing |
35 |
c levels of the dynamics vertical grid |
c levels of the dynamics vertical grid |
36 |
c 3) IMPORTANT! This routine assumes the levels are numbered |
c 3) IMPORTANT! This routine assumes the levels are numbered |
37 |
c from the bottom up, ie, level 1 is the surface. |
c from the bottom up, ie, level 1 is the surface. |
54 |
c |
c |
55 |
integer i,j,L,Lbotij,Lnew |
integer i,j,L,Lbotij,Lnew |
56 |
c Require 12 (or 15) levels near the surface (300 mb worth) for fizhi. |
c Require 12 (or 15) levels near the surface (300 mb worth) for fizhi. |
57 |
c the dp's are in the dptry arrays: |
c the dp(s) are in the dptry arrays: |
58 |
integer ntry,ntry10,ntry40 |
integer ntry,ntry10,ntry40 |
59 |
parameter (ntry10 = 12) |
parameter (ntry10 = 12) |
60 |
parameter (ntry40 = 12) |
parameter (ntry40 = 12) |