LMDZ
Functions/Subroutines
hines_gwd.F90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine hines_gwd (nlon, nlev, dtime, paphm1x, papm1x, rlat, tx, ux, vx, zustrhi, zvstrhi, d_t_hin, d_u_hin, d_v_hin)
 
subroutine hines_extro0 (drag_u, drag_v, heat, diffco, flux_u, flux_v, vel_u, vel_v, bvfreq, density, visc_mol, alt, rmswind, k_alpha, m_alpha, v_alpha, sigma_alpha, sigsqh_alpha, ak_alpha, mmin_alpha, i_alpha, sigma_t, densb, bvfb, iorder, iheatcal, icutoff, iprint, nsmax, smco, alt_cutoff, kstar, slope, f1, f2, f3, f5, f6, naz, sigsqmcw, sigmatm, il1, il2, lev1, lev2, nlons, nlevs, nazmth, lorms, smoothr1, smoothr2, sigalpmc, f2mod)
 
subroutine hines_wavnum (m_alpha, sigma_alpha, sigsqh_alpha, sigma_t, ak_alpha, v_alpha, visc_mol, density, densb, bvfreq, bvfb, rms_wind, i_alpha, mmin_alpha, kstar, slope, f1, f2, f3, naz, levbot, levtop, il1, il2, nlons, nlevs, nazmth, sigsqmcw, sigmatm, lorms, sigalpmc, f2mod)
 
subroutine hines_wind (v_alpha, vel_u, vel_v, naz, il1, il2, lev1, lev2, nlons, nlevs, nazmth)
 
subroutine hines_flux (flux_u, flux_v, drag_u, drag_v, alt, density, densb, m_alpha, ak_alpha, k_alpha, slope, naz, il1, il2, lev1, lev2, nlons, nlevs, nazmth, lorms)
 
subroutine hines_heat (heat, diffco, m_alpha, dmdz_alpha, ak_alpha, k_alpha, bvfreq, density, densb, sigma_t, visc_mol, kstar, slope, f2, f3, f5, f6, naz, il1, il2, lev1, lev2, nlons, nlevs, nazmth)
 
subroutine hines_sigma (sigma_t, sigma_alpha, sigsqh_alpha, naz, lev, il1, il2, nlons, nlevs, nazmth)
 
subroutine hines_intgrl (i_alpha, v_alpha, m_alpha, bvfb, slope, naz, lev, il1, il2, nlons, nlevs, nazmth, lorms)
 
subroutine hines_setup (naz, slope, f1, f2, f3, f5, f6, kstar, icutoff, alt_cutoff, smco, nsmax, iheatcal, k_alpha, ierror, nmessg, nlons, nazmth, coslat)
 
subroutine hines_print (flux_u, flux_v, drag_u, drag_v, alt, sigma_t, sigma_alpha, v_alpha, m_alpha, iu_print, iv_print, nmessg, ilprt1, ilprt2, levprt1, levprt2, naz, nlons, nlevs, nazmth)
 
subroutine hines_exp (data, data_zmax, alt, alt_exp, iorder, il1, il2, lev1, lev2, nlons, nlevs)
 
subroutine vert_smooth (data, work, coeff, nsmooth, il1, il2, lev1, lev2, nlons, nlevs)
 

Function/Subroutine Documentation

subroutine hines_exp ( real, dimension(nlons, nlevs)  data,
real, dimension(nlons)  data_zmax,
real, dimension(nlons, nlevs)  alt,
real  alt_exp,
integer  iorder,
integer  il1,
integer  il2,
integer  lev1,
integer  lev2,
integer  nlons,
integer  nlevs 
)

Definition at line 1863 of file hines_gwd.F90.

Here is the caller graph for this function:

