hines_gwd.F File Reference

#include "YOEGWD.h"
#include "YOMCST.h"

Include dependency graph for hines_gwd.F:

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 1921 of file hines_gwd.F.

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 479 of file hines_gwd.F.

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 1075 of file hines_gwd.F.

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 4 of file hines_gwd.F.

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 1280 of file hines_gwd.F.

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 1503 of file hines_gwd.F.

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 1824 of file hines_gwd.F.

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 1695 of file hines_gwd.F.

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 1404 of file hines_gwd.F.

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 745 of file hines_gwd.F.

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 981 of file hines_gwd.F.

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 1998 of file hines_gwd.F.

Here is the caller graph for this function: