Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
calc_zenith_angle | Module: ZENITH_MOD | File: Zenith.F90 |
Author : Gavin Schmidt (from RADIA) (revised by T. Clune)
Version:
Declaration:
subroutine calc_zenith_angle(clock, nstep, cosz, cosza)
- nstep :
integer, intent(in)
- - number of timesteps over which to average
- cosz :
real*8, intent(inout), dimension(:, :)
- - array of zenith angles weighted by time
- cosza :
real*8, optional, intent(inout), dimension(:, :)
- - weighted by incident light
- twopi : used from constant
- pi : used from constant
- basetime : used from basetime_mod
- newbasetime : used from basetime_mod
- seconds_per_day : used from timeconstants_mod
- useorbit : used from rad_com
- Initial Value
= > orbit
- coszt : used from rad_cosz0
- coszs : used from rad_cosz0
- clock :
type(modelclock), intent(in)
- rot1 :
real*8
- rot2 :
real*8
- t1 :
type(time)
- t2 :
type(time)
- tiny :
real*8, parameter
- Initial Value
= 1.d-10