 |
CCPP Scientific Documentation
v4.0
|
|
|
CCPP Scientific Documentation
v4.0
|
|
| subroutine 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), 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), 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, | ||
| dudt_mtb, | |||
| dudt_ogw, | |||
| dudt_tms | |||
| ) |
modified/revised version of gwdps.f with bug fixes, tofd, appropriate computation of kref for OGW + COORDE diagnostics. all constants/ parameters inside cires_ugwp_initialize.F90.
References cires_ugwp_module::kxw, cires_ugwp_module::max_axyz, cires_ugwp_module::max_kdis, sso_coorde::pgwd, sso_coorde::pgwd4, and ugwp_tofd1d().
Referenced by cires_ugwp_driver_v0(), and cires_ugwp::cires_ugwp_run().
1.8.11