Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

get_sza

Module:

File: TRACERS_SPECIAL_Shindell.f

Summary: get_sza calculates the solar angle. The intention is that this routine will only be used when the COSZ1 from the radiation code is < 0, i.e. SZA > 90 deg.
Author : Greg Faluvegi, based on the Harvard CTM routine SCALERAD
Version:

---

Declaration:

subroutine get_sza(i, j, tempsza)

Variables:

im : used from resolution

jm : used from resolution

nday : used from model_com

itime : used from model_com

dtsrc : used from model_com

seconds_per_hour : used from timeconstants_mod

seconds_per_day : used from timeconstants_mod

int_days_per_year : used from timeconstants_mod

pi : used from constant

radian : used from constant

byradian : used from trchem_shindell_com

lon2d_dg : used from geom

lat2d_dg : used from geom

grid : used from domain_decomp_atm

hassouthpole : used from domain_decomp_atm

hasnorthpole : used from domain_decomp_atm

tempsza : real*8, intent(out)

the solar zenith angle, returned in degrees

ang1 : real*8, parameter

?
Initial Value = 90.d0/91.3125d0

dx :

degree width of a model grid cell (360/IM)

dy : integer

degree width of a model grid cell ~(180/JM)

tempsza : real*8, intent(out)

the solar zenith angle, returned in degrees

p3 : real*8

? angles needed to compute COS(SZA) in degrees

p2 : real*8

? angles needed to compute COS(SZA) in degrees

p1 : real*8

? angles needed to compute COS(SZA) in degrees

vlom :

latitude and longitude in degrees

vlat : real*8

latitude and longitude in degrees

current :

julian time in seconds

temp : real*8

are temp variables

fact : real*8

are temp variables

i : integer, intent(in)

j : integer, intent(in)

vlon : real*8

timec : real*8