| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
178 |
EBM_ATMOSPHERE |
< 1/(1/De + (5420*tau /(T35(no_so)**2))) |
|
./pkg/ebm/ebm_atmosphere.F |
179 |
EBM_ATMOSPHERE |
< - 1/(1/De+5420*tau/(T35(no_so)**2)+1/dz)) |
|
./pkg/ebm/EBM.h |
70 |
NO PROCEDURE |
_RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau |
|
./pkg/ebm/EBM.h |
72 |
NO PROCEDURE |
& Tw = 300., At = 3., dz = 450., htil = 0.8, tau = 5.e-3) |
|
./pkg/exf/exf_bulkformulae.F |
167 |
EXF_BULKFORMULAE |
_RL tau |
|
./pkg/exf/exf_bulkformulae.F |
326 |
EXF_BULKFORMULAE |
tau = atmrho*ustar**2 |
|
./pkg/exf/exf_bulkformulae.F |
327 |
EXF_BULKFORMULAE |
tau = tau*us(i,j,bi,bj)/sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
340 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau*tstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
341 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
345 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhonil*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
347 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tau*cw(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
348 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tau*sw(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
102 |
BULKF_FORMULA_LANL |
_RL tau ! surface stress coef = ? |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
190 |
BULKF_FORMULA_LANL |
tau = rhoa*ustar**2 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
191 |
BULKF_FORMULA_LANL |
tau = tau*us/usm |
|
./pkg/bulk_force/bulkf_formula_lay.F |
113 |
BULKF_FORMULA_LAY |
_RL tau ! surface stress coef = rhoA * Ws * Cd |
|
./pkg/bulk_force/bulkf_formula_lay.F |
228 |
BULKF_FORMULA_LAY |
tau = rhoA*rd*ws |
|
./pkg/bulk_force/bulkf_formula_lay.F |
229 |
BULKF_FORMULA_LAY |
csha = cpAir*tau*rh |
|
./pkg/bulk_force/bulkf_formula_lay.F |
230 |
BULKF_FORMULA_LAY |
clha = lath*tau*re |
|
./pkg/bulk_force/bulkf_formula_lay.F |
236 |
BULKF_FORMULA_LAY |
ust = tau*rd*uw |
|
./pkg/bulk_force/bulkf_formula_lay.F |
237 |
BULKF_FORMULA_LAY |
vst = tau*rd*vw |
|
./pkg/bulk_force/bulkf_formula_lay.F |
240 |
BULKF_FORMULA_LAY |
dEvdT = tau*re*ssq*dEvdT/Ts2 |
|
./pkg/fizhi/fizhi_swrad.F |
1940 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1981 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./pkg/fizhi/fizhi_swrad.F |
1999 |
DELEDD |
taup= tau*xx |
|
./pkg/fizhi/fizhi_swrad.F |
2067 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./pkg/fizhi/fizhi_swrad.F |
2103 |
SAGPOL |
_RL tau,ssc,g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2115 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./pkg/fizhi/fizhi_swrad.F |
303 |
SWRIO |
tau(i,j,L) = tautype(i,j,L,1)+tautype(i,j,L,2)+tautype(i,j,L,3) |
|
./pkg/fizhi/fizhi_swrad.F |
313 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
326 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
348 |
SWRIO |
taulow(i,j) = taulow(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
367 |
SWRIO |
taumid(i,j) = taumid(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
386 |
SWRIO |
tauhi(i,j) = tauhi(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
417 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
539 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
579 |
OPTHK |
_RL tau(im,jm,lm,3) |
|
./pkg/fizhi/fizhi_swrad.F |
592 |
OPTHK |
tau(i,j,L,1) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
593 |
OPTHK |
tau(i,j,L,2) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
594 |
OPTHK |
tau(i,j,L,3) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
612 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./pkg/fizhi/fizhi_swrad.F |
620 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
625 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
630 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
638 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
|
./pkg/fizhi/fizhi_swrad.F |
641 |
OPTHK |
tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp |
|
./pkg/fizhi/fizhi_swrad.F |
64 |
SWRIO |
_RL tau(im,jm,lm) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1940 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1981 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1999 |
DELEDD |
taup= tau*xx |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2067 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2103 |
SAGPOL |
_RL tau,ssc,g0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2115 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
303 |
SWRIO |
tau(i,j,L) = tautype(i,j,L,1)+tautype(i,j,L,2)+tautype(i,j,L,3) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
313 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
326 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
348 |
SWRIO |
taulow(i,j) = taulow(i,j) + tau(i,j,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
367 |
SWRIO |
taumid(i,j) = taumid(i,j) + tau(i,j,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
386 |
SWRIO |
tauhi(i,j) = tauhi(i,j) + tau(i,j,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
417 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
539 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
579 |
OPTHK |
_RL tau(im,jm,lm,3) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
592 |
OPTHK |
tau(i,j,L,1) = 0.0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
593 |
OPTHK |
tau(i,j,L,2) = 0.0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
594 |
OPTHK |
tau(i,j,L,3) = 0.0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
612 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
620 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
625 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
630 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
638 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
641 |
OPTHK |
tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
64 |
SWRIO |
_RL tau(im,jm,lm) |
|
./pkg/thsice/thsice_get_exf.F |
214 |
THSICE_GET_EXF |
tau = atmrho*ustar**2 |
|
./pkg/thsice/thsice_get_exf.F |
215 |
THSICE_GET_EXF |
tau = tau*us(i,j,bi,bj)/sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
217 |
THSICE_GET_EXF |
evapLoc = -tau*qstar/ustar |
|
./pkg/thsice/thsice_get_exf.F |
219 |
THSICE_GET_EXF |
hsLocal = atmcp*tau*tstar/ustar |
|
./pkg/thsice/thsice_get_exf.F |
228 |
THSICE_GET_EXF |
dEvdT = (tau*re/ustar)*ssq*dEvdT/Ts2 |
|
./pkg/thsice/thsice_get_exf.F |
230 |
THSICE_GET_EXF |
dfshdT = -atmcp*tau*rh/ustar |
|
./pkg/thsice/thsice_get_exf.F |
89 |
THSICE_GET_EXF |
_RL tau |