| File |
Line number |
Procedure |
Code |
|
./model/src/ini_spherical_polar_grid.F |
172 |
INI_SPHERICAL_POLAR_GRID |
dlat = delY( jGl(j,bj) ) |
|
./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 |
191 |
INI_SPHERICAL_POLAR_GRID |
dlat = delY( jGl(j,bj) ) |
|
./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 |
259 |
INI_SPHERICAL_POLAR_GRID |
dlat=delY( jGl(j,bj) ) |
|
./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 |
291 |
INI_SPHERICAL_POLAR_GRID |
dlat=0.5 _d 0*( delY( jGl(j,bj) ) + delY( jGl(j-1,bj) ) ) |
|
./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 |
300 |
INI_SPHERICAL_POLAR_GRID |
IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAs(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
310 |
INI_SPHERICAL_POLAR_GRID |
dlat=0.5 _d 0*( delY( jGl(j,bj) ) + delY( jGl(j-1,bj) ) ) |
|
./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 |
313 |
INI_SPHERICAL_POLAR_GRID |
IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAz(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
58 |
INI_SPHERICAL_POLAR_GRID |
_RL lat, dlat, dlon, xG0, yG0 |