CCPP Scientific Documentation
v4.1.0
subroutine ugwp_oro ( integer  im,
integer  levs,
real(kind_phys)  dtp,
integer  kdt,
integer  me,
logical  lprnt,
real(kind_phys), dimension(im)  fcor,
real(kind_phys), dimension(im)  c2f2,
real(kind_phys), dimension(im, levs)  u,
real(kind_phys), dimension(im, levs)  v,
real(kind_phys), dimension(im, levs)  tkin,
real(kind_phys), dimension(im, levs+1)  pint,
real(kind_phys), dimension(im, levs)  delp,
real(kind_phys), dimension(im, levs)  pmid,
real(kind_phys), dimension(im, levs)  pexner,
real(kind_phys), dimension(im, levs+1)  gzint,
real(kind_phys), dimension(im, levs)  gzmid,
real(kind_phys), dimension(im, 14)  orostat,
real(kind_phys), dimension(im)  hpbl,
real(kind_phys), dimension(im, levs)  axz,
real(kind_phys), dimension(im, levs)  ayz,
real(kind_phys), dimension(im, levs)  edis,
real(kind_phys), dimension(im, levs)  kdis,
real(kind_phys), dimension(im)  dusfc,
real(kind_phys), dimension(im)  dvsfc,
real(kind_phys), dimension(im)  dusfc_mb,
real(kind_phys), dimension(im)  dvsfc_mb,
real(kind_phys), dimension(im)  dusfc_ogw,
real(kind_phys), dimension(im)  dvsfc_ogw,
real(kind_phys), dimension(im)  dusfc_lwb,
real(kind_phys), dimension(im)  dvsfc_lwb,
real(kind_phys), dimension(im)  zmtb,
real(kind_phys), dimension(im)  zlwb,
real(kind_phys), dimension(im)  zogw,
real(kind_phys), dimension(im)  tauf_ogw,
real(kind_phys), dimension(im, levs)  tauz_ogw,
real(kind_phys), dimension(im, levs)  axmtb,
real(kind_phys), dimension(im, levs)  axlwb,
real(kind_phys), dimension(im, levs)  axtms 
)

References cires_ugwp_module::kxw, cires_ugwp_module::max_axyz, cires_ugwp_module::max_kdis, ugwp_drag_mtb(), ugwp_oro_lsatdis(), ugwp_taub_oro(), and ugwp_tofd1d().

Referenced by cires_ugwp_module::cires_ugwp_driver().

Here is the call graph for this function: