File |
Line number |
Procedure |
Code |
./eesupp/src/fill_cs_corner_uv_rs.F |
127 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i ) |
./eesupp/src/fill_cs_corner_uv_rs.F |
133 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i ) |
./eesupp/src/fill_cs_corner_uv_rs.F |
172 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i ) |
./eesupp/src/fill_cs_corner_uv_rs.F |
178 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i ) |
./eesupp/src/fill_cs_corner_uv_rs.F |
63 |
FILL_CS_CORNER_UV_RS |
_RL negOne |
./eesupp/src/fill_cs_corner_uv_rs.F |
68 |
FILL_CS_CORNER_UV_RS |
negOne = 1. _d 0 |
./eesupp/src/fill_cs_corner_uv_rs.F |
69 |
FILL_CS_CORNER_UV_RS |
IF (withSigns) negOne = -1. _d 0 |