| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diag_calc_psivel.F |
107 |
DIAG_CALC_PSIVEL |
kPsi(i,j) = .FALSE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
128 |
DIAG_CALC_PSIVEL |
kPsi(is,js) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
140 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. .NOT.kPsi(i+1,j) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
142 |
DIAG_CALC_PSIVEL |
kPsi(i+1,j) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
146 |
DIAG_CALC_PSIVEL |
IF ( .NOT.kPsi(i,j) .AND. kPsi(i+1,j) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
148 |
DIAG_CALC_PSIVEL |
kPsi(i,j) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
159 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. .NOT.kPsi(i,j+1) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
161 |
DIAG_CALC_PSIVEL |
kPsi(i,j+1) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
165 |
DIAG_CALC_PSIVEL |
IF ( .NOT.kPsi(i,j) .AND. kPsi(i,j+1) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
167 |
DIAG_CALC_PSIVEL |
kPsi(i,j) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
188 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. jx.EQ.0 ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
199 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. iy.EQ.0 ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
75 |
DIAG_CALC_PSIVEL |
LOGICAL kPsi(1:sNx+1,1:sNy+1) |