subroutine hines_extro0 ( real, dimension(nlons, nlevs)  drag_u,
real, dimension(nlons, nlevs)  drag_v,
real, dimension(nlons, nlevs)  heat,
real, dimension(nlons, nlevs)  diffco,
real, dimension(nlons, nlevs)  flux_u,
real, dimension(nlons, nlevs)  flux_v,
real, dimension(nlons, nlevs)  vel_u,
real, dimension(nlons, nlevs)  vel_v,
real, dimension(nlons, nlevs)  bvfreq,
real, dimension(nlons, nlevs)  density,
real, dimension(nlons, nlevs)  visc_mol,
real, dimension(nlons, nlevs)  alt,
real, dimension(nlons)  rmswind,
real, dimension(nlons, nazmth)  k_alpha,
real, dimension(nlons, nlevs, nazmth)  m_alpha,
real, dimension(nlons, nlevs, nazmth)  v_alpha,
real, dimension(nlons, nlevs, nazmth)  sigma_alpha,
real, dimension(nlons, nlevs, nazmth)  sigsqh_alpha,
real, dimension(nlons, nazmth)  ak_alpha,
real, dimension(nlons, nazmth)  mmin_alpha,
real, dimension(nlons, nazmth)  i_alpha,
real, dimension(nlons, nlevs)  sigma_t,
real, dimension(nlons)  densb,
real, dimension(nlons)  bvfb,
integer  iorder,
integer  iheatcal,
integer  icutoff,
integer  iprint,
integer  nsmax,
real  smco,
real  alt_cutoff,
real, dimension(nlons)  kstar,
real  slope,
real  f1,
real  f2,
real  f3,
real  f5,
real  f6,
integer  naz,
real, dimension(nlons, nlevs, nazmth)  sigsqmcw,
real, dimension(nlons, nlevs)  sigmatm,
integer  il1,
integer  il2,
integer  lev1,
integer  lev2,
integer  nlons,
integer  nlevs,
integer  nazmth,
logical, dimension(nlons)  lorms,
real, dimension(nlons, nlevs)  smoothr1,
real, dimension(nlons, nlevs)  smoothr2,
real, dimension(nlons, nlevs, nazmth)  sigalpmc,
real, dimension(nlons, nlevs)  f2mod 
)

Definition at line 462 of file hines_gwd.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hines_flux ( real, dimension(nlons, nlevs)  flux_u,
real, dimension(nlons, nlevs)  flux_v,
real, dimension(nlons, nlevs)  drag_u,
real, dimension(nlons, nlevs)  drag_v,
real, dimension(nlons, nlevs)  alt,
real, dimension(nlons, nlevs)  density,
real, dimension(nlons)  densb,
real, dimension(nlons, nlevs, nazmth)  m_alpha,
real, dimension(nlons, nazmth)  ak_alpha,
real, dimension(nlons, nazmth)  k_alpha,
real  slope,
integer  naz,
integer  il1,
integer  il2,
integer  lev1,
integer  lev2,
integer  nlons,
integer  nlevs,
integer  nazmth,
logical, dimension(nlons)  lorms 
)

Definition at line 1033 of file hines_gwd.F90.

Here is the caller graph for this function:

subroutine hines_gwd ( integer  nlon,
integer  nlev,
real  dtime,
real, dimension(nlon, nlev+1)  paphm1x,
real, dimension(nlon, nlev)  papm1x,
real, dimension(klon)  rlat,
real, dimension(nlon, nlev)  tx,
real, dimension(nlon, nlev)  ux,
real, dimension(nlon, nlev)  vx,
real, dimension(nlon)  zustrhi,
real, dimension(nlon)  zvstrhi,
real, dimension(nlon, nlev)  d_t_hin,
real, dimension(nlon, nlev)  d_u_hin,
real, dimension(nlon, nlev)  d_v_hin 
)

Definition at line 6 of file hines_gwd.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hines_heat ( real, dimension(nlons, nlevs)  heat,
real, dimension(nlons, nlevs)  diffco,
real, dimension(nlons, nlevs, nazmth)  m_alpha,
real, dimension(nlons, nlevs, nazmth)  dmdz_alpha,
real, dimension(nlons, nazmth)  ak_alpha,
real, dimension(nlons, nazmth)  k_alpha,
real, dimension(nlons, nlevs)  bvfreq,
real, dimension(nlons, nlevs)  density,
real, dimension(nlons)  densb,
real, dimension(nlons, nlevs)  sigma_t,
real, dimension(nlons, nlevs)  visc_mol,
real, dimension(nlons)  kstar,
real  slope,
real  f2,
real  f3,
real  f5,
real  f6,
integer  naz,
integer  il1,
integer  il2,
integer  lev1,
integer  lev2,
integer  nlons,
integer  nlevs,
integer  nazmth 
)

Definition at line 1233 of file hines_gwd.F90.

Here is the caller graph for this function:

subroutine hines_intgrl ( real, dimension(nlons, nazmth)  i_alpha,
real, dimension(nlons, nlevs, nazmth)  v_alpha,
real, dimension(nlons, nlevs, nazmth)  m_alpha,
real, dimension(nlons)  bvfb,
real  slope,
integer  naz,
integer  lev,
integer  il1,
integer  il2,
integer  nlons,
integer  nlevs,
integer  nazmth,
logical, dimension(nlons)  lorms 
)

