| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
798 |
NO PROCEDURE |
& delR, delRc, xgOrigin, ygOrigin, rSphere, recip_rSphere, |
|
./model/inc/PARAMS.h |
846 |
NO PROCEDURE |
_RL delR(Nr) |
|
./model/src/ini_parms.F |
1054 |
INI_PARMS |
delR(k) = UNSET_RL |
|
./model/src/ini_parms.F |
1315 |
INI_PARMS |
IF ( delR(k) .NE. UNSET_RL ) rCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1316 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delZ(k) |
|
./model/src/ini_parms.F |
1317 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delP(k) |
|
./model/src/ini_parms.F |
1318 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
278 |
INI_PARMS |
& top_Pres, delZ, delP, delR, delRc, delRFile, delRcFile, |
|
./model/src/ini_vertical_grid.F |
126 |
INI_VERTICAL_GRID |
drC(1) = 0.5 _d 0 *delR(1) |
|
./model/src/ini_vertical_grid.F |
128 |
INI_VERTICAL_GRID |
drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k)) |
|
./model/src/ini_vertical_grid.F |
130 |
INI_VERTICAL_GRID |
drC(Nr+1) = 0.5 _d 0 *delR(Nr) |
|
./model/src/ini_vertical_grid.F |
77 |
INI_VERTICAL_GRID |
drF(k) = delR(k) |
|
./model/src/ini_vertical_grid.F |
81 |
INI_VERTICAL_GRID |
IF (delR(k).LE.0.) THEN |
|
./model/src/ini_vertical_grid.F |
83 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: delR(k=',k,' )=',delR(k) |
|
./verification/dome/code/obcs_calc.F |
80 |
OBCS_CALC |
z(1) = -delR(1)/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
85 |
OBCS_CALC |
z(j) = z(j-1) - delR(j) |
|
./model/src/load_grid_spacing.F |
84 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRFile, ' ', delR, Nr, 1, myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
102 |
CTRL_SET_PACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
201 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
375 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
102 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
133 |
CTRL_SET_UNPACK_XYZ |
print *, 'ph-delznorm ', k, delZnorm, delR(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
212 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
473 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ebm/ebm_load_climatology.F |
62 |
EBM_LOAD_CLIMATOLOGY |
tauMax = 1.0 * 1./(delR(1)*rhonil) |