This module contains code to be executed after the UGWP v1 scheme. More...
Functions/Subroutines | |
| subroutine | ugwpv1_gsldrag_post_run (im, levs, ldiag_ugwp, dtf, dudt_gw, dvdt_gw, tau_ogw, tau_ngw, zobl, zlwb, zogw, dudt_obl, dvdt_obl, dudt_ofd, dvdt_ofd, dudt_ogw, dvdt_ogw, dudt_oss, dvdt_oss, tot_zmtb, tot_zlwb, tot_zogw, tot_tofd, tot_mtb, tot_ogw, tot_ngw, du3dt_mtb, du3dt_ogw, du3dt_tms, du3dt_ngw, dv3dt_ngw, dudt_ngw, dvdt_ngw, dtdt_ngw, ldu3dt_ngw, ldv3dt_ngw, ldt3dt_ngw, dws3dt_ogw, dws3dt_obl, dws3dt_oss, dws3dt_ofd, ldu3dt_ogw, ldu3dt_obl, ldu3dt_oss, ldu3dt_ofd, du_ogwcol, dv_ogwcol, du_oblcol, dv_oblcol, du_osscol, dv_osscol, du_ofdcol, dv_ofdcol, du3_ogwcol, dv3_ogwcol, du3_oblcol, dv3_oblcol, du3_osscol, dv3_osscol, du3_ofdcol, dv3_ofdcol, errmsg, errflg) |
This module contains code to be executed after the UGWP v1 scheme.
| subroutine ugwpv1_gsldrag_post::ugwpv1_gsldrag_post_run | ( | integer, intent(in) | im, |
| integer, intent(in) | levs, | ||
| logical, intent(in) | ldiag_ugwp, | ||
| real(kind=kind_phys), intent(in) | dtf, | ||
| real(kind=kind_phys), dimension(:,:), intent(in) | dudt_gw, | ||
| real(kind=kind_phys), dimension(:,:), intent(in) | dvdt_gw, | ||
| 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) | zobl, | ||
| real(kind=kind_phys), dimension(:), intent(in) | zlwb, | ||
| real(kind=kind_phys), dimension(:), intent(in) | zogw, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dudt_obl, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dvdt_obl, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dudt_ofd, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dvdt_ofd, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dudt_ogw, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dvdt_ogw, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dudt_oss, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dvdt_oss, | ||
| 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(in), optional | dudt_ngw, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dvdt_ngw, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | dtdt_ngw, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | ldu3dt_ngw, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | ldv3dt_ngw, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | ldt3dt_ngw, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | dws3dt_ogw, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | dws3dt_obl, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | dws3dt_oss, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | dws3dt_ofd, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | ldu3dt_ogw, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | ldu3dt_obl, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | ldu3dt_oss, | ||
| real(kind=kind_phys), dimension(:,:), intent(inout), optional | ldu3dt_ofd, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | du_ogwcol, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | dv_ogwcol, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | du_oblcol, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | dv_oblcol, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | du_osscol, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | dv_osscol, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | du_ofdcol, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | dv_ofdcol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | du3_ogwcol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | dv3_ogwcol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | du3_oblcol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | dv3_oblcol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | du3_osscol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | dv3_osscol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | du3_ofdcol, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | dv3_ofdcol, | ||
| character(len=*), intent(out) | errmsg, | ||
| integer, intent(out) | errflg | ||
| ) |
| [in] | ldiag_ugwp | flag for CIRES UGWP Diagnostics |
Definition at line 12 of file ugwpv1_gsldrag_post.F90.