| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
189 |
EXF_BULKFORMULAE |
_RL tau (1:sNx,1:sNy) ! surface stress coef = rhoA * Ws * sqrt(Cd) |
|
./pkg/exf/exf_bulkformulae.F |
331 |
EXF_BULKFORMULAE |
tau(i,j) = SQRT(windStress*atmrho_loc(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
335 |
EXF_BULKFORMULAE |
tau(i,j) = SQRT(windStress*atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
351 |
EXF_BULKFORMULAE |
tau (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
451 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
453 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
492 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
493 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
497 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
507 |
EXF_BULKFORMULAE |
tmpbulk = tau(i,j)*rd(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1948 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1989 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./pkg/fizhi/fizhi_swrad.F |
2007 |
DELEDD |
taup= tau*xx |
|
./pkg/fizhi/fizhi_swrad.F |
2075 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./pkg/fizhi/fizhi_swrad.F |
2111 |
SAGPOL |
_RL tau,ssc,g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2123 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./pkg/fizhi/fizhi_swrad.F |
311 |
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 |
321 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
334 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
356 |
SWRIO |
taulow(i,j) = taulow(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
375 |
SWRIO |
taumid(i,j) = taumid(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
394 |
SWRIO |
tauhi(i,j) = tauhi(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
425 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
547 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
587 |
OPTHK |
_RL tau(im,jm,lm,3) |
|
./pkg/fizhi/fizhi_swrad.F |
600 |
OPTHK |
tau(i,j,L,1) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
601 |
OPTHK |
tau(i,j,L,2) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
602 |
OPTHK |
tau(i,j,L,3) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
620 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./pkg/fizhi/fizhi_swrad.F |
628 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
633 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
638 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
646 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
|
./pkg/fizhi/fizhi_swrad.F |
649 |
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/thsice/thsice_get_exf.F |
129 |
THSICE_GET_EXF |
_RL tau ! surface stress coef = rhoA * Ws * sqrt(Cd) |
|
./pkg/thsice/thsice_get_exf.F |
435 |
THSICE_GET_EXF |
tau = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
437 |
THSICE_GET_EXF |
tau = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
439 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*qstar(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
441 |
THSICE_GET_EXF |
hsLocal = atmcp*tau*tstar(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
447 |
THSICE_GET_EXF |
dEvdT(i,j) = (tau*re(i,j))*dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
449 |
THSICE_GET_EXF |
dfshdT = -atmcp*tau*rh(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
468 |
THSICE_GET_EXF |
tau = atmrho_loc(i,j)*exf_iceCe*wsm |
|
./pkg/thsice/thsice_get_exf.F |
470 |
THSICE_GET_EXF |
tau = atmrho*exf_iceCe*wsm |
|
./pkg/thsice/thsice_get_exf.F |
472 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*delq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
487 |
THSICE_GET_EXF |
dEvdT(i,j) = tau*dEvdT(i,j) |
|
./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/cheapaml/cheapaml_coare3_flux.F |
227 |
CHEAPAML_COARE3_FLUX |
tau=rhoa*usr*usr !stress N/m2 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
232 |
CHEAPAML_COARE3_FLUX |
cdu = tau/Du |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
57 |
CHEAPAML_COARE3_FLUX |
_RL tau,L,psu,pst,Bf |
|
./pkg/ebm/EBM.h |
72 |
NO PROCEDURE |
_RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau |
|
./pkg/ebm/EBM.h |
75 |
NO PROCEDURE |
PARAMETER ( htil = 0.8 _d 0 , tau = 5. _d -3) |
|
./pkg/ebm/ebm_atmosphere.F |
197 |
EBM_ATMOSPHERE |
& 1. _d 0/(1. _d 0/De + (5420. _d 0*tau /(T35(no_so)**2))) |
|
./pkg/ebm/ebm_atmosphere.F |
198 |
EBM_ATMOSPHERE |
& -1. _d 0/(1. _d 0/De+5420. _d 0*tau/(T35(no_so)**2) |