| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
220 |
TURBIO |
_RL sh(istrip,nlay+1), thv(istrip,nlay+1), pe(istrip,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
495 |
TURBIO |
call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
582 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
587 |
TURBIO |
tmpstrip(i) = sh(i,nlay+1)*1000 |
|
./pkg/fizhi/fizhi_turb.F |
605 |
TURBIO |
thv(i,L) = 1. + virtcon * sh(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
610 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
645 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
667 |
TURBIO |
evpot(i) = transsh(i,nlay) * (shgstr(i) - sh(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
793 |
TURBIO |
I tmpnlay, sh(1,nlay), cd, cosz, pardr, pardf, |
|
./pkg/fizhi/fizhi_turb.F |
953 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
957 |
TURBIO |
sh(i,L) = sh(i,L) + dshdshg(i,L)*(qa(i)-saveqa(i)) |
|
./pkg/fizhi/fizhi_turb.F |
964 |
TURBIO |
stqflux(i,L) = transsh(i,L) * (sh(i,L+1)-sh(i,L)) |
|
./pkg/fizhi/fizhi_turb.F |
996 |
TURBIO |
tends(i) = ( sh(i,l)-tmpstrip(i) ) |
|
./pkg/thsice/thsice_get_exf.F |
237 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
284 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
370 |
THSICE_GET_EXF |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
391 |
THSICE_GET_EXF |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
430 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
129 |
CFC_FIELDS_LOAD |
pisvel(i,j,bi,bj)=(0.31 _d 0*sh(i,j,bi,bj)**2)/3.6 _d 5 |
|
./pkg/exf/EXF_FIELDS.h |
209 |
NO PROCEDURE |
COMMON /exfl_wind_r/ wStress, cw, sw, sh |
|
./pkg/exf/EXF_FIELDS.h |
213 |
NO PROCEDURE |
_RL sh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
308 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
424 |
EXF_BULKFORMULAE |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/exf/exf_bulkformulae.F |
437 |
EXF_BULKFORMULAE |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
515 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
56 |
EXF_INIT |
sh(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_wind.F |
200 |
EXF_WIND |
sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin) |
|
./pkg/exf/exf_wind.F |
84 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |