| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
470 |
TURBIO |
call STRIP2TILE(tz,igrd,th,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
483 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
553 |
TURBIO |
th(i,nlay+1) = th(i,nlay+1) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
578 |
TURBIO |
thv(i,L) = th(i,L) * thv(i,L) |
|
./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 |
653 |
TURBIO |
tmpnlay(i) = th(i,nlay)*pk(i,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
916 |
TURBIO |
th(i,nlay+1) = tc(i) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
920 |
TURBIO |
th(i,L) = th(i,L) + dthdthg(i,L)*(tc(i)-savetc(i))/pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
935 |
TURBIO |
sttflux(i,L) = transth(i,L) * (th(i,L+1)-th(i,L)) |
|
./pkg/fizhi/fizhi_turb.F |
960 |
TURBIO |
tends(i) = ( th(i,l)-tmpstrip(i) ) |