| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
24 |
NO PROCEDURE |
Real*8 deg2rad |
|
./model/inc/PARAMS.h |
25 |
NO PROCEDURE |
PARAMETER ( deg2rad = 2.D0*PI/360.D0 ) |
|
./pkg/seaice/dynsolver.F |
69 |
DYNSOLVER |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
70 |
DYNSOLVER |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
71 |
DYNSOLVER |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
72 |
DYNSOLVER |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
40 |
OSTRES |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
41 |
OSTRES |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
42 |
OSTRES |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
43 |
OSTRES |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
101 |
SEAICE_EVP |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
102 |
SEAICE_EVP |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_get_dynforcing.F |
72 |
SEAICE_GET_DYNFORCING |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_get_dynforcing.F |
73 |
SEAICE_GET_DYNFORCING |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
127 |
SEAICE_LSR |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
128 |
SEAICE_LSR |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
50 |
SEAICE_OCEAN_STRESS |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
51 |
SEAICE_OCEAN_STRESS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/zonal_filt/zonal_filt_init.F |
66 |
ZONAL_FILT_INIT |
& ( COS( ABS(lat)*deg2rad ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
67 |
ZONAL_FILT_INIT |
& /COS( zonal_filt_lat*deg2rad ) )**zonal_filt_cospow |
|
./model/src/ini_cori.F |
75 |
INI_CORI |
& .OR. usingCurvilinearGrid ) facGrid = deg2rad*rSphere |
|
./model/src/ini_cori.F |
95 |
INI_CORI |
& 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
97 |
INI_CORI |
& 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
99 |
INI_CORI |
& 2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cylinder_grid.F |
164 |
INI_CYLINDER_GRID |
dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
174 |
INI_CYLINDER_GRID |
dxG(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
221 |
AIM_SURF_BC |
RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
239 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
240 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
254 |
GETSST |
_RL pi,pio2,pio3,mpio3,pio36,deg2rad,sinarg |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
259 |
GETSST |
deg2rad = getcon('DEG2RAD') |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
269 |
GETSST |
if( abs(yc(i,j,bi,bj)*deg2rad) .lt. pio3 ) then |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
270 |
GETSST |
sinarg = 3.*yc(i,j,bi,bj)*deg2rad/2. |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
152 |
DO_FIZHI |
_RL kF,sigma_b,ks,ka,deg2rad,pi,atm_po,atm_kappa,termp,kv,kT |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
167 |
DO_FIZHI |
deg2rad = getcon('DEG2RAD') |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
182 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
185 |
DO_FIZHI |
& *(cos(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
192 |
DO_FIZHI |
& *COS((lats(I,J,bi,bj)*deg2rad))**4 |
|
./model/src/ini_p_ground.F |
426 |
ANALYLIC_THETA |
yAtmp = COS( deg2rad*MAX(yAtmp, 0. _d 0) ) |
|
./model/src/ini_p_ground.F |
429 |
ANALYLIC_THETA |
yBtmp = COS( deg2rad*MAX( 0. _d 0, MIN(yBtmp,90. _d 0) ) ) |
|
./model/src/ini_spherical_polar_grid.F |
173 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
175 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = delX(iGl(i,bi))*deg2rad*rSphere* |
|
./model/src/ini_spherical_polar_grid.F |
176 |
INI_SPHERICAL_POLAR_GRID |
& COS(yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
178 |
INI_SPHERICAL_POLAR_GRID |
dyF(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
192 |
INI_SPHERICAL_POLAR_GRID |
dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
194 |
INI_SPHERICAL_POLAR_GRID |
dyG(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
260 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
261 |
INI_SPHERICAL_POLAR_GRID |
& *ABS( SIN((lat+dlat)*deg2rad)-SIN(lat*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
266 |
INI_SPHERICAL_POLAR_GRID |
& *rSphere*(SIN(lon*deg2rad)-SIN(lat*deg2rad)) |
|
./model/src/ini_spherical_polar_grid.F |
292 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
293 |
INI_SPHERICAL_POLAR_GRID |
& *ABS( SIN(lat*deg2rad)-SIN((lat-dlat)*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
297 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = rSphere*delX(iGl(i,bi))*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
298 |
INI_SPHERICAL_POLAR_GRID |
& *rSphere*(SIN(lat*deg2rad)-SIN(lon*deg2rad)) |
|
./model/src/ini_spherical_polar_grid.F |
311 |
INI_SPHERICAL_POLAR_GRID |
rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
312 |
INI_SPHERICAL_POLAR_GRID |
& *ABS( SIN(lat*deg2rad)-SIN((lat-dlat)*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
321 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
323 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
334 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj)=COS(yC(1,j,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
336 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj)=COS((yC(1,j,bi,bj)-0.5*delY(jG))*deg2rad) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
227 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
230 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./model/src/rotate_spherical_polar_grid.F |
145 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*COS( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
147 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*SIN( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
148 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
165 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
173 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
234 |
CALC_ANGLES |
& - ( yG(I,J,bi,bj) - yG(I,J+1,bi,bj) )*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
241 |
CALC_ANGLES |
& + ( yG(I,J,bi,bj) - yG(I+1,J,bi,bj) )*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
72 |
ROTATE_SPHERICAL_POLAR_GRID |
phiRad = phiEuler *deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
73 |
ROTATE_SPHERICAL_POLAR_GRID |
thetaRad = thetaEuler*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
74 |
ROTATE_SPHERICAL_POLAR_GRID |
psiRad = psiEuler *deg2rad |
|
./pkg/aim_v23/aim_dyn2aim.F |
76 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
211 |
AIM_SURF_BC |
RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
215 |
AIM_SURF_BC |
ZS = - SIN(OBLIQ * deg2rad) * COS(ALPHA) |
|
./pkg/aim_v23/aim_surf_bc.F |
234 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
235 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
100 |
INIT_ATM2D |
endwgt2 = sin(atm_yG(3)*deg2rad) - endwgt1 !grid is same in NH and SH |
|
./pkg/atm2d/init_atm2d.F |
115 |
INIT_ATM2D |
end1= sin(yG(1,j,1,1) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
116 |
INIT_ATM2D |
end2= sin(yG(1,j+1,1,1) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
117 |
INIT_ATM2D |
enda1 = sin(atm_yG(j_atm) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
118 |
INIT_ATM2D |
enda2 = sin(atm_yG(j_atm+1) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
120 |
INIT_ATM2D |
enda3 = sin(atm_yG(j_atm+2) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
172 |
INIT_ATM2D |
& (sin(atm_yG(j_atm+1)*deg2rad) - sin(atm_yG(j_atm)*deg2rad))) |
|
./pkg/atm2d/init_atm2d.F |
179 |
INIT_ATM2D |
& (sin(atm_yG(3)*deg2rad)+1. _d 0)) |
|
./pkg/atm2d/init_atm2d.F |
184 |
INIT_ATM2D |
& (1. _d 0-sin(atm_yG(jm0-1)*deg2rad))) |
|
./pkg/atm2d/init_atm2d.F |
86 |
INIT_ATM2D |
atm_oc_frac1(1)= (sin(yG(1,2,1,1)*deg2rad) - |
|
./pkg/atm2d/init_atm2d.F |
87 |
INIT_ATM2D |
& sin(yG(1,1,1,1)*deg2rad))/ |
|
./pkg/atm2d/init_atm2d.F |
88 |
INIT_ATM2D |
& (sin(atm_yG(3)*deg2rad)-sin(atm_yG(1)*deg2rad)) |
|
./pkg/atm2d/init_atm2d.F |
93 |
INIT_ATM2D |
& dyG(1,sNy,1,1)/6.37D6/deg2rad)*deg2rad)- |
|
./pkg/atm2d/init_atm2d.F |
94 |
INIT_ATM2D |
& sin(yG(1,sNy,1,1)*deg2rad))/ |
|
./pkg/atm2d/init_atm2d.F |
95 |
INIT_ATM2D |
& (sin((atm_yG(jm0)+atm_dyG(jm0))*deg2rad)- |
|
./pkg/atm2d/init_atm2d.F |
96 |
INIT_ATM2D |
& sin(atm_yG(jm0-1)*deg2rad)) |
|
./pkg/atm2d/init_atm2d.F |
99 |
INIT_ATM2D |
endwgt1 = sin(atm_yG(2)*deg2rad) !hard-coded that the atmos |
|
./pkg/atm2d/relax_add.F |
89 |
RELAX_ADD |
& max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0) |
|
./pkg/atm2d/relax_add.F |
95 |
RELAX_ADD |
& max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0) |
|
./pkg/dic/insol.F |
68 |
INSOL |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/ebm/ebm_atmosphere.F |
119 |
EBM_ATMOSPHERE |
T_var(1) = SIN(lat(2)*deg2rad) - SIN(lat(1)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
120 |
EBM_ATMOSPHERE |
T_var(2) = SIN(lat(3)*deg2rad) - SIN(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
121 |
EBM_ATMOSPHERE |
T_var(3) = SIN(lat(2)*deg2rad)**3 - SIN(lat(1)*deg2rad)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
122 |
EBM_ATMOSPHERE |
T_var(4) = SIN(lat(3)*deg2rad)**3 - SIN(lat(2)*deg2rad)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
145 |
EBM_ATMOSPHERE |
& ( 3.*SIN(lat(2)*deg2rad)**2 - 1. ) |
|
./pkg/ebm/ebm_atmosphere.F |
152 |
EBM_ATMOSPHERE |
& SIN(lat(2)*deg2rad)/rSphere |
|
./pkg/ebm/ebm_atmosphere.F |
179 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
182 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
206 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/exf/exf_set_uv.F |
166 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
174 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
246 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
254 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_zenithangle.F |
163 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
164 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
172 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
269 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
270 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
274 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
279 |
EXF_ZENITHANGLE |
H0 = -tan( yC(i,j,bi,bj) *deg2rad ) * tan( DECLI ) |
|
./pkg/exf/exf_zenithangle_table.F |
76 |
EXF_ZENITHANGLE_TABLE |
SJ = SIN(LLLAT * deg2rad) |
|
./pkg/exf/exf_zenithangle_table.F |
77 |
EXF_ZENITHANGLE_TABLE |
CJ = COS(LLLAT * deg2rad) |
|
./pkg/exf/exf_zenithangle_table.F |
97 |
EXF_ZENITHANGLE_TABLE |
& cos( 2. _d 0 *PI* TDAY + 0. _d 0 * deg2rad ) |