| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
471 |
TURBIO |
call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
554 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
559 |
TURBIO |
tmpstrip(i) = sh(i,nlay+1)*1000 |
|
./pkg/fizhi/fizhi_turb.F |
577 |
TURBIO |
thv(i,L) = 1. + virtcon * sh(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
582 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
617 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
639 |
TURBIO |
evpot(i) = transsh(i,nlay) * (shgstr(i) - sh(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
765 |
TURBIO |
I tmpnlay, sh(1,nlay), cd, cosz, pardr, pardf, |
|
./pkg/fizhi/fizhi_turb.F |
925 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
929 |
TURBIO |
sh(i,L) = sh(i,L) + dshdshg(i,L)*(qa(i)-saveqa(i)) |
|
./pkg/fizhi/fizhi_turb.F |
936 |
TURBIO |
stqflux(i,L) = transsh(i,L) * (sh(i,L+1)-sh(i,L)) |
|
./pkg/fizhi/fizhi_turb.F |
968 |
TURBIO |
tends(i) = ( sh(i,l)-tmpstrip(i) ) |
|
./pkg/exf/exf_bulkformulae.F |
180 |
EXF_BULKFORMULAE |
_RL sh |
|
./pkg/exf/exf_bulkformulae.F |
287 |
EXF_BULKFORMULAE |
sh = max(us,umin) |
|
./pkg/exf/exf_bulkformulae.F |
330 |
EXF_BULKFORMULAE |
sh = max(us,umin) |
|
./pkg/exf/exf_bulkformulae.F |
355 |
EXF_BULKFORMULAE |
tmpbulk= exf_BulkCdn(sh) |
|
./pkg/exf/exf_bulkformulae.F |
357 |
EXF_BULKFORMULAE |
ustar = rdn*sh |
|
./pkg/exf/exf_bulkformulae.F |
405 |
EXF_BULKFORMULAE |
shn = sh*rd/rdn |
|
./pkg/exf/exf_bulkformulae.F |
426 |
EXF_BULKFORMULAE |
ustar = rd*sh |
|
./pkg/exf/exf_bulkformulae.F |
430 |
EXF_BULKFORMULAE |
tau = tau*us/sh |
|
./pkg/exf/exf_bulkformulae.F |
462 |
EXF_BULKFORMULAE |
tmpbulk= exf_BulkCdn(sh) |