| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/make_phys_grid.F |
140 |
MAKE_PHYS_GRID |
deltap = 0. |
|
./pkg/gridalt/make_phys_grid.F |
144 |
MAKE_PHYS_GRID |
. deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
147 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
152 |
MAKE_PHYS_GRID |
. drF(Lbotij)-deltap)) .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
156 |
MAKE_PHYS_GRID |
. (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
160 |
MAKE_PHYS_GRID |
. (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
162 |
MAKE_PHYS_GRID |
deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
174 |
MAKE_PHYS_GRID |
deltap = 0. |
|
./pkg/gridalt/make_phys_grid.F |
177 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
180 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
186 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
191 |
MAKE_PHYS_GRID |
. (hfacC(i,j,L,bi,bj)*drF(L))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
192 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
196 |
MAKE_PHYS_GRID |
. (hfacC(i,j,L,bi,bj)*drF(L)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
197 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
206 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
209 |
MAKE_PHYS_GRID |
. - deltap |
|
./pkg/gridalt/make_phys_grid.F |
216 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
219 |
MAKE_PHYS_GRID |
. - deltap |
|
./pkg/gridalt/make_phys_grid.F |
70 |
MAKE_PHYS_GRID |
_RL deltap, dpstar_accum |
|
./pkg/thsice/thsice_get_exf.F |
105 |
THSICE_GET_EXF |
_RL deltap(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_exf.F |
209 |
THSICE_GET_EXF |
deltap(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
243 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
282 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/thsice/thsice_get_exf.F |
296 |
THSICE_GET_EXF |
tstar(i,j) = rhn*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
393 |
THSICE_GET_EXF |
tstar(i,j) = rh(i,j)*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
434 |
THSICE_GET_EXF |
hsLocal = atmcp*atmrho*exf_iceCh*wsm*deltap(i,j) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
153 |
BULKF_FORMULA_LANL |
deltap = ta - tsf + gamma_blk*ht |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
162 |
BULKF_FORMULA_LANL |
tstar=rhn*deltap |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
187 |
BULKF_FORMULA_LANL |
tstar = rh*deltap |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
195 |
BULKF_FORMULA_LANL |
fsha = csha*deltap |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
81 |
BULKF_FORMULA_LANL |
_RL deltap ! potential temperature diff [K] |
|
./pkg/cheapaml/cheapaml.F |
292 |
CHEAPAML |
deltap = t - to + gamma_blk*ht |
|
./pkg/cheapaml/cheapaml.F |
301 |
CHEAPAML |
tstar=rhn*deltap |
|
./pkg/cheapaml/cheapaml.F |
327 |
CHEAPAML |
tstar = rh*deltap |
|
./pkg/cheapaml/cheapaml.F |
337 |
CHEAPAML |
fsha = csha*deltap |
|
./pkg/cheapaml/cheapaml.F |
88 |
CHEAPAML |
_RL lath,p0,deltap,delq |
|
./pkg/exf/exf_bulkformulae.F |
189 |
EXF_BULKFORMULAE |
_RL deltap(1:sNx,1:sNy) |
|
./pkg/exf/exf_bulkformulae.F |
275 |
EXF_BULKFORMULAE |
deltap(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
292 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_bulkformulae.F |
299 |
EXF_BULKFORMULAE |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
327 |
EXF_BULKFORMULAE |
tstar(i,j)=rhn*deltap(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
454 |
EXF_BULKFORMULAE |
tstar(i,j) = rh*deltap(i,j) |