| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_wind.F |
183 |
EXF_WIND |
tmp1 = -cquadrag_2/cquadrag_1*exf_half |
|
./pkg/exf/exf_wind.F |
184 |
EXF_WIND |
tmp2 = SQRT(tmp1*tmp1 + ustar*ustar/cquadrag_1) |
|
./pkg/exf/exf_wind.F |
185 |
EXF_WIND |
wsLoc(i,j) = SQRT(tmp1 + tmp2) |
|
./pkg/exf/exf_wind.F |
187 |
EXF_WIND |
tmp1 = clindrag_2/clindrag_1*oneThirdRL |
|
./pkg/exf/exf_wind.F |
189 |
EXF_WIND |
& - tmp1*tmp1*tmp1 |
|
./pkg/exf/exf_wind.F |
191 |
EXF_WIND |
& (ustar*ustar/clindrag_1*0.25 _d 0 - tmp1*tmp1*tmp1 ) |
|
./pkg/exf/exf_wind.F |
194 |
EXF_WIND |
wsLoc(i,j) = tmp4 + tmp1*tmp1 / tmp4 - tmp1 |
|
./pkg/exf/exf_wind.F |
63 |
EXF_WIND |
_RL tmp1, tmp2, tmp3, tmp4 |
|
./pkg/fizhi/fizhi_moist.F |
679 |
MOISTIO |
call PASTE(tmp1(1,L),deltrnev(1,L),istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
684 |
MOISTIO |
call PASTE(tmp1(1,L),delqrnev(1,L),istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
722 |
MOISTIO |
tmp1(i,1) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
723 |
MOISTIO |
tmp1(i,2) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
724 |
MOISTIO |
tmp1(i,3) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
729 |
MOISTIO |
tmp1(i,1) = PRECIP(I) |
|
./pkg/fizhi/fizhi_moist.F |
730 |
MOISTIO |
tmp1(i,2) = pcnet(i) |
|
./pkg/fizhi/fizhi_moist.F |
749 |
MOISTIO |
tmp1(i,3) = prep(i) |
|
./pkg/fizhi/fizhi_moist.F |
750 |
MOISTIO |
tmp1(i,1)=0.0 |
|
./pkg/fizhi/fizhi_moist.F |
751 |
MOISTIO |
tmp1(i,2)=0.0 |
|
./pkg/fizhi/fizhi_moist.F |
755 |
MOISTIO |
CALL PASTE (tmp1(1,1), lsp_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
756 |
MOISTIO |
CALL PASTE (tmp1(1,2),conv_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
757 |
MOISTIO |
CALL PASTE (tmp1(1,3),snow_new,ISTRIP,im*jm,1,NN) |
|
./pkg/land/land_impl_temp.F |
179 |
LAND_IMPL_TEMP |
tmp1 = tg(1) |
|
./pkg/land/land_impl_temp.F |
202 |
LAND_IMPL_TEMP |
& tmp2,(tmp1+alpha*fLoc)*beta |
|
./pkg/land/land_impl_temp.F |
225 |
LAND_IMPL_TEMP |
tmp1 = tg(1) |
|
./pkg/land/land_impl_temp.F |
255 |
LAND_IMPL_TEMP |
& tmp1,(tmp1+alpha*fLoc)*beta |
|
./pkg/land/land_impl_temp.F |
86 |
LAND_IMPL_TEMP |
_RL tmp1, tmp2 |
|
./eesupp/src/global_vec_sum.F |
128 |
GLOBAL_VEC_SUM_R8 |
Real*8 tmp1(nval), tmp2(nval) |
|
./eesupp/src/global_vec_sum.F |
138 |
GLOBAL_VEC_SUM_R8 |
tmp1(i) = 0. |
|
./eesupp/src/global_vec_sum.F |
143 |
GLOBAL_VEC_SUM_R8 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
152 |
GLOBAL_VEC_SUM_R8 |
CALL MPI_ALLREDUCE(tmp1,tmp2,nval,MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_vec_sum.F |
164 |
GLOBAL_VEC_SUM_R8 |
sumPhi( i, 1,1 ) = tmp1(i) |
|
./eesupp/src/global_vec_sum.F |
210 |
GLOBAL_VEC_SUM_INT |
INTEGER tmp1(nval), tmp2(nval) |
|
./eesupp/src/global_vec_sum.F |
220 |
GLOBAL_VEC_SUM_INT |
tmp1(i) = 0 |
|
./eesupp/src/global_vec_sum.F |
225 |
GLOBAL_VEC_SUM_INT |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
234 |
GLOBAL_VEC_SUM_INT |
CALL MPI_ALLREDUCE(tmp1,tmp2,nval,MPI_INTEGER, |
|
./eesupp/src/global_vec_sum.F |
246 |
GLOBAL_VEC_SUM_INT |
sumPhi( i, 1,1 ) = tmp1(i) |
|
./eesupp/src/global_vec_sum.F |
46 |
GLOBAL_VEC_SUM_R4 |
Real*4 tmp1(nval), tmp2(nval) |
|
./eesupp/src/global_vec_sum.F |
56 |
GLOBAL_VEC_SUM_R4 |
tmp1(i) = 0. |
|
./eesupp/src/global_vec_sum.F |
61 |
GLOBAL_VEC_SUM_R4 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
70 |
GLOBAL_VEC_SUM_R4 |
CALL MPI_ALLREDUCE(tmp1,tmp2,nval,MPI_REAL, |
|
./eesupp/src/global_vec_sum.F |
82 |
GLOBAL_VEC_SUM_R4 |
sumPhi( i, 1,1 ) = tmp1(i) |
|
./pkg/cal/cal_timeinterval.F |
51 |
CAL_TIMEINTERVAL |
_RL tmp1, tmp2 |
|
./pkg/cal/cal_timeinterval.F |
72 |
CAL_TIMEINTERVAL |
tmp1 = date(1) |
|
./pkg/cal/cal_timeinterval.F |
74 |
CAL_TIMEINTERVAL |
nsecs = int(timeint - tmp1 * tmp2 ) |
|
./lsopt/instore.F |
44 |
INSTORE |
tmp1 = n |
|
./lsopt/instore.F |
46 |
INSTORE |
rectmp = tmp1*tmp2 |
|
./lsopt/instore.F |
9 |
INSTORE |
integer*8 rectmp, tmp1, tmp2 |