This module contains the UGWPv0 driver. More...

Functions/Subroutines
subroutine	cires_ugwpv0_mod_init (me, master, nlunit, input_nml_file, logunit, fn_nml, lonr, levs, ak, bk, pref, dtp, cdmvgwd, cgwf, pa_rf_in, tau_rf_in, errmsg, errflg)
	This subroutine initializes CIRES UGWP.

subroutine	cires_ugwpv0_mod_final
	This subroutine deallocate sources/spectra and some diagnostics.

Variables
logical	module_is_initialized

logical	do_physb_gwsrcs = .false.
	control for physics-based GW-sources

logical	do_rfdamp = .false.
	control for Rayleigh friction inside ugwp_driver

real, parameter	arad =6370.e3

real, parameter	pi = atan(1.0)

real, parameter	pi2 = 2.*pi

real, parameter	hps = 7000.

real, parameter	hpskm = hps/1000.

real	kxw = 6.28e-3/100.
	single horizontal wavenumber of ugwp schemes

real, parameter	ricrit = 0.25

real, parameter	frcrit = 0.50

real, parameter	linsat = 1.00

real, parameter	linsat2 = linsat*linsat

integer	knob_ugwp_solver =1
	1, 2, 3, 4 - (linsat, ifs_2010, ad_gfdl, dsp_dis)

integer, dimension(4)	knob_ugwp_source
	[1,1,1,0] - (oro, fronts, conv, imbf-owp]

integer, dimension(4)	knob_ugwp_wvspec
	number of waves for- (oro, fronts, conv, imbf-owp]

integer, dimension(4)	knob_ugwp_azdir
	number of wave azimuths for- (oro, fronts, conv, imbf-owp]

integer, dimension(4)	knob_ugwp_stoch
	1 - deterministic ; 0 - stochastic

real, dimension(4)	knob_ugwp_effac
	efficiency factors for- (oro, fronts, conv, imbf-owp]

integer	knob_ugwp_doaxyz =1
	1 -gwdrag

integer	knob_ugwp_doheat =1
	1 -gwheat

integer	knob_ugwp_dokdis =0
	1 -gwmixing

integer	knob_ugwp_ndx4lh = 2
	n-number of "unresolved" "n*dx" for lh_gw

integer	ugwp_azdir

integer	ugwp_stoch

integer	ugwp_src

integer	ugwp_nws

real	ugwp_effac
	oro-conv-fjet-okw-taub_lat: 1-active 0-off

integer	knob_ugwp_version = 0
	version control had sense under IPD in CCPP=> to SUITES

integer	launch_level = 55

real, dimension(:), allocatable	kvg

real, dimension(:), allocatable	ktg

real, dimension(:), allocatable	krad

real, dimension(:), allocatable	kion

real, dimension(:), allocatable	zkm

real, dimension(:), allocatable	pmb

real, dimension(:), allocatable	rfdis

real, dimension(:), allocatable	rfdist

integer	levs_rf

real	pa_rf

real	tau_rf

real, parameter	max_kdis = 400.

real, parameter	max_axyz = 400.e-5

real, parameter	max_eps = max_kdis*4.e-7

real, parameter	f_coriol =1

real, parameter	f_nonhyd =1

real, parameter	f_kds =0

real, parameter	ipr_ktgw =1./3.

real, parameter	ipr_spgw =iPr_ktgw

real, parameter	ipr_turb =1./3.

real, parameter	ipr_mol =1.95

real, parameter	rhp1 =1./hps

real, parameter	rhp2 =0.5*rhp1

real, parameter	rhp4 = rhp2*rhp2

real, parameter	khp = 0.287*rhp1

real, parameter	cd_ulim = 1.0

Detailed Description

This module contains the UGWPv0 driver.

Function/Subroutine Documentation

◆ cires_ugwpv0_mod_final()

subroutine cires_ugwpv0_module::cires_ugwpv0_mod_final

This subroutine deallocate sources/spectra and some diagnostics.

Definition at line 234 of file cires_ugwp_module.F90.

◆ cires_ugwpv0_mod_init()

subroutine cires_ugwpv0_module::cires_ugwpv0_mod_init	(	integer, intent(in)	me,
		integer, intent(in)	master,
		integer, intent(in)	nlunit,
		character (len = *), dimension(:), intent(in)	input_nml_file,
		integer, intent(in)	logunit,
		character(len=64), intent(in)	fn_nml,
		integer, intent(in)	lonr,
		integer, intent(in)	levs,
		real, dimension(levs+1), intent(in)	ak,
		real, dimension(levs+1), intent(in)	bk,
		real, intent(in)	pref,
		real, intent(in)	dtp,
		real, dimension(2), intent(in)	cdmvgwd,
		real, dimension(2), intent(in)	cgwf,
		real, intent(in)	pa_rf_in,
		real, intent(in)	tau_rf_in,
		character(len=*), intent(inout)	errmsg,
		integer, intent(inout)	errflg
	)

This subroutine initializes CIRES UGWP.

Definition at line 106 of file cires_ugwp_module.F90.

Variable Documentation

◆ arad

real, parameter cires_ugwpv0_module::arad =6370.e3

Definition at line 17 of file cires_ugwp_module.F90.

◆ cd_ulim

real, parameter cires_ugwpv0_module::cd_ulim = 1.0

Definition at line 96 of file cires_ugwp_module.F90.

◆ do_physb_gwsrcs

logical cires_ugwpv0_module::do_physb_gwsrcs = .false.

control for physics-based GW-sources

Definition at line 14 of file cires_ugwp_module.F90.

◆ do_rfdamp

logical cires_ugwpv0_module::do_rfdamp = .false.

control for Rayleigh friction inside ugwp_driver

Definition at line 15 of file cires_ugwp_module.F90.

◆ f_coriol

real, parameter cires_ugwpv0_module::f_coriol =1

Definition at line 89 of file cires_ugwp_module.F90.

◆ f_kds

real, parameter cires_ugwpv0_module::f_kds =0

Definition at line 91 of file cires_ugwp_module.F90.

◆ f_nonhyd

real, parameter cires_ugwpv0_module::f_nonhyd =1

Definition at line 90 of file cires_ugwp_module.F90.

◆ frcrit

real, parameter cires_ugwpv0_module::frcrit = 0.50

Definition at line 25 of file cires_ugwp_module.F90.

◆ hps

real, parameter cires_ugwpv0_module::hps = 7000.

Definition at line 20 of file cires_ugwp_module.F90.

◆ hpskm

real, parameter cires_ugwpv0_module::hpskm = hps/1000.

Definition at line 21 of file cires_ugwp_module.F90.

◆ ipr_ktgw

real, parameter cires_ugwpv0_module::ipr_ktgw =1./3.

Definition at line 92 of file cires_ugwp_module.F90.

◆ ipr_mol

real, parameter cires_ugwpv0_module::ipr_mol =1.95

Definition at line 93 of file cires_ugwp_module.F90.

◆ ipr_spgw

real, parameter cires_ugwpv0_module::ipr_spgw =iPr_ktgw

Definition at line 92 of file cires_ugwp_module.F90.

◆ ipr_turb

real, parameter cires_ugwpv0_module::ipr_turb =1./3.

Definition at line 93 of file cires_ugwp_module.F90.

◆ khp

real, parameter cires_ugwpv0_module::khp = 0.287*rhp1

Definition at line 95 of file cires_ugwp_module.F90.

◆ kion

real, dimension(:), allocatable cires_ugwpv0_module::kion

Definition at line 76 of file cires_ugwp_module.F90.

◆ knob_ugwp_azdir

integer, dimension(4) cires_ugwpv0_module::knob_ugwp_azdir

number of wave azimuths for- (oro, fronts, conv, imbf-owp]

Definition at line 32 of file cires_ugwp_module.F90.

◆ knob_ugwp_doaxyz

integer cires_ugwpv0_module::knob_ugwp_doaxyz =1

1 -gwdrag

Definition at line 36 of file cires_ugwp_module.F90.

◆ knob_ugwp_doheat

integer cires_ugwpv0_module::knob_ugwp_doheat =1

