IndexRundeck: P1SoM40Created: Thu May 9 03:30:17 EDT 2024

relax
Module: ICEDYN
File: ICEDYN.f
Summary: RELAX calculates ice dynamics relaxation method
Author : Jiping Liu/Gavin Schmidt (based on code from J. Zhang)
Version:
Declaration:
Variables:
getdomainbounds : used from domain_decomp_1d

north : used from domain_decomp_1d

south : used from domain_decomp_1d

halo_update : used from domain_decomp_1d

pack_data : used from domain_decomp_1d

unpack_data : used from domain_decomp_1d

am_i_root : used from domain_decomp_1d

hassouthpole : used from domain_decomp_1d

hasnorthpole : used from domain_decomp_1d

tridiag_new : used from tridiag_mod

tridiag_cyclic : used from tridiag_mod

au : real*8, dimension(nx1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

bu : real*8, dimension(nx1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

cu : real*8, dimension(nx1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

fxy : real*8, dimension(nx1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

fxy1 : real*8, dimension(nx1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

av : real*8, dimension(2:nx1-1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

bv : real*8, dimension(2:nx1-1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

cv : real*8, dimension(2:nx1-1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

vrt : real*8, dimension(2:nx1-1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

u_tmp : real*8, dimension(2:nx1-1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

fxya : real*8, dimension(nx1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

fxy1a : real*8, dimension(nx1, grid_icdyn%j_strt_halo:grid_icdyn%j_stop_halo)

urt : real*8, dimension(nx1)

byrad2 : real*8, parameter
Initial Value = 1./(RADIUS*RADIUS)
i : integer

j : integer

delxy : real*8

delxr : real*8

delx2 : real*8

dely2 : real*8

delyr : real*8

etamean : real*8

zetamean : real*8

aa1 : real*8

aa2 : real*8

aa3 : real*8

aa4 : real*8

aa5 : real*8

aa6 : real*8

aa9 : real*8

j_0 : integer

j_1 : integer

j_0s : integer

j_1s : integer

j_0h : integer

j_1h : integer

j_nyp : integer

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS — NASA Privacy Policy — Accessibility