subroutine m_micro::gw_prof |
( |
integer, intent(in) |
pcols, |
|
|
integer, intent(in) |
pver, |
|
|
integer, intent(in) |
ncol, |
|
|
real(kind=kind_phys), dimension(pcols,pver), intent(in) |
t, |
|
|
real(kind=kind_phys), dimension(pcols,pver), intent(in) |
pm, |
|
|
real(kind=kind_phys), dimension(pcols,0:pver), intent(in) |
pi, |
|
|
real(kind=kind_phys), dimension(pcols,0:pver), intent(out) |
rhoi, |
|
|
real(kind=kind_phys), dimension(pcols,0:pver), intent(out) |
ni, |
|
|
real(kind=kind_phys), dimension(pcols,0:pver), intent(out) |
ti, |
|
|
real(kind=kind_phys), dimension(pcols,pver), intent(out) |
nm, |
|
|
real(kind=kind_phys), dimension(pcols,pver), intent(in) |
sph |
|
) |
| |
|
private |