| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
177 |
BULKF_FORMULA_LANL |
tau = rhoa*ustar**2 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
178 |
BULKF_FORMULA_LANL |
tau = tau*us/usm |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
71 |
BULKF_FORMULA_LANL |
_RL tau |
|
./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/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)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1941 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1982 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2000 |
DELEDD |
taup= tau*xx |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2068 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2104 |
SAGPOL |
_RL tau,ssc,g0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2116 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
304 |
SWRIO |
tau(i,j,L) = tautype(i,j,L,1)+tautype(i,j,L,2)+tautype(i,j,L,3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
314 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
327 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
349 |
SWRIO |
taulow(i,j) = taulow(i,j) + tau(i,j,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
368 |
SWRIO |
taumid(i,j) = taumid(i,j) + tau(i,j,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
387 |
SWRIO |
tauhi(i,j) = tauhi(i,j) + tau(i,j,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
418 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
540 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
580 |
OPTHK |
_RL tau(im,jm,lm,3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
593 |
OPTHK |
tau(i,j,L,1) = 0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
594 |
OPTHK |
tau(i,j,L,2) = 0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
595 |
OPTHK |
tau(i,j,L,3) = 0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
613 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
621 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
626 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
631 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
639 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
642 |
OPTHK |
tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
64 |
SWRIO |
_RL tau(im,jm,lm) |
|
./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) |
|
./pkg/exf/exf_bulkformulae.F |
169 |
EXF_BULKFORMULAE |
_RL tau |
|
./pkg/exf/exf_bulkformulae.F |
429 |
EXF_BULKFORMULAE |
tau = atmrho*ustar**2 |
|
./pkg/exf/exf_bulkformulae.F |
430 |
EXF_BULKFORMULAE |
tau = tau*us/sh |
|
./pkg/exf/exf_bulkformulae.F |
443 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau*tstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
444 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
448 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhonil*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
450 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tau*cw |
|
./pkg/exf/exf_bulkformulae.F |
451 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tau*sw |