| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
193 |
EXF_BULKFORMULAE |
_RL deltap(1:sNx,1:sNy) |
|
./pkg/exf/exf_bulkformulae.F |
283 |
EXF_BULKFORMULAE |
deltap(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
307 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_bulkformulae.F |
314 |
EXF_BULKFORMULAE |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
343 |
EXF_BULKFORMULAE |
tstar(i,j)=rhn*deltap(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
467 |
EXF_BULKFORMULAE |
tstar(i,j) = rh*deltap(i,j) |
|
./pkg/gridalt/make_phys_grid.F |
141 |
MAKE_PHYS_GRID |
deltap = 0. |
|
./pkg/gridalt/make_phys_grid.F |
145 |
MAKE_PHYS_GRID |
& deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
148 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
153 |
MAKE_PHYS_GRID |
& drF(Lbotij)-deltap)) .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
157 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
161 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
163 |
MAKE_PHYS_GRID |
deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
175 |
MAKE_PHYS_GRID |
deltap = 0. |
|
./pkg/gridalt/make_phys_grid.F |
178 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
181 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
187 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
192 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
193 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
197 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
198 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
207 |
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 |
210 |
MAKE_PHYS_GRID |
& - deltap |
|
./pkg/gridalt/make_phys_grid.F |
217 |
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 |
220 |
MAKE_PHYS_GRID |
& - deltap |
|
./pkg/gridalt/make_phys_grid.F |
71 |
MAKE_PHYS_GRID |
_RL deltap, dpstar_accum |
|
./pkg/thsice/thsice_get_exf.F |
109 |
THSICE_GET_EXF |
_RL deltap(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_exf.F |
197 |
THSICE_GET_EXF |
deltap(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
257 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
309 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/thsice/thsice_get_exf.F |
323 |
THSICE_GET_EXF |
tstar(i,j) = rhn*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
423 |
THSICE_GET_EXF |
tstar(i,j) = rh(i,j)*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
476 |
THSICE_GET_EXF |
& *exf_iceCh*wsm*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
478 |
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_lanl_flux.F |
149 |
CHEAPAML_LANL_FLUX |
deltap = t - to + gamma_blk*(zref-ht) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
160 |
CHEAPAML_LANL_FLUX |
tstar=rhn*deltap |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
186 |
CHEAPAML_LANL_FLUX |
tstar = rh*deltap |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
193 |
CHEAPAML_LANL_FLUX |
fsha = csha*deltap |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
67 |
CHEAPAML_LANL_FLUX |
_RL deltap, delq, pt, psx100, z100ol |