| subroutine ecmwf_ngw::ecmwf_ngw_emc | ( | integer, intent(in) | mpi_id, |
| integer, intent(in) | master, | ||
| integer, intent(in) | klon, | ||
| integer, intent(in) | klev, | ||
| integer, intent(in) | kdt, | ||
| real(kind=kind_phys), intent(in) | ptstep, | ||
| real(kind=kind_phys), dimension(klon), intent(in) | dx, | ||
| real(kind=kind_phys), dimension(klon), intent(in) | tau_ngw, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(in) | ptm11, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(in) | pum11, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(in) | pvm11, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(in) | qm1, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(in) | papm11, | ||
| real(kind=kind_phys), dimension(klon,klev+1), intent(in) | paphm11, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(in) | pgeo11, | ||
| real(kind=kind_phys), dimension(klon,klev+1), intent(in) | zmeti1, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(in) | prslk1, | ||
| real(kind=kind_phys), dimension(klon), intent(in) | xlatd, | ||
| real(kind=kind_phys), dimension(klon), intent(in) | sinlat, | ||
| real(kind=kind_phys), dimension(klon), intent(in) | coslat, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(out) | ptenu, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(out) | ptenv, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(out) | pdtdt, | ||
| real(kind=kind_phys), dimension(klon,klev), intent(out) | dked, | ||
| real(kind=kind_phys), dimension(klon), intent(out) | zngw | ||
| ) |
Definition at line 54 of file ecmwf_ngw.F90.