subroutine cires_ugwp_post::cires_ugwp_post_run |
( |
logical, intent(in) |
ldiag_ugwp, |
|
|
real(kind=kind_phys), intent(in) |
dtf, |
|
|
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
gw_dtdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
gw_dudt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
gw_dvdt, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tau_tofd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tau_mtb, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tau_ogw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tau_ngw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
zmtb, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
zlwb, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
zogw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dudt_mtb, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dudt_ogw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dudt_tms, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tot_zmtb, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tot_zlwb, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tot_zogw, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tot_tofd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tot_mtb, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tot_ogw, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tot_ngw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
du3dt_mtb, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
du3dt_ogw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
du3dt_tms, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
du3dt_ngw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dv3dt_ngw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dtdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dudt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dvdt, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |