Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

diagcd

Module:

File: ATMDYN.f

Summary: DIAGCD Keeps track of the conservation properties of angular momentum and kinetic energy inside dynamics routines
Author : Gary Russell
Version:

---

Declaration:

subroutine diagcd (grid, m, ux, vx, dut, dvt, dt1)

Variables:

radius : used from constant

omega : used from constant

im : used from resolution

jm : used from resolution

lm : used from resolution

mdiag : used from model_com

mdyn : used from model_com

cosv : used from geom

ravpn : used from geom

ravps : used from geom

bydxyp : used from geom

fim : used from geom

byim : used from geom

consrv : used from diag_com

Initial Value = >consrv_loc

conv : used from dynamics

checksum : used from domain_decomp_1d

halo_update : used from domain_decomp_1d

dist_grid : used from domain_decomp_1d

getdomainbounds : used from domain_decomp_1d

south : used from domain_decomp_1d

m : integer, intent(in)

index denoting from where DIAGCD is called

grid : type(dist_grid), intent(in)

dt1 : real*8, intent(in)

current time step

vx : real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)

current velocities

ux : real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)

current velocities

dvt : real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)

current momentum changes (kg*m/s)

dut : real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)

current momentum changes (kg*m/s)

pi : real*8, dimension(grid%j_strt_halo:grid%j_stop_halo)

damb : real*8, dimension(grid%j_strt_halo:grid%j_stop_halo)

dkeb : real*8, dimension(grid%j_strt_halo:grid%j_stop_halo)

i : integer

j : integer

l : integer

n : integer

ip1 : integer

dopit : logical

duti : real*8

dutil : real*8

rkei : real*8

rkeil : real*8

begin : real*8

namofm : integer, dimension(6)

Initial Value = (/2,3,4,5,6,7/)

nkeofm : integer, dimension(6)

Initial Value = (/14,15,16,17,18,19/)

j_0 : integer

j_1 : integer

j_0s : integer

j_1s : integer

j_0stg : integer

j_1stg : integer

j_0h : integer

have_south_pole : logical

have_north_pole : logical