File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
475 |
MOISTIO |
tmp2(i,1) = TH(i,NSUBCL) * PLKE(i,NSUBCL)/P0KAPPA |
./pkg/fizhi/fizhi_moist.F |
477 |
MOISTIO |
tmp2(i,2) = tmp4(i,nsubcl) |
./pkg/fizhi/fizhi_moist.F |
481 |
MOISTIO |
call QSAT (tmp2(i,1),tmp2(i,2),tmp2(i,3),dum,.false.) |
./pkg/fizhi/fizhi_moist.F |
482 |
MOISTIO |
rh = SHL(I,NSUBCL) / tmp2(i,3) |
./pkg/land/land_impl_temp.F |
180 |
LAND_IMPL_TEMP |
tmp2 = tg(2) |
./pkg/land/land_impl_temp.F |
202 |
LAND_IMPL_TEMP |
& tmp2,(tmp1+alpha*fLoc)*beta |
./pkg/land/land_impl_temp.F |
86 |
LAND_IMPL_TEMP |
_RL tmp1, tmp2 |
./eesupp/src/global_vec_sum.F |
133 |
GLOBAL_VEC_SUM_R8 |
Real*8 tmp1(nval), tmp2(nval) |
./eesupp/src/global_vec_sum.F |
141 |
GLOBAL_VEC_SUM_R8 |
tmp2(i) = 0. _d 0 |
./eesupp/src/global_vec_sum.F |
158 |
GLOBAL_VEC_SUM_R8 |
tmp2(i) = tmp1(i) |
./eesupp/src/global_vec_sum.F |
166 |
GLOBAL_VEC_SUM_R8 |
CALL MPI_ALLREDUCE(tmp1,tmp2,nval,MPI_DOUBLE_PRECISION, |
./eesupp/src/global_vec_sum.F |
175 |
GLOBAL_VEC_SUM_R8 |
sumPhi( i, 1,1 ) = tmp2(i) |
./eesupp/src/global_vec_sum.F |
219 |
GLOBAL_VEC_SUM_INT |
INTEGER tmp1(nval), tmp2(nval) |
./eesupp/src/global_vec_sum.F |
228 |
GLOBAL_VEC_SUM_INT |
tmp2(i) = 0. _d 0 |
./eesupp/src/global_vec_sum.F |
245 |
GLOBAL_VEC_SUM_INT |
tmp2(i) = tmp1(i) |
./eesupp/src/global_vec_sum.F |
253 |
GLOBAL_VEC_SUM_INT |
CALL MPI_ALLREDUCE(tmp1,tmp2,nval,MPI_INTEGER, |
./eesupp/src/global_vec_sum.F |
262 |
GLOBAL_VEC_SUM_INT |
sumPhi( i, 1,1 ) = tmp2(i) |
./eesupp/src/global_vec_sum.F |
47 |
GLOBAL_VEC_SUM_R4 |
Real*4 tmp1(nval), tmp2(nval) |
./eesupp/src/global_vec_sum.F |
55 |
GLOBAL_VEC_SUM_R4 |
tmp2(i) = 0. _d 0 |
./eesupp/src/global_vec_sum.F |
72 |
GLOBAL_VEC_SUM_R4 |
tmp2(i) = tmp1(i) |
./eesupp/src/global_vec_sum.F |
80 |
GLOBAL_VEC_SUM_R4 |
CALL MPI_ALLREDUCE(tmp1,tmp2,nval,MPI_REAL, |
./eesupp/src/global_vec_sum.F |
89 |
GLOBAL_VEC_SUM_R4 |
sumPhi( i, 1,1 ) = tmp2(i) |
./pkg/cal/cal_timeinterval.F |
60 |
CAL_TIMEINTERVAL |
_RL tmp1, tmp2 |
./pkg/cal/cal_timeinterval.F |
73 |
CAL_TIMEINTERVAL |
tmp2 = secondsperday |
./pkg/cal/cal_timeinterval.F |
74 |
CAL_TIMEINTERVAL |
nsecs = int(timeint - tmp1 * tmp2 ) |
./lsopt/instore.F |
45 |
INSTORE |
tmp2 = isize |
./lsopt/instore.F |
46 |
INSTORE |
rectmp = tmp1*tmp2 |
./lsopt/instore.F |
9 |
INSTORE |
integer*8 rectmp, tmp1, tmp2 |
./pkg/exf/exf_wind.F |
160 |
EXF_WIND |
tmp2 = SQRT(tmp1*tmp1 + ustar*ustar/cquadrag_1) |
./pkg/exf/exf_wind.F |
161 |
EXF_WIND |
wsLoc(i,j) = SQRT(tmp1 + tmp2) |
./pkg/exf/exf_wind.F |
164 |
EXF_WIND |
tmp2 = ustar*ustar/clindrag_1*exf_half |
./pkg/exf/exf_wind.F |
169 |
EXF_WIND |
tmp4 = (tmp2 + tmp3)**oneThirdRL |
./pkg/exf/exf_wind.F |
52 |
EXF_WIND |
_RL tmp1, tmp2, tmp3, tmp4 |