| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp_uv.F |
279 |
EXF_INTERP_UV |
csLon(-1) = cos(x_in(-1)*deg2rad) |
|
./pkg/exf/exf_interp_uv.F |
280 |
EXF_INTERP_UV |
snLon(-1) = sin(x_in(-1)*deg2rad) |
|
./pkg/exf/exf_interp_uv.F |
281 |
EXF_INTERP_UV |
csdLon = cos(lon_inc*deg2rad) |
|
./pkg/exf/exf_interp_uv.F |
282 |
EXF_INTERP_UV |
sndLon = sin(lon_inc*deg2rad) |
|
./pkg/exf/exf_set_uv.F |
305 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
313 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
466 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
474 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_zenithangle.F |
192 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
193 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
202 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
301 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
302 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
307 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI*TDAY + xC(i,j,bi,bj)*deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
313 |
EXF_ZENITHANGLE |
H0 = -TAN( yC(i,j,bi,bj) *deg2rad ) * TAN( DECLI ) |
|
./pkg/exf/exf_zenithangle_table.F |
69 |
EXF_ZENITHANGLE_TABLE |
SJ = SIN(LLLAT * deg2rad) |
|
./pkg/exf/exf_zenithangle_table.F |
70 |
EXF_ZENITHANGLE_TABLE |
CJ = COS(LLLAT * deg2rad) |
|
./pkg/exf/exf_zenithangle_table.F |
90 |
EXF_ZENITHANGLE_TABLE |
& cos( 2. _d 0 *PI* TDAY + 0. _d 0 * deg2rad ) |
|
./model/inc/PARAMS.h |
21 |
NO PROCEDURE |
Real*8 deg2rad |
|
./model/inc/PARAMS.h |
22 |
NO PROCEDURE |
PARAMETER ( deg2rad = 2.D0*PI/360.D0 ) |
|
./model/src/calc_grid_angles.F |
103 |
CALC_GRID_ANGLES |
& *( SIN( yG(i,j+1,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
104 |
CALC_GRID_ANGLES |
& - SIN( yG(i, j, bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
117 |
CALC_GRID_ANGLES |
tmpVal = _rAs(i,j,bi,bj) * COS( deg2rad* |
|
./model/src/calc_grid_angles.F |
121 |
CALC_GRID_ANGLES |
& *( SIN( yG(i+1,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
122 |
CALC_GRID_ANGLES |
& - SIN( yG(i,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
58 |
CALC_GRID_ANGLES |
& - ( yG(i,j,bi,bj) - yG(i,j+1,bi,bj) )*deg2rad |
|
./model/src/calc_grid_angles.F |
70 |
CALC_GRID_ANGLES |
& + ( yG(i,j,bi,bj) - yG(i+1,j,bi,bj) )*deg2rad |
|
./model/src/calc_grid_angles.F |
99 |
CALC_GRID_ANGLES |
tmpVal = _rAw(i,j,bi,bj) * COS( deg2rad* |
|
./pkg/monitor/mon_ke.F |
209 |
MON_KE |
cosLat = COS( deg2rad* |
|
./pkg/monitor/mon_ke.F |
248 |
MON_KE |
cosLat = COS( deg2rad* |
|
./pkg/monitor/mon_ke.F |
282 |
MON_KE |
cosLat = COS( deg2rad*yG(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
272 |
SBO_CALC |
lat = yC(i,j,bi,bj) * deg2rad |
|
./pkg/sbo/sbo_calc.F |
273 |
SBO_CALC |
lon = xC(i,j,bi,bj) * deg2rad |
|
./pkg/seaice/dynsolver.F |
73 |
DYNSOLVER |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
74 |
DYNSOLVER |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/lsr.F |
167 |
LSR |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/lsr.F |
168 |
LSR |
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_calc_lhs.F |
96 |
SEAICE_CALC_LHS |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_calc_lhs.F |
97 |
SEAICE_CALC_LHS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_calc_rhs.F |
66 |
SEAICE_CALC_RHS |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_calc_rhs.F |
67 |
SEAICE_CALC_RHS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
188 |
SEAICE_EVP |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
189 |
SEAICE_EVP |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_get_dynforcing.F |
93 |
SEAICE_GET_DYNFORCING |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_get_dynforcing.F |
94 |
SEAICE_GET_DYNFORCING |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
258 |
SEAICE_LSR |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
259 |
SEAICE_LSR |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
51 |
SEAICE_OCEAN_STRESS |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
52 |
SEAICE_OCEAN_STRESS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_preconditioner.F |
141 |
SEAICE_PRECONDITIONER |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_preconditioner.F |
142 |
SEAICE_PRECONDITIONER |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./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 |
101 |
INI_CYLINDER_GRID |
dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
111 |
INI_CYLINDER_GRID |
dxG(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./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) ) ) |
|
./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_spherical_polar_grid.F |
106 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = rSphere*COS(lat*deg2rad)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
107 |
INI_SPHERICAL_POLAR_GRID |
dyF(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
121 |
INI_SPHERICAL_POLAR_GRID |
dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
123 |
INI_SPHERICAL_POLAR_GRID |
dyG(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
190 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
191 |
INI_SPHERICAL_POLAR_GRID |
& *ABS( SIN((lat+dlat)*deg2rad)-SIN(lat*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
196 |
INI_SPHERICAL_POLAR_GRID |
& *rSphere*(SIN(dlat*deg2rad)-SIN(lat*deg2rad)) |
|
./model/src/ini_spherical_polar_grid.F |
225 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
226 |
INI_SPHERICAL_POLAR_GRID |
& *ABS( SIN(lat*deg2rad)-SIN((lat-dlat)*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
238 |
INI_SPHERICAL_POLAR_GRID |
rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
239 |
INI_SPHERICAL_POLAR_GRID |
& *ABS( SIN(lat*deg2rad)-SIN((lat-dlat)*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
248 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
250 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
262 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower |
|
./model/src/ini_spherical_polar_grid.F |
264 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
228 |
AIM_SURF_BC |
ZS = - SIN(OBLIQ * deg2rad) * COS(ALPHA) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
232 |
AIM_SURF_BC |
RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
251 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
252 |
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 |
153 |
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 |
168 |
DO_FIZHI |
deg2rad = getcon('DEG2RAD') |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
183 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
186 |
DO_FIZHI |
& *(cos(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
193 |
DO_FIZHI |
& *COS((lats(I,J,bi,bj)*deg2rad))**4 |
|
./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/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
288 |
APPLY_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/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
288 |
APPLY_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.1x64x5/code_oad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
288 |
APPLY_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) |
|
./model/src/rotate_spherical_polar_grid.F |
146 |
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 |
148 |
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 |
149 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
166 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
174 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
73 |
ROTATE_SPHERICAL_POLAR_GRID |
phiRad = phiEuler *deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
74 |
ROTATE_SPHERICAL_POLAR_GRID |
thetaRad = thetaEuler*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
75 |
ROTATE_SPHERICAL_POLAR_GRID |
psiRad = psiEuler *deg2rad |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./pkg/aim_v23/aim_dyn2aim.F |
79 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
80 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
211 |
AIM_SURF_BC |
ZS = - SIN(OBLIQ * deg2rad) * COS(ALPHA) |
|
./pkg/aim_v23/aim_surf_bc.F |
215 |
AIM_SURF_BC |
RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad) |
|
./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/atm_phys/atm_phys_dyn2phys.F |
71 |
ATM_PHYS_DYN2PHYS |
lat2d(:,:) = yC(1:sNx,1:sNy,bi,bj)*deg2rad |
|
./pkg/bling/bling_light.F |
124 |
BLING_LIGHT |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/dic/insol.F |
68 |
INSOL |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/ebm/ebm_atmosphere.F |
142 |
EBM_ATMOSPHERE |
T_var(1) = SIN(latBnd(2)*deg2rad) - SIN(latBnd(1)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
143 |
EBM_ATMOSPHERE |
T_var(2) = SIN(latBnd(3)*deg2rad) - SIN(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
144 |
EBM_ATMOSPHERE |
T_var(3) = SIN(latBnd(2)*deg2rad)**3 - SIN(latBnd(1)*deg2rad)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
145 |
EBM_ATMOSPHERE |
T_var(4) = SIN(latBnd(3)*deg2rad)**3 - SIN(latBnd(2)*deg2rad)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
168 |
EBM_ATMOSPHERE |
& ( 3.*SIN(latBnd(2)*deg2rad)**2 - 1. ) |
|
./pkg/ebm/ebm_atmosphere.F |
175 |
EBM_ATMOSPHERE |
& SIN(latBnd(2)*deg2rad)/rSphere |
|
./pkg/ebm/ebm_atmosphere.F |
201 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
204 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
228 |
EBM_ATMOSPHERE |
S(i,j,bj) = SIN(yC(i,j,bi,bj)*deg2rad) |