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), optional | 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), optional | du3dt_mtb, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | du3dt_ogw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | du3dt_tms, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | du3dt_ngw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | 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 ) |