| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
716 |
NO PROCEDURE |
& delR, delRc, delX, delY, |
|
./model/inc/PARAMS.h |
763 |
NO PROCEDURE |
_RL delR(Nr) |
|
./verification/dome/code/obcs_calc.F |
75 |
OBCS_CALC |
z(1) = -delR(1)/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
80 |
OBCS_CALC |
z(j) = z(j-1) - delR(j) |
|
./model/src/ini_parms.F |
1168 |
INI_PARMS |
IF ( delR(k) .NE. UNSET_RL ) rCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1169 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delZ(k) |
|
./model/src/ini_parms.F |
1170 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delP(k) |
|
./model/src/ini_parms.F |
1171 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
249 |
INI_PARMS |
& Ro_SeaLevel, delZ, delP, delR, delRc, delRFile, delRcFile, |
|
./model/src/ini_parms.F |
972 |
INI_PARMS |
delR(k) = UNSET_RL |
|
./model/src/ini_vertical_grid.F |
122 |
INI_VERTICAL_GRID |
drC(1) = 0.5 _d 0 *delR(1) |
|
./model/src/ini_vertical_grid.F |
124 |
INI_VERTICAL_GRID |
drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k)) |
|
./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) |
|
./model/src/load_grid_spacing.F |
65 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRFile, ' ', delR, Nr, 1, myThid ) |
|
./pkg/ctrl/ctrl_getobcse.F |
155 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
163 |
CTRL_GETOBCSE |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_getobcse.F |
190 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
198 |
CTRL_GETOBCSE |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
281 |
CTRL_GETOBCSE |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_getobcse.F |
308 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
316 |
CTRL_GETOBCSE |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
175 |
CTRL_GETOBCSN |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsn.F |
205 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
213 |
CTRL_GETOBCSN |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsn.F |
298 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
306 |
CTRL_GETOBCSN |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsn.F |
335 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
343 |
CTRL_GETOBCSN |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcss.F |
156 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
164 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcss.F |
192 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
200 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcss.F |
275 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
283 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcss.F |
311 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
319 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsw.F |
155 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
163 |
CTRL_GETOBCSW |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsw.F |
190 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
198 |
CTRL_GETOBCSW |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
284 |
CTRL_GETOBCSW |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_getobcsw.F |
311 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
319 |
CTRL_GETOBCSW |
& - utop / delR(1) |
|
./pkg/ctrl/ctrl_obcsvol.F |
190 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
191 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
226 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
227 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
262 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
263 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
298 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
299 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
348 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
349 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
384 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
385 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
420 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
421 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
456 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
457 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
181 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
342 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
99 |
CTRL_SET_PACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
100 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
129 |
CTRL_SET_UNPACK_XYZ |
print *, 'ph-delznorm ', k, delZnorm, delR(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
191 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
439 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_volflux.F |
198 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
202 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
247 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
252 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
302 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
308 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
365 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
373 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
377 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ebm/ebm_load_climatology.F |
50 |
EBM_LOAD_CLIMATOLOGY |
tauMax = 1.0 * 1./(delR(1)*rhonil) |