MOM_CoriolisAdv.F90 File Reference

#include <MOM_memory.h>
#include "version_variable.h"

Include dependency graph for MOM_CoriolisAdv.F90:

Go to the source code of this file.

Data Types
type	mom_coriolisadv::coriolisadv_cs
	Control structure for mom_coriolisadv. More...

Modules
module	mom_coriolisadv
	Accelerations due to the Coriolis force and momentum advection.

Functions/Subroutines
subroutine, public	mom_coriolisadv::coradcalc (u, v, h, uh, vh, CAu, CAv, OBC, AD, G, GV, CS)
	Calculates the Coriolis and momentum advection contributions to the acceleration. More...
subroutine	mom_coriolisadv::gradke (u, v, h, KE, KEx, KEy, k, OBC, G, CS)
	Calculates the acceleration due to the gradient of kinetic energy. More...
subroutine, public	mom_coriolisadv::coriolisadv_init (Time, G, param_file, diag, AD, CS)
	Initializes the control structure for coriolisadv_cs. More...
subroutine, public	mom_coriolisadv::coriolisadv_end (CS)
	Destructor for coriolisadv_cs. More...

Variables
integer, parameter	mom_coriolisadv::sadourny75_energy = 1
integer, parameter	mom_coriolisadv::arakawa_hsu90 = 2
integer, parameter	mom_coriolisadv::robust_enstro = 3
integer, parameter	mom_coriolisadv::sadourny75_enstro = 4
integer, parameter	mom_coriolisadv::arakawa_lamb81 = 5
integer, parameter	mom_coriolisadv::al_blend = 6
character *(20), parameter	mom_coriolisadv::sadourny75_energy_string = "SADOURNY75_ENERGY"
character *(20), parameter	mom_coriolisadv::arakawa_hsu_string = "ARAKAWA_HSU90"
character *(20), parameter	mom_coriolisadv::robust_enstro_string = "ROBUST_ENSTRO"
character *(20), parameter	mom_coriolisadv::sadourny75_enstro_string = "SADOURNY75_ENSTRO"
character *(20), parameter	mom_coriolisadv::arakawa_lamb_string = "ARAKAWA_LAMB81"
character *(20), parameter	mom_coriolisadv::al_blend_string = "ARAKAWA_LAMB_BLEND"
integer, parameter	mom_coriolisadv::ke_arakawa = 10
integer, parameter	mom_coriolisadv::ke_simple_gudonov = 11
integer, parameter	mom_coriolisadv::ke_gudonov = 12
character *(20), parameter	mom_coriolisadv::ke_arakawa_string = "KE_ARAKAWA"
character *(20), parameter	mom_coriolisadv::ke_simple_gudonov_string = "KE_SIMPLE_GUDONOV"
character *(20), parameter	mom_coriolisadv::ke_gudonov_string = "KE_GUDONOV"
integer, parameter	mom_coriolisadv::pv_adv_centered = 21
integer, parameter	mom_coriolisadv::pv_adv_upwind1 = 22
character *(20), parameter	mom_coriolisadv::pv_adv_centered_string = "PV_ADV_CENTERED"
character *(20), parameter	mom_coriolisadv::pv_adv_upwind1_string = "PV_ADV_UPWIND1"