| Symbol | Description | Uses |
| phi | Temp. for accumulating sum | 40 |
| File | Line number | Procedure | Code |
| ./eesupp/src/gsum_jam.F | 42 | GLOBAL_SUM_R8_JAM |
Real*8 phi |
| ./eesupp/src/gsum_jam.F | 45 | GLOBAL_SUM_R8_JAM |
phi = ans |
| ./eesupp/src/gsum_jam.F | 48 | GLOBAL_SUM_R8_JAM |
CALL MPI_ALLREDUCE( phi, |
| ./eesupp/src/gsum_jam.F | 60 | GLOBAL_SUM_R8_JAM |
CALL JAM_BARRIER_START( phi ) |
| ./pkg/fizhi/fizhi_fillnegs.F | 119 | TRACER_FILL |
phi(1) = -pi/2. |
| ./pkg/fizhi/fizhi_fillnegs.F | 121 | TRACER_FILL |
phi(j) = phi(j-1) + dphi(j-1) |
| ./pkg/fizhi/fizhi_fillnegs.F | 123 | TRACER_FILL |
phi(jm) = pi/2. |
| ./pkg/fizhi/fizhi_fillnegs.F | 129 | TRACER_FILL |
dxu(i,j) = a*cos(phi(j))*dlam(i) |
| ./pkg/fizhi/fizhi_fillnegs.F | 90 | TRACER_FILL |
_RL lam(im), phi(jm) |