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 |