| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cori.F |
60 |
INI_CORI |
IF ( usingSphericalPolarGrid ) facGrid = deg2rad*rSphere |
|
./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 |
258 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*25.0) ) |
|
./pkg/ebm/ebm_atmosphere.F |
277 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*22.3) ) |
|
./pkg/ebm/ebm_atmosphere.F |
295 |
EBM_ATMOSPHERE |
< /(2.0*12.0*PI*rSphere*rSphere) |
|
./pkg/ebm/ebm_atmosphere.F |
312 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*18.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
325 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*12.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
336 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*12.0)) |
|
./model/src/config_summary.F |
492 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( rSphere, INDEX_NONE,'rSphere = ', |
|
./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 |
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 |
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 |
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 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
98 |
EXTERNAL_FORCING_U |
Coord2longitude=1./rSphere |
|
./verification/advect_cs/code/ini_vel.F |
37 |
INI_VEL |
omegaprime=38.60328935834681d0/rSphere |
|
./verification/advect_cs/code/ini_vel.F |
38 |
INI_VEL |
fac=-(rSphere**2)*omegaprime/(2.d0*Omega) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
39 |
INI_PSURF |
omegaprime=38.60328935834681d0/rSphere |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
40 |
INI_PSURF |
fac=-(rSphere**2)*omegaprime*(Omega+omegaprime)/(4.d0*(Omega**2)) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
47 |
INI_VEL |
omegaprime=38.60328935834681d0/rSphere |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
48 |
INI_VEL |
fac=-(rSphere**2)*omegaprime/(2.d0*Omega) |
|
./model/src/ini_parms.F |
1017 |
INI_PARMS |
IF ( rSphere .NE. 0 ) THEN |
|
./model/src/ini_parms.F |
1018 |
INI_PARMS |
recip_rSphere = 1.D0/rSphere |
|
./model/src/ini_parms.F |
210 |
INI_PARMS |
& usingSphericalPolarGrid, phiMin, thetaMin, rSphere, |
|
./model/src/ini_parms.F |
890 |
INI_PARMS |
recip_rSphere = 1.D0/rSphere |
|
./model/inc/PARAMS.h |
576 |
NO PROCEDURE |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, beta, |
|
./model/inc/PARAMS.h |
626 |
NO PROCEDURE |
_RL rSphere |
|
./model/src/set_defaults.F |
66 |
SET_DEFAULTS |
rSphere = 6370. * 1.D3 |