File |
Line number |
Procedure |
Code |
./model/src/ini_vertical_grid.F |
74 |
INI_VERTICAL_GRID |
IF (delR(K).LE.0.) THEN |
./model/src/ini_vertical_grid.F |
76 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: delR(K=',K,' )=',delR(K) |
./model/src/ini_vertical_grid.F |
88 |
INI_VERTICAL_GRID |
drF(K) = delR(K) |
./model/src/ini_vertical_grid.F |
89 |
INI_VERTICAL_GRID |
rF(K+1) = rF(K) + rkSign*delR(K) |
./model/src/ini_vertical_grid.F |
91 |
INI_VERTICAL_GRID |
drC(1) = delR(1) * 0.5 _d 0 |
./model/src/ini_vertical_grid.F |
92 |
INI_VERTICAL_GRID |
rC(1) = rf(1) + rkSign*delR(1) * 0.5 _d 0 |
./model/src/ini_vertical_grid.F |
94 |
INI_VERTICAL_GRID |
drC(K) = 0.5 _d 0 *(delR(K-1)+delR(K)) |
./pkg/ebm/ebm_load_climatology.F |
56 |
EBM_LOAD_CLIMATOLOGY |
tauMax = 1.0 * 1./(delR(1)*rhonil) |
./verification/dome/code/obcs_calc.F |
75 |
OBCS_CALC |
z(1) = -delR(1)/2.0 |
./verification/dome/code/obcs_calc.F |
80 |
OBCS_CALC |
z(j) = z(j-1) - delR(j) |
./model/src/ini_parms.F |
1092 |
INI_PARMS |
IF ( delR(K) .NE. UNSET_RL ) rCoordInputData = .TRUE. |
./model/src/ini_parms.F |
1093 |
INI_PARMS |
IF ( delR(K) .EQ. UNSET_RL ) delR(K) = delZ(K) |
./model/src/ini_parms.F |
1094 |
INI_PARMS |
IF ( delR(K) .EQ. UNSET_RL ) delR(K) = delP(K) |
./model/src/ini_parms.F |
1095 |
INI_PARMS |
IF ( delR(K) .EQ. UNSET_RL ) delR(K) = delRDefault(K) |
./model/src/ini_parms.F |
1096 |
INI_PARMS |
IF (.NOT.setCenterDr .AND. delR(K).EQ.delRDefault(K) ) THEN |
./model/src/ini_parms.F |
1101 |
INI_PARMS |
ELSEIF ( setCenterDr .AND. delR(K).NE.delRDefault(K) ) THEN |
./model/src/ini_parms.F |
212 |
INI_PARMS |
& delP, delR, rkFac, Ro_SeaLevel, groundAtK1, delRc, |
./model/src/ini_parms.F |
887 |
INI_PARMS |
delR(K) = UNSET_RL |
./model/inc/PARAMS.h |
573 |
NO PROCEDURE |
& delR, delRc, delX, delY, |
./model/inc/PARAMS.h |
614 |
NO PROCEDURE |
_RL delR(Nr) |
./pkg/kpp/kpp_readparms.F |
74 |
KPP_READPARMS |
minKPPhbl = delR(1)*0.5 |
./pkg/ctrl/ctrl_obcsvol.F |
188 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
189 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
224 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
225 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
261 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
297 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
346 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
347 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
382 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
383 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
419 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
455 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_getobcsw.F |
153 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcsw.F |
161 |
CTRL_GETOBCSW |
& - utop / delR(1) |
./pkg/ctrl/ctrl_getobcsw.F |
188 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcsw.F |
196 |
CTRL_GETOBCSW |
& - utop / delR(1) |
./pkg/ctrl/ctrl_getobcsw.F |
274 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcsw.F |
282 |
CTRL_GETOBCSW |
& - utop / delR(1) |
./pkg/ctrl/ctrl_getobcsw.F |
309 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcsw.F |
317 |
CTRL_GETOBCSW |
& - utop / delR(1) |
./pkg/ctrl/ctrl_getobcse.F |
153 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcse.F |
161 |
CTRL_GETOBCSE |
& - utop / delR(1) |
./pkg/ctrl/ctrl_getobcse.F |
188 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcse.F |
196 |
CTRL_GETOBCSE |
& - utop / delR(1) |
./pkg/ctrl/ctrl_getobcse.F |
271 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcse.F |
279 |
CTRL_GETOBCSE |
& - utop / delR(1) |
./pkg/ctrl/ctrl_getobcse.F |
306 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
./pkg/ctrl/ctrl_getobcse.F |
314 |
CTRL_GETOBCSE |
& - utop / delR(1) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
125 |
CTRL_SET_UNPACK_XYZ |
print *, 'ph-delznorm ', k, delZnorm, delR(k) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
186 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delR(1)/delR(k) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
96 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
./pkg/ctrl/ctrl_volflux.F |
196 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
200 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
245 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
250 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
300 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
306 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
363 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
371 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
375 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
176 |
CTRL_SET_PACK_XYZ |
delZnorm = delR(1)/delR(k) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
95 |
CTRL_SET_PACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
./pkg/ctrl/ctrl_getobcss.F |
154 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcss.F |
162 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
./pkg/ctrl/ctrl_getobcss.F |
190 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcss.F |
198 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
./pkg/ctrl/ctrl_getobcss.F |
273 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcss.F |
281 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
./pkg/ctrl/ctrl_getobcss.F |
309 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcss.F |
317 |
CTRL_GETOBCSS |
& - vtop / delR(1) |
./pkg/ctrl/ctrl_getobcsn.F |
165 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcsn.F |
173 |
CTRL_GETOBCSN |
& - vtop / delR(1) |
./pkg/ctrl/ctrl_getobcsn.F |
203 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcsn.F |
211 |
CTRL_GETOBCSN |
& - vtop / delR(1) |
./pkg/ctrl/ctrl_getobcsn.F |
296 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcsn.F |
304 |
CTRL_GETOBCSN |
& - vtop / delR(1) |
./pkg/ctrl/ctrl_getobcsn.F |
333 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
./pkg/ctrl/ctrl_getobcsn.F |
341 |
CTRL_GETOBCSN |
& - vtop / delR(1) |