| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
123 |
EBM_ATMOSPHERE |
T_var(1) = SIN(lat(2)*deg2rad) - SIN(lat(1)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
124 |
EBM_ATMOSPHERE |
T_var(2) = SIN(lat(3)*deg2rad) - SIN(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
125 |
EBM_ATMOSPHERE |
T_var(3) = SIN(lat(2)*deg2rad)**3. - SIN(lat(1)*deg2rad)**3. |
|
./pkg/ebm/ebm_atmosphere.F |
126 |
EBM_ATMOSPHERE |
T_var(4) = SIN(lat(3)*deg2rad)**3. - SIN(lat(2)*deg2rad)**3. |
|
./pkg/ebm/ebm_atmosphere.F |
149 |
EBM_ATMOSPHERE |
< ((3.*SIN(lat(2)*deg2rad)**2. - 1.)) |
|
./pkg/ebm/ebm_atmosphere.F |
156 |
EBM_ATMOSPHERE |
< SIN(lat(2)*deg2rad)/rSphere |
|
./pkg/ebm/ebm_atmosphere.F |
181 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
184 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
208 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/exf/exf_set_uv.F |
197 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
205 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
301 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
309 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./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/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/zonal_filt/zonal_filt_init.F |
53 |
ZONAL_FILT_INIT |
& ( cos( abs(Y)*deg2rad ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
54 |
ZONAL_FILT_INIT |
& /cos( zonal_filt_lat*deg2rad ) )**zonal_filt_cospow |
|
./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 |
|
./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 |
|
./model/src/ini_cori.F |
59 |
INI_CORI |
& .OR. usingCurvilinearGrid ) facGrid = deg2rad*rSphere |
|
./model/src/ini_cori.F |
79 |
INI_CORI |
& 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
81 |
INI_CORI |
& 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
83 |
INI_CORI |
& 2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
244 |
GETSST |
_RL pi,pio2,pio3,mpio3,pio36,deg2rad,sinarg,factor,cosarg1,cosarg2 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
248 |
GETSST |
deg2rad = getcon('DEG2RAD') |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
258 |
GETSST |
if( abs(yc(i,j,bi,bj)*deg2rad) .lt. pio3 ) then |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
259 |
GETSST |
sinarg = 3.*yc(i,j,bi,bj)*deg2rad/2. |
|
./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 |
71 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
73 |
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 |
71 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
73 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
71 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
73 |
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/ini_spherical_polar_grid.F |
168 |
INI_SPHERICAL_POLAR_GRID |
dXF(I,J,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
170 |
INI_SPHERICAL_POLAR_GRID |
dXF(I,J,bi,bj) = delX(iGl(I,bi))*deg2rad*rSphere* |
|
./model/src/ini_spherical_polar_grid.F |
171 |
INI_SPHERICAL_POLAR_GRID |
& COS(yc(I,J,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
173 |
INI_SPHERICAL_POLAR_GRID |
dYF(I,J,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
187 |
INI_SPHERICAL_POLAR_GRID |
dXG(I,J,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
189 |
INI_SPHERICAL_POLAR_GRID |
dYG(I,J,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
255 |
INI_SPHERICAL_POLAR_GRID |
rA(I,J,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
256 |
INI_SPHERICAL_POLAR_GRID |
& *abs( sin((lat+dlat)*deg2rad)-sin(lat*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
261 |
INI_SPHERICAL_POLAR_GRID |
& *rSphere*(SIN(lon*deg2rad)-SIN(lat*deg2rad)) |
|
./model/src/ini_spherical_polar_grid.F |
287 |
INI_SPHERICAL_POLAR_GRID |
rAs(I,J,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
288 |
INI_SPHERICAL_POLAR_GRID |
& *abs( sin(lat*deg2rad)-sin((lat-dlat)*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
292 |
INI_SPHERICAL_POLAR_GRID |
rAs(I,J,bi,bj) = rSphere*delX(iGl(I,bi))*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
293 |
INI_SPHERICAL_POLAR_GRID |
& *rSphere*(SIN(lat*deg2rad)-SIN(lon*deg2rad)) |
|
./model/src/ini_spherical_polar_grid.F |
306 |
INI_SPHERICAL_POLAR_GRID |
rAz(I,J,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
307 |
INI_SPHERICAL_POLAR_GRID |
& *abs( sin(lat*deg2rad)-sin((lat-dlat)*deg2rad) ) |
|
./model/src/ini_spherical_polar_grid.F |
316 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtU(I,J,bi,bj)=tan(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
318 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtV(I,J,bi,bj)=tan(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
329 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(J,bi,bj)=COS(yC(1,J,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
331 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(J,bi,bj)=COS((yC(1,J,bi,bj)-0.5*delY(jG))*deg2rad) |
|
./model/src/ini_cylinder_grid.F |
159 |
INI_CYLINDER_GRID |
dXF(I,J,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
169 |
INI_CYLINDER_GRID |
dXG(I,J,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_p_ground.F |
420 |
ANALYLIC_THETA |
yAtmp = COS( deg2rad*MAX(yAtmp, 0. _d 0) ) |
|
./model/src/ini_p_ground.F |
423 |
ANALYLIC_THETA |
yBtmp = COS( deg2rad*MAX( 0. _d 0, MIN(yBtmp,90. _d 0) ) ) |
|
./pkg/ecco/cost_mean_heatflux.F |
115 |
COST_MEAN_HEATFLUX |
& *cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_heatflux.F |
116 |
COST_MEAN_HEATFLUX |
sumcos = sumcos + cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_saltflux.F |
118 |
COST_MEAN_SALTFLUX |
& *cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_saltflux.F |
120 |
COST_MEAN_SALTFLUX |
& + cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
82 |
SEAICE_LSR |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
83 |
SEAICE_LSR |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
57 |
SEAICE_OCEAN_STRESS |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
58 |
SEAICE_OCEAN_STRESS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
59 |
SEAICE_OCEAN_STRESS |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
60 |
SEAICE_OCEAN_STRESS |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
64 |
DYNSOLVER |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
65 |
DYNSOLVER |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
66 |
DYNSOLVER |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/dynsolver.F |
67 |
DYNSOLVER |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_dynsolver.F |
60 |
SEAICE_DYNSOLVER |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_dynsolver.F |
61 |
SEAICE_DYNSOLVER |
COSWIN=COS(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
68 |
SEAICE_EVP |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
69 |
SEAICE_EVP |
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) |