 |
CCPP SciDoc v8.0.0
v8.0.0
Common Community Physics Package Developed at DTC
|
|
|
CCPP SciDoc v8.0.0
v8.0.0
Common Community Physics Package Developed at DTC
|
|
This module contains the UGWP v0 driver module. More...
Functions/Subroutines | |
| subroutine | gwdps_v0 (im, km, imx, do_tofd, pdvdt, pdudt, pdtdt, pkdis, u1, v1, t1, q1, kpbl, prsi, del, prsl, prslk, phii, phil, dtp, kdt, sgh30, hprime, oc, oa4, clx4, theta, vsigma, vgamma, elvmaxd, dusfc, dvsfc, xlatd, sinlat, coslat, sparea, cdmbgwd, me, master, rdxzb, zmtb, zogw, tau_mtb, tau_ogw, tau_tofd, dudt_mtb, dudt_ogw, dudt_tms, errmsg, errflg) |
| Modified/revised version of gwdps.f with bug fixes, tofd, appropriate computation of reference level for OGW+COORDE diagnostics. | |
| subroutine | fv3_ugwp_solv2_v0 (klon, klev, dtime, tm1, um1, vm1, qm1, prsl, prsi, philg, xlatd, sinlat, coslat, pdudt, pdvdt, pdtdt, dked, tau_ngw, mpi_id, master, kdt) |
| A modification of the Scinocca (2003) [177] algorithm for NGWs with non-hydrostatic and rotational effects for GW propagations and background dissipation. | |
This module contains the UGWP v0 driver module.
| subroutine ugwp_driver_v0::fv3_ugwp_solv2_v0 | ( | integer, intent(in) | klon, |
| integer, intent(in) | klev, | ||
| real, intent(in) | dtime, | ||
| real, dimension(klon,klev), intent(in) | tm1, | ||
| real, dimension(klon,klev), intent(in) | um1, | ||
| real, dimension(klon,klev), intent(in) | vm1, | ||
| real, dimension(klon,klev), intent(in) | qm1, | ||
| real, dimension(klon,klev), intent(in) | prsl, | ||
| real, dimension(klon,klev+1), intent(in) | prsi, | ||
| real, dimension(klon,klev), intent(in) | philg, | ||
| real, dimension(klon), intent(in) | xlatd, | ||
| real, dimension(klon), intent(in) | sinlat, | ||
| real, dimension(klon), intent(in) | coslat, | ||
| real, dimension(klon,klev), intent(out) | pdudt, | ||
| real, dimension(klon,klev), intent(out) | pdvdt, | ||
| real, dimension(klon,klev), intent(out) | pdtdt, | ||
| real, dimension(klon,klev), intent(out) | dked, | ||
| real, dimension(klon), intent(in) | tau_ngw, | ||
| integer, intent(in) | mpi_id, | ||
| integer, intent(in) | master, | ||
| integer, intent(in) | kdt | ||
| ) |
A modification of the Scinocca (2003) [177] algorithm for NGWs with non-hydrostatic and rotational effects for GW propagations and background dissipation.
0 ...... dz-meters
Definition at line 914 of file ugwp_driver_v0.F90.
| subroutine ugwp_driver_v0::gwdps_v0 | ( | integer, intent(in) | im, |
| integer, intent(in) | km, | ||
| integer, intent(in) | imx, | ||
| logical, intent(in) | do_tofd, | ||
| real(kind=kind_phys), dimension(im,km), intent(out) | pdvdt, | ||
| real(kind=kind_phys), dimension(im,km), intent(out) | pdudt, | ||
| real(kind=kind_phys), dimension(im,km), intent(out) | pdtdt, | ||
| real(kind=kind_phys), dimension(im,km), intent(out) | pkdis, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | u1, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | v1, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | t1, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | q1, | ||
| integer, dimension(im), intent(in) | kpbl, | ||
| real(kind=kind_phys), dimension(im,km+1), intent(in) | prsi, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | del, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | prsl, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | prslk, | ||
| real(kind=kind_phys), dimension(im,km+1), intent(in) | phii, | ||
| real(kind=kind_phys), dimension(im,km), intent(in) | phil, | ||
| real(kind=kind_phys), intent(in) | dtp, | ||
| integer, intent(in) | kdt, | ||
| real(kind=kind_phys), dimension(im), intent(in) | sgh30, | ||
| real(kind=kind_phys), dimension(im), intent(in) | hprime, | ||
| real(kind=kind_phys), dimension(im), intent(in) | oc, | ||
| real(kind=kind_phys), dimension(im,4), intent(in) | oa4, | ||
| real(kind=kind_phys), dimension(im,4), intent(in) | clx4, | ||
| real(kind=kind_phys), dimension(im), intent(in) | theta, | ||
| real(kind=kind_phys), dimension(im), intent(in) | vsigma, | ||
| real(kind=kind_phys), dimension(im), intent(in) | vgamma, | ||
| real(kind=kind_phys), dimension(im), intent(in) | elvmaxd, | ||
| real(kind=kind_phys), dimension(im) | dusfc, | ||
| real(kind=kind_phys), dimension(im) | dvsfc, | ||
| real(kind=kind_phys), dimension(im), intent(in) | xlatd, | ||
| real(kind=kind_phys), dimension(im), intent(in) | sinlat, | ||
| real(kind=kind_phys), dimension(im), intent(in) | coslat, | ||
| real(kind=kind_phys), dimension(im), intent(in) | sparea, | ||
| real(kind=kind_phys), dimension(2), intent(in) | cdmbgwd, | ||
| integer, intent(in) | me, | ||
| integer, intent(in) | master, | ||
| real(kind=kind_phys), dimension(im) | rdxzb, | ||
| real(kind=kind_phys), dimension(im) | zmtb, | ||
| real(kind=kind_phys), dimension(im) | zogw, | ||
| real(kind=kind_phys), dimension(im) | tau_mtb, | ||
| real(kind=kind_phys), dimension(im) | tau_ogw, | ||
| real(kind=kind_phys), dimension(im) | tau_tofd, | ||
| real(kind=kind_phys), dimension(im,km), intent(out) | dudt_mtb, | ||
| real(kind=kind_phys), dimension(im,km), intent(out) | dudt_ogw, | ||
| real(kind=kind_phys), dimension(im,km), intent(out) | dudt_tms, | ||
| character(len=*), intent(out) | errmsg, | ||
| integer, intent(out) | errflg | ||
| ) |
Modified/revised version of gwdps.f with bug fixes, tofd, appropriate computation of reference level for OGW+COORDE diagnostics.
Definition at line 28 of file ugwp_driver_v0.F90.
1.9.8