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

GEOM
File: GEOM_B.f
Summary: GEOM contains spherical geometric variables and arrays
Author : Original development team
Version:
Subroutines:
geom_atm
GEOM_ATM Calculate spherical geometry for B grid
lat_to_j

lon_to_i

lonlat_to_ij

lonlat_to_tile

Global Variables:
omega : used from constant

radius : used from constant

twopi : used from constant

radian : used from constant

areag : used from constant

Used by: | :diag5a | :gettotalenergy | ATMDYN:filter | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagjk | DYNAMICS:daily_atmdyn |
im : used from resolution

jm : used from resolution

lm : used from resolution

imh : integer, parameter, public
half the number of longitudinal boxes
Initial Value = IM/2
Used by: | ATMDYN | DIAG_COM |
byim : real*8, parameter, public
real values related to number of long. grid boxes
Initial Value = 1./FIM
Used by: | :diagcd | :regrid_btoa_3d | :regrid_btoa_ext | ATMDYN | ATMDYN:filter | DIAG_COM | TRACER_ADV |
fim : real*8, parameter, public
real values related to number of long. grid boxes
Initial Value = IM
Used by: | :add_am_as_solidbody_rotation | :diagcd | ATMDYN | DIAG_COM |
dlon : real*8, public, parameter
grid spacing in longitude (deg)
Initial Value = TWOPI*BYIM
Used by: | ATMDYN:avrx | DIAG_SERIAL:ilmap | DIAG_ZONAL |
dlatm : real*8, public
grid spacing in latitude (rad,deg,minutes)
Used by: | :alloc_fluxes |
dlat_dg : real*8, public
grid spacing in latitude (rad,deg,minutes)
dlat : real*8, public
grid spacing in latitude (rad,deg,minutes)
Used by: | DIAGKS | RAD_COSZ0:cosz_init |
fjeq : real*8, public, parameter
equatorial value of J
Initial Value = .5*(1+JM)
Used by: | ATMDYN:hemisphere |
j1u : integer, parameter
index of southernmost latitude (currently 2, later 1)
Initial Value = 2
jrange_hemi : integer, public, parameter, dimension(2, 2, 2)
lowest,highest lat index for SH,NH for A,B grid
Initial Value = reshape( (/1,JM/2, 1+JM/2,JM, J1U,J1U-1+JM/2, J1U-1+JM/2,JM+J1U-2/), (/2,2,2/))
lat : real*8, public, dimension(jm)
latitude of mid point of primary grid box (radians)
latv : real*8, public, dimension(jm)
latitude of southern edge of primary grid box (radians)
lat_dg : real*8, public, dimension(jm, 2)
latitude of mid points of primary and sec. grid boxs (deg)
Used by: | :gc_defs | :ijk_defs | :init_rad | :init_unrdrag | DIAGKS | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagjk | DIAG_SERIAL:ijmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:keyij2 | DIAG_SERIAL:print_generic_jl |
lon : real*8, public, dimension(im)
longitude of mid points of primary grid box (radians)
Used by: | RAD_COSZ0:coszt |
lonv : real*8, public, dimension(im)
longitude of east edge of primary grid box (radians)
lon_dg : real*8, public, dimension(im, 2)
longitude of mid points of prim. and sec. grid boxes (deg)
Used by: | :ijk_defs | :pout_il | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:keyij2 |
bydxyp : real*8, public, dimension(jm)
area of grid box (+inverse) (m^2)
Used by: | :diagb | :diagcd | :diaggc_prep | ATMDYN:advecm | DIAG_SERIAL:diagjk |
dxyp : real*8, public, dimension(jm)
area of grid box (+inverse) (m^2)
Used by: | :diag5a | :diagb | :diaggc_prep | :regrid_btoa_ext | ATMDYN:aflux | ATMDYN:filter | DIAGKS | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl | DIAG_SERIAL:scale_ijlmap |
i :
-index (longitude) of each grid cell
adxyp : real*8, public, dimension(im, jm)

Used by: | DIAG_SERIAL:keyij2 |
j :
-index (latitude) of each grid cell
indx : integer, public, allocatable, dimension(:, :)

jndx : integer, public, allocatable, dimension(:, :)

wtj : real*8, public, dimension(jm, 2, 2)
area weighting used in JLMAP, JKMAP (for hemispheric means)
Used by: | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_avg | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap |
axyp : real*8, public, dimension(:, :), allocatable

Used by: | :ahourly | :atm_diffus | :calc_amp | :calc_derived_aij | :checkl | :condse | :conserv_hicb | :conserv_htg | :conserv_micb | :conserv_wtg | :daily_ch4ox | :daily_lake | :daily_li | :def_meta_atmacc | :diag_isccp_prep | :diaga | :gettotalenergy | :ground_lk | :horzdist_2pts | :inc_areg | :init_diag | :init_lakes | :init_li | :precip_lk | :printlk | :radia | :remove_extra_snow_to_ocean | :riverf | :set_budg_area | :set_wtbudg | :surface | :surface_diag1 | :surface_diag1a | :surface_diag3 | :write_meta_atmacc | ATMDYN:dynam | DYNAMICS:aic_part2 | DYNAMICS:daily_atmdyn | SOIL_DRV:accumulate_excess_c | SOIL_DRV:ghy_diag | SUBDAILY:get_subdd |
byaxyp : real*8, public, dimension(:, :), allocatable

Used by: | :ahourly | :atm_diffus | :compute_wsave | :condse | :conserv_am | :conserv_amb_ext | :conserv_ke | :conserv_lke | :conserv_lkm | :daily_lake | :diag_river | :diaga | :get_atm_layer1 | :precip_lk | :radia | :riverf | :surface | :surface_diag1 | :surface_diag1a | :update_land_fractions | SUBDAILY:get_subdd |
lat2d : real*8, public, dimension(:, :), allocatable

Used by: | :alloc_fluxes | :calc_derived_aij | :conserv_hicb | :conserv_micb | :daily_ch4ox | :daily_diag | :daily_li | :init_cld | :init_li | :radia | ENT_DRV:set_vegetation_data | ENT_DRV:update_vegetation_data | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:ghy_diag |
lon2d : real*8, public, dimension(:, :), allocatable

Used by: | :horzdist_2pts | :radia |
lat2d_dg : real*8, public, dimension(:, :), allocatable

Used by: | :init_diag | :init_lakes | :set_j_budg |
lon2d_dg : real*8, public, dimension(:, :), allocatable

Used by: | :diaga | :init_diag | :init_lakes |
sinlat2d : real*8, public, dimension(:, :), allocatable

Used by: | :diaga | :get_dbl | :horzdist_2pts | :init_lakeice | :init_pbl | PBL_DRV:pbl |
coslat2d : real*8, public, dimension(:, :), allocatable

Used by: | :diaga | :horzdist_2pts |
ddx_ci : real*8, public, dimension(:, :), allocatable

ddx_cj : real*8, public, dimension(:, :), allocatable

ddy_ci : real*8, public, dimension(:, :), allocatable

Used by: | :diaga |
ddy_cj : real*8, public, dimension(:, :), allocatable

Used by: | :diaga |
bydxyv : real*8, public, dimension(jm)
area of grid box around velocity point (recip.)(m^2)
Used by: | :diagb |
dxyv : real*8, public, dimension(jm)
area of grid box around velocity point (recip.)(m^2)
Used by: | :conserv_amb_ext | :conserv_ke | :diagb | :diaggc_prep | :regrid_btoa_ext | ATMDYN:sdrag | DIAG_SERIAL:diag5p | DIAG_SERIAL:diagjk | MOMENTS:advecv | MOMENTS:initmoments |
bydyp : real*8, public, dimension(jm)
distance between points on primary grid
Used by: | :pgrad_pbl | ATMDYN:avrx |
bydxp : real*8, public, dimension(jm)
distance between points on primary grid
Used by: | :pgrad_pbl |
dyp : real*8, public, dimension(jm)
distance between points on primary grid
Used by: | :diagb | ATMDYN:aflux | ATMDYN:avrx | DIAG_SERIAL:diagjk |
dxp : real*8, public, dimension(jm)
distance between points on primary grid
Used by: | ATMDYN:avrx | ATMDYN:isotropslp |
dyv : real*8, public, dimension(jm)
distance between velocity points (secondary grid)
Used by: | :diagb | ATMDYN:pgf |
dxv : real*8, public, dimension(jm)
distance between velocity points (secondary grid)
Used by: | :diagb | :diaggc_prep | ATMDYN:aflux | ATMDYN:isotropuv | ATMDYN:pgf | DIAG_SERIAL:diagij | DIAG_SERIAL:diagjk | MOMENTS:advecv |
dxys : real*8, public, dimension(jm)
half box areas to the North,South of primary grid point
Used by: | :add_am_as_solidbody_rotation | :conserv_amb_ext | :conserv_ke | :diag5a | :diagb | ATMDYN:fltruv | ATMDYN:pgf | ATMDYN:sdrag | MOMENTS:advecv |
dxyn : real*8, public, dimension(jm)
half box areas to the North,South of primary grid point
Used by: | :add_am_as_solidbody_rotation | :conserv_amb_ext | :conserv_ke | :diag5a | :diagb | ATMDYN:fltruv | ATMDYN:pgf | ATMDYN:sdrag | MOMENTS:advecv |
sinp : real*8, public, dimension(jm)
sin of latitude at primary grid points
coslatv : real*8, public, dimension(jm)
sin(latv), cos(latv)
sinlatv : real*8, public, dimension(jm)
sin(latv), cos(latv)
cosv : real*8, public, dimension(jm)
cos of latitude at primary, secondary latitudes
Used by: | :add_am_as_solidbody_rotation | :conserv_amb_ext | :diagb | :diagcd | :diaggc_prep | ATMDYN:isotropuv | ATMDYN:sdrag | DIAG_SERIAL:diagjk |
cosp : real*8, public, dimension(jm)
cos of latitude at primary, secondary latitudes
Used by: | :diaggc_prep | ATMDYN:isotropslp |
ravpn : real*8, public, dimension(jm)
area scalings for primary and sec. grid
Used by: | :diagcd | MOMENTS:advecv |
ravps : real*8, public, dimension(jm)
area scalings for primary and sec. grid
Used by: | :diagcd | MOMENTS:advecv |
rapvn : real*8, public, dimension(jm)
area scalings for primary and sec. grid
Used by: | :diagb | :get_regrid_info_for_n | :regrid_atov_1d | :regrid_btoa_ext | :unrdrag | ATMDYN:sdrag |
rapvs : real*8, public, dimension(jm)
area scalings for primary and sec. grid
Used by: | :diagb | :get_regrid_info_for_n | :regrid_atov_1d | :regrid_btoa_ext | :unrdrag | ATMDYN:sdrag |
dxlatv : real*8, public, dimension(jm)