Definition at line 1449 of file hines_gwd.F90.

Here is the caller graph for this function:

subroutine hines_print ( real, dimension(nlons, nlevs)  flux_u,
real, dimension(nlons, nlevs)  flux_v,
real, dimension(nlons, nlevs)  drag_u,
real, dimension(nlons, nlevs)  drag_v,
real, dimension(nlons, nlevs)  alt,
real, dimension(nlons, nlevs)  sigma_t,
real, dimension(nlons, nlevs, nazmth)  sigma_alpha,
real, dimension(nlons, nlevs, nazmth)  v_alpha,
real, dimension(nlons, nlevs, nazmth)  m_alpha,
integer  iu_print,
integer  iv_print,
integer  nmessg,
integer  ilprt1,
integer  ilprt2,
integer  levprt1,
integer  levprt2,
integer  naz,
integer  nlons,
integer  nlevs,
integer  nazmth 
)

Definition at line 1771 of file hines_gwd.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hines_setup ( integer  naz,
real  slope,
real  f1,
real  f2,
real  f3,
real  f5,
real  f6,
real, dimension(nlons)  kstar,
integer  icutoff,
real  alt_cutoff,
real  smco,
integer  nsmax,
integer  iheatcal,
real, dimension(nlons, nazmth)  k_alpha,
integer  ierror,
integer  nmessg,
integer  nlons,
integer  nazmth,
real, dimension(nlons)  coslat 
)

Definition at line 1642 of file hines_gwd.F90.

Here is the caller graph for this function:

subroutine hines_sigma ( real, dimension(nlons, nlevs)  sigma_t,
real, dimension(nlons, nlevs, nazmth)  sigma_alpha,
real, dimension(nlons, nlevs, nazmth)  sigsqh_alpha,
integer  naz,
integer  lev,
integer  il1,
integer  il2,
integer  nlons,
integer  nlevs,
integer  nazmth 
)

Definition at line 1354 of file hines_gwd.F90.

Here is the caller graph for this function:

subroutine hines_wavnum ( real, dimension(nlons, nlevs, nazmth)  m_alpha,
real, dimension(nlons, nlevs, nazmth)  sigma_alpha,
real, dimension(nlons, nlevs, nazmth)  sigsqh_alpha,
real, dimension(nlons, nlevs)  sigma_t,
real, dimension(nlons, nazmth)  ak_alpha,
real, dimension(nlons, nlevs, nazmth)  v_alpha,
real, dimension(nlons, nlevs)  visc_mol,
real, dimension(nlons, nlevs)  density,
real, dimension(nlons)  densb,
real, dimension(nlons, nlevs)  bvfreq,
real, dimension(nlons)  bvfb,
real, dimension(nlons)  rms_wind,
real, dimension(nlons, nazmth)  i_alpha,
real, dimension(nlons, nazmth)  mmin_alpha,
real, dimension(nlons)  kstar,
real  slope,
real  f1,
real  f2,
real  f3,
integer  naz,
integer  levbot,
integer  levtop,
integer  il1,
integer  il2,
integer  nlons,
integer  nlevs,
integer  nazmth,
real, dimension(nlons, nlevs, nazmth)  sigsqmcw,
real, dimension(nlons, nlevs)  sigmatm,
logical, dimension(nlons)  lorms,
real, dimension(nlons, nlevs, nazmth)  sigalpmc,
real, dimension(nlons, nlevs)  f2mod 
)

Definition at line 714 of file hines_gwd.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hines_wind ( real, dimension(nlons, nlevs, nazmth)  v_alpha,
real, dimension(nlons, nlevs)  vel_u,
real, dimension(nlons, nlevs)  vel_v,
integer  naz,
integer  il1,
integer  il2,
integer  lev1,
integer  lev2,
integer  nlons,
integer  nlevs,
integer  nazmth 
)

Definition at line 937 of file hines_gwd.F90.

Here is the caller graph for this function:

subroutine vert_smooth ( real, dimension(nlons, nlevs)  data,
real, dimension(nlons, nlevs)  work,
real  coeff,
integer  nsmooth,
integer  il1,
integer  il2,
integer  lev1,
integer  lev2,
integer  nlons,
integer  nlevs 
)

Definition at line 1940 of file hines_gwd.F90.

Here is the caller graph for this function: