| 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) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
118 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.EQ.d2Min .AND. kPsi(i,j,bi,bj) ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
45 |
DIAGNOSTICS_SET_CALC |
LOGICAL kPsi(1:sNx+1,1:sNy+1,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
64 |
DIAGNOSTICS_SET_CALC |
kPsi(i,j,bi,bj) = .TRUE. |
|
./pkg/diagnostics/diagnostics_set_calc.F |
70 |
DIAGNOSTICS_SET_CALC |
kPsi(i,j,bi,bj) = OBCS_insideMask( i , j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
91 |
DIAGNOSTICS_SET_CALC |
& .AND. kPsi(i,j,bi,bj) ) d2Min = d2Loc |