1 -gwheat

Definition at line 37 of file cires_ugwp_module.F90.

◆ knob_ugwp_dokdis

integer cires_ugwpv0_module::knob_ugwp_dokdis =0

1 -gwmixing

Definition at line 38 of file cires_ugwp_module.F90.

◆ knob_ugwp_effac

real, dimension(4) cires_ugwpv0_module::knob_ugwp_effac

efficiency factors for- (oro, fronts, conv, imbf-owp]

Definition at line 34 of file cires_ugwp_module.F90.

◆ knob_ugwp_ndx4lh

integer cires_ugwpv0_module::knob_ugwp_ndx4lh = 2

n-number of "unresolved" "n*dx" for lh_gw

Definition at line 39 of file cires_ugwp_module.F90.

◆ knob_ugwp_solver

integer cires_ugwpv0_module::knob_ugwp_solver =1

1, 2, 3, 4 - (linsat, ifs_2010, ad_gfdl, dsp_dis)

Definition at line 29 of file cires_ugwp_module.F90.

◆ knob_ugwp_source

integer, dimension(4) cires_ugwpv0_module::knob_ugwp_source

[1,1,1,0] - (oro, fronts, conv, imbf-owp]

Definition at line 30 of file cires_ugwp_module.F90.

◆ knob_ugwp_stoch

integer, dimension(4) cires_ugwpv0_module::knob_ugwp_stoch

1 - deterministic ; 0 - stochastic

Definition at line 33 of file cires_ugwp_module.F90.

◆ knob_ugwp_version

integer cires_ugwpv0_module::knob_ugwp_version = 0

version control had sense under IPD in CCPP=> to SUITES

Definition at line 53 of file cires_ugwp_module.F90.

◆ knob_ugwp_wvspec

integer, dimension(4) cires_ugwpv0_module::knob_ugwp_wvspec

number of waves for- (oro, fronts, conv, imbf-owp]

Definition at line 31 of file cires_ugwp_module.F90.

◆ krad

real, dimension(:), allocatable cires_ugwpv0_module::krad

Definition at line 76 of file cires_ugwp_module.F90.

◆ ktg

real, dimension(:), allocatable cires_ugwpv0_module::ktg

Definition at line 76 of file cires_ugwp_module.F90.

◆ kvg

real, dimension(:), allocatable cires_ugwpv0_module::kvg

Definition at line 76 of file cires_ugwp_module.F90.

◆ kxw

real cires_ugwpv0_module::kxw = 6.28e-3/100.

single horizontal wavenumber of ugwp schemes

Definition at line 23 of file cires_ugwp_module.F90.

◆ launch_level

integer cires_ugwpv0_module::launch_level = 55

Definition at line 54 of file cires_ugwp_module.F90.

◆ levs_rf

integer cires_ugwpv0_module::levs_rf

Definition at line 79 of file cires_ugwp_module.F90.

◆ linsat

real, parameter cires_ugwpv0_module::linsat = 1.00

Definition at line 26 of file cires_ugwp_module.F90.

◆ linsat2

real, parameter cires_ugwpv0_module::linsat2 = linsat*linsat

Definition at line 27 of file cires_ugwp_module.F90.

◆ max_axyz

real, parameter cires_ugwpv0_module::max_axyz = 400.e-5

Definition at line 85 of file cires_ugwp_module.F90.

◆ max_eps

real, parameter cires_ugwpv0_module::max_eps = max_kdis*4.e-7

Definition at line 86 of file cires_ugwp_module.F90.

◆ max_kdis

real, parameter cires_ugwpv0_module::max_kdis = 400.

Definition at line 84 of file cires_ugwp_module.F90.

◆ module_is_initialized

logical cires_ugwpv0_module::module_is_initialized

Definition at line 12 of file cires_ugwp_module.F90.

◆ pa_rf

real cires_ugwpv0_module::pa_rf

Definition at line 80 of file cires_ugwp_module.F90.

◆ pi

real, parameter cires_ugwpv0_module::pi = atan(1.0)

Definition at line 18 of file cires_ugwp_module.F90.

◆ pi2

real, parameter cires_ugwpv0_module::pi2 = 2.*pi

Definition at line 19 of file cires_ugwp_module.F90.

◆ pmb

real, dimension(:), allocatable cires_ugwpv0_module::pmb

Definition at line 77 of file cires_ugwp_module.F90.

◆ rfdis

real, dimension(:), allocatable cires_ugwpv0_module::rfdis

Definition at line 78 of file cires_ugwp_module.F90.

◆ rfdist

real, dimension(:), allocatable cires_ugwpv0_module::rfdist

Definition at line 78 of file cires_ugwp_module.F90.

◆ rhp1

real, parameter cires_ugwpv0_module::rhp1 =1./hps

Definition at line 94 of file cires_ugwp_module.F90.

◆ rhp2

real, parameter cires_ugwpv0_module::rhp2 =0.5*rhp1

Definition at line 94 of file cires_ugwp_module.F90.

◆ rhp4

real, parameter cires_ugwpv0_module::rhp4 = rhp2*rhp2

Definition at line 94 of file cires_ugwp_module.F90.

◆ ricrit

real, parameter cires_ugwpv0_module::ricrit = 0.25

Definition at line 24 of file cires_ugwp_module.F90.

◆ tau_rf

real cires_ugwpv0_module::tau_rf

Definition at line 80 of file cires_ugwp_module.F90.

◆ ugwp_azdir

integer cires_ugwpv0_module::ugwp_azdir

Definition at line 41 of file cires_ugwp_module.F90.

◆ ugwp_effac

real cires_ugwpv0_module::ugwp_effac

oro-conv-fjet-okw-taub_lat: 1-active 0-off

number of waves for- (oro, fronts, conv, imbf-owp, taulat] number of wave azimuths for- (oro, fronts, conv, imbf-okwp] 0 - deterministic ; 1 - stochastic, non-activated option efficiency factors for- (oro, fronts, conv, imbf-owp]

Definition at line 46 of file cires_ugwp_module.F90.

◆ ugwp_nws

integer cires_ugwpv0_module::ugwp_nws

Definition at line 45 of file cires_ugwp_module.F90.

◆ ugwp_src

integer cires_ugwpv0_module::ugwp_src

Definition at line 44 of file cires_ugwp_module.F90.

◆ ugwp_stoch

integer cires_ugwpv0_module::ugwp_stoch

Definition at line 42 of file cires_ugwp_module.F90.

◆ zkm

real, dimension(:), allocatable cires_ugwpv0_module::zkm

Definition at line 77 of file cires_ugwp_module.F90.

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ cires_ugwpv0_mod_final()

◆ cires_ugwpv0_mod_init()

Variable Documentation

◆ arad

◆ cd_ulim

◆ do_physb_gwsrcs

◆ do_rfdamp

◆ f_coriol

◆ f_kds

◆ f_nonhyd

◆ frcrit

◆ hps

◆ hpskm

◆ ipr_ktgw

◆ ipr_mol

◆ ipr_spgw

◆ ipr_turb

◆ khp

◆ kion

◆ knob_ugwp_azdir

◆ knob_ugwp_doaxyz

◆ knob_ugwp_doheat

◆ knob_ugwp_dokdis

◆ knob_ugwp_effac

◆ knob_ugwp_ndx4lh

◆ knob_ugwp_solver

◆ knob_ugwp_source

◆ knob_ugwp_stoch

◆ knob_ugwp_version

◆ knob_ugwp_wvspec

◆ krad

◆ ktg

◆ kvg

◆ kxw

◆ launch_level

◆ levs_rf

◆ linsat

◆ linsat2

◆ max_axyz

◆ max_eps

◆ max_kdis

◆ module_is_initialized

◆ pa_rf

◆ pi

◆ pi2

◆ pmb

◆ rfdis

◆ rfdist

◆ rhp1

◆ rhp2

◆ rhp4

◆ ricrit

◆ tau_rf

◆ ugwp_azdir

◆ ugwp_effac

◆ ugwp_nws

◆ ugwp_src

◆ ugwp_stoch

◆ zkm