| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
231 |
NO PROCEDURE |
COMMON /exfl_wind_r/ wStress, cw, sw, sh |
|
./pkg/exf/EXF_FIELDS.h |
235 |
NO PROCEDURE |
_RL sh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
321 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
435 |
EXF_BULKFORMULAE |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/exf/exf_bulkformulae.F |
448 |
EXF_BULKFORMULAE |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
52 |
EXF_INIT_VARIA |
sh(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_wind.F |
100 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
248 |
EXF_WIND |
sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin) |
|
./pkg/exf/exf_wind.F |
260 |
EXF_WIND |
wsm = sh(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_turb.F |
216 |
TURBIO |
_RL sh(istrip,nlay+1), thv(istrip,nlay+1), pe(istrip,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
444 |
TURBIO |
call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
531 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
536 |
TURBIO |
tmpstrip(i) = sh(i,nlay+1)*1000 |
|
./pkg/fizhi/fizhi_turb.F |
554 |
TURBIO |
thv(i,L) = 1. + virtcon * sh(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
559 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
594 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
616 |
TURBIO |
evpot(i) = transsh(i,nlay) * (shgstr(i) - sh(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
742 |
TURBIO |
I tmpnlay, sh(1,nlay), cd, cosz, pardr, pardf, |
|
./pkg/fizhi/fizhi_turb.F |
861 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
865 |
TURBIO |
sh(i,L) = sh(i,L) + dshdshg(i,L)*(qa(i)-saveqa(i)) |
|
./pkg/fizhi/fizhi_turb.F |
872 |
TURBIO |
stqflux(i,L) = transsh(i,L) * (sh(i,L+1)-sh(i,L)) |
|
./pkg/fizhi/fizhi_turb.F |
904 |
TURBIO |
tends(i) = ( sh(i,l)-tmpstrip(i) ) |
|
./pkg/thsice/thsice_get_exf.F |
244 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
311 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
400 |
THSICE_GET_EXF |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
421 |
THSICE_GET_EXF |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
466 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
174 |
CFC_FIELDS_LOAD |
locWind(i,j) = sh(i,j,bi,bj) |