subroutine cires_ugwpv1_oro::orogw_v1 | ( | integer, intent(in) | im, |
integer, intent(in) | km, | ||
integer, intent(in) | imx, | ||
integer, intent(in) | me, | ||
integer, intent(in) | master, | ||
real(kind=kind_phys), intent(in) | dtp, | ||
integer, intent(in) | kdt, | ||
logical, intent(in) | do_tofd, | ||
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, | ||
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) | sigmad, | ||
real(kind=kind_phys), dimension(im), intent(in) | gammad, | ||
real(kind=kind_phys), dimension(im), intent(in) | elvmaxd, | ||
real(kind=kind_phys), dimension(im), intent(in) | sgh30, | ||
integer, dimension(im), intent(in) | kpbl, | ||
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, | ||
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) | zmeti, | ||
real(kind=kind_phys), dimension(im,km), intent(in) | zmet, | ||
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), intent(out) | dusfc, | ||
real(kind=kind_phys), dimension(im), intent(out) | dvsfc, | ||
real(kind=kind_phys), dimension(im), intent(out) | rdxzb, | ||
real(kind=kind_phys), dimension(im), intent(out) | zobl, | ||
real(kind=kind_phys), dimension(im), intent(out) | zlwb, | ||
real(kind=kind_phys), dimension(im), intent(out) | zogw, | ||
real(kind=kind_phys), dimension(im), intent(out) | tau_ogw, | ||
real(kind=kind_phys), dimension(im,km), intent(out) | dudt_ogw, | ||
real(kind=kind_phys), dimension(im,km), intent(out) | dvdt_ogw, | ||
real(kind=kind_phys), dimension(im,km), intent(out) | dudt_obl, | ||
real(kind=kind_phys), dimension(im,km), intent(out) | dvdt_obl, | ||
real(kind=kind_phys), dimension(im,km), intent(out) | dudt_ofd, | ||
real(kind=kind_phys), dimension(im,km), intent(out) | dvdt_ofd, | ||
real(kind=kind_phys), dimension(im), intent(out) | du_ogwcol, | ||
real(kind=kind_phys), dimension(im), intent(out) | dv_ogwcol, | ||
real(kind=kind_phys), dimension(im), intent(out) | du_oblcol, | ||
real(kind=kind_phys), dimension(im), intent(out) | dv_oblcol, | ||
real(kind=kind_phys), dimension(im), intent(out) | du_ofdcol, | ||
real(kind=kind_phys), dimension(im), intent(out) | dv_ofdcol, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg ) |
Definition at line 8 of file cires_ugwpv1_oro.F90.