| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
641 |
MOISTIO |
TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
646 |
MOISTIO |
TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv |
|
./pkg/exf/exf_interp.F |
12 |
NO PROCEDURE |
real*8 function lagran(i,x,a,sp) |
|
./pkg/exf/exf_interp.F |
14 |
NO PROCEDURE |
INTEGER i,k,sp |
|
./pkg/exf/exf_interp.F |
174 |
EXF_INTERP |
sp = 2 |
|
./pkg/exf/exf_interp.F |
184 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
186 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
188 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
195 |
EXF_INTERP |
sp = 4 |
|
./pkg/exf/exf_interp.F |
206 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
208 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
210 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
212 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
214 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
22 |
NO PROCEDURE |
do k=1,sp |
|
./pkg/exf/exf_interp.F |
82 |
EXF_INTERP |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./pkg/exf/exf_interp_read.F |
64 |
EXF_INTERP_READ |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./pkg/exf/exf_getffieldrec.F |
245 |
EXF_GETFFIELDREC |
call CAL_CONVDATE( previousdate,yp,mp,dp,sp,lp,wp,mythid ) |
|
./pkg/exf/exf_getffieldrec.F |
95 |
EXF_GETFFIELDREC |
integer si,sf,sp,sn |