File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
464 |
TILE |
IF(SWET1(ChNo).LT.1.E-10) SWET1(CHNO) = 0.0 |
./pkg/fizhi/fizhi_lsm.F |
465 |
TILE |
IF(SWET2(ChNo).LT.1.E-10) SWET2(CHNO) = 0.0 |
./pkg/fizhi/fizhi_lsm.F |
466 |
TILE |
IF(SWET3(ChNo).LT.1.E-10) SWET3(CHNO) = 0.0 |
./pkg/fizhi/fizhi_lsm.F |
467 |
TILE |
IF(CAPAC(ChNo).LT.1.E-10) CAPAC(CHNO) = 0.0 |
./pkg/fizhi/fizhi_lsm.F |
468 |
TILE |
IF(SNOW (ChNo).LT.1.E-10) SNOW (CHNO) = 0.0 |
./pkg/fizhi/fizhi_lsm.F |
469 |
TILE |
IF(RUNOFF(ChNo).LT.1.E-10) RUNOFF(CHNO) = 0.0 |
./pkg/showflops/showflops_init.F |
64 |
SHOWFLOPS_INIT |
$ /(real_time + 1E-36) |
./pkg/showflops/showflops_init.F |
70 |
SHOWFLOPS_INIT |
$ /(real_time + 1E-36) |
./pkg/showflops/showflops_inloop.F |
81 |
SHOWFLOPS_INLOOP |
$ mflops, ' ', mflops*proc_time/(real_time + 1E-36), |
./pkg/showflops/showflops_inloop.F |
87 |
SHOWFLOPS_INLOOP |
$ ipc, ' ', ipc*proc_time/(real_time + 1E-36), |
./pkg/showflops/showflops_insolve.F |
79 |
SHOWFLOPS_INSOLVE |
$ *proc_time/(real_time + 1E-36) |
./pkg/showflops/showflops_insolve.F |
85 |
SHOWFLOPS_INSOLVE |
$ /(real_time + 1E-36) |
./pkg/sphere/sphere.F |
315 |
SHC2ZONE |
REAL A, B, E, F, Q, DA, DB, XLAT |
./pkg/sphere/sphere.F |
333 |
SHC2ZONE |
E = 0.0 |
./pkg/sphere/sphere.F |
343 |
SHC2ZONE |
E = E+DA |
./pkg/sphere/sphere.F |
352 |
SHC2ZONE |
E = E-DA |
./pkg/sphere/sphere.F |
363 |
SHC2ZONE |
E = E+DA |
./pkg/sphere/sphere.F |
368 |
SHC2ZONE |
HN(1) = E |
./pkg/sphere/sphere.F |
372 |
SHC2ZONE |
HN(M+M ) = E |