cosip : real*8, public, dimension(im)
longitud. sin,cos for wind,pressure grid
Used by: | :alloc_fluxes | :pgrad_pbl | RAD_COSZ0:coszt |
sinip : real*8, public, dimension(im)
longitud. sin,cos for wind,pressure grid
Used by: | :alloc_fluxes | :pgrad_pbl | RAD_COSZ0:coszt |
cosiv : real*8, public, dimension(im)
longitud. sin,cos for wind,pressure grid
Used by: | :recalc_agrid_uv | :regrid_atov_1d | ATMDYN:isotropuv | MOMENTS:advecv |
siniv : real*8, public, dimension(im)
longitud. sin,cos for wind,pressure grid
Used by: | :recalc_agrid_uv | :regrid_atov_1d | ATMDYN:isotropuv | MOMENTS:advecv |
ravj : real*8, public, dimension(im, jm)
scaling for A grid U/V to B grid points (func. of lat. j)
Used by: | :condse |
rapj : real*8, public, dimension(im, jm)
scaling for B grid -> A grid conversion (1/4,1/im at poles)
Used by: | :recalc_agrid_uv | ATMDYN:sdrag |
sinu : real*8, public, dimension(im)

cosu : real*8, public, dimension(im)

idjj : integer, public, dimension(im, jm)
J index of adjacent U/V points for A grid (func. of lat. j)
Used by: | :recalc_agrid_uv | ATMDYN:sdrag |
idij : integer, public, dimension(:, :, :), allocatable
I index of adjacent U/V points for A grid (func. of lat/lon)
Used by: | :recalc_agrid_uv | ATMDYN:sdrag |
kmaxj : integer, public, dimension(jm)
varying number of adjacent velocity points
Used by: | :condse | :init_cld | :recalc_agrid_uv | ATMDYN:sdrag |
imaxj : integer, public, dimension(jm)
varying number of used longitudes
Used by: | :aadvqz | :aadvqz2 | :addenergyaslocalheat | :ahourly | :atm_diffus | :calc_derived_aij | :calc_trop | :check_ghy_conservation | :checki | :checkl | :checkli | :compute_gz | :condse | :conserv_diag | :conserv_ewm | :conserv_hli | :conserv_htg | :conserv_lhsi | :conserv_lke | :conserv_lkm | :conserv_lmsi | :conserv_mli | :conserv_ms | :conserv_pe | :conserv_wm | :conserv_wtg | :conserv_wtg_1 | :daily_ch4ox | :daily_diag | :daily_lake | :daily_li | :daily_rad | :diag5a | :diaga | :diaga0 | :diagb | :diaggc_prep | :downscale_pressure_li | :downscale_temperature_li | :get_atm_layer1 | :get_chl_from_seawifs | :get_dbl | :getdz | :ground_li | :ground_lk | :init_diag | :init_lakes | :init_li | :init_pbl | :loadbl | :nij_after_j1 | :nij_before_j0 | :precip_li | :precip_lk | :radia | :recalc_agrid_uv | :riverf | :set_wtbudg | :surface | :surface_diag1 | :surface_diag1a | :surface_diag2 | :surface_diag3 | :surface_diag_post_precip_li | :surface_landice | :updtype | ATMDYN:advecm | ATMDYN:aflux | ATMDYN:pgf | ATMDYN:sdrag | SOIL_DRV:accumulate_excess_c | SOIL_DRV:checke | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:ground_e | SUBDAILY:get_subdd | TRACER_ADV:aadvq0 | ZONALMEAN_MOD:zonalmean_ij2ij |
fcor : real*8, public, dimension(jm)
latitudinally varying coriolis parameter
Used by: | :diagb | :diaggc_prep | DIAG_SERIAL:diagjk | MOMENTS:advecv |
jg_ke : integer, parameter
lat. grids on which U-wind and KE are defined
Initial Value = 2
jg_u : integer, parameter
lat. grids on which U-wind and KE are defined
Initial Value = 2
acor : real*8, public

Used by: | ATMDYN:pgf | MOMENTS:advecv |
acor2 : real*8, public

Used by: | ATMDYN:pgf |
polwt : real*8, public

Used by: | ATMDYN:aflux | MOMENTS:advecv |

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

Contact GISS — NASA Privacy Policy — Accessibility