| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS_GRID.h |
52 |
NO PROCEDURE |
& OBCS_insideMask |
|
./pkg/obcs/OBCS_GRID.h |
53 |
NO PROCEDURE |
_RS OBCS_insideMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_init_fixed.F |
100 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
109 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
121 |
OBCS_INIT_FIXED |
CALL READ_FLD_XY_RS( insideOBmaskFile, ' ', OBCS_insideMask, |
|
./pkg/obcs/obcs_init_fixed.F |
128 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).NE.0. ) |
|
./pkg/obcs/obcs_init_fixed.F |
129 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) = 1. |
|
./pkg/obcs/obcs_init_fixed.F |
139 |
OBCS_INIT_FIXED |
_EXCH_XY_RS( OBCS_insideMask, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
149 |
OBCS_INIT_FIXED |
& *MAX( OBCS_insideMask(i-1,j,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
150 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
152 |
OBCS_INIT_FIXED |
& *MAX( OBCS_insideMask(i,j-1,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
153 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
179 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
180 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i-1,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
202 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
203 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
225 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
226 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j-1,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
248 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
249 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
296 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
315 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
334 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
353 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
371 |
OBCS_INIT_FIXED |
& *OBCS_insideMask(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
62 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 1. |
|
./pkg/obcs/obcs_init_fixed.F |
80 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
89 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_calc_psivel.F |
117 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i,j,bi,bj).EQ.1. |
|
./pkg/diagnostics/diag_calc_psivel.F |
138 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i,j-1,bi,bj).EQ.1. .OR. |
|
./pkg/diagnostics/diag_calc_psivel.F |
139 |
DIAG_CALC_PSIVEL |
& OBCS_insideMask(i, j ,bi,bj).EQ.1. ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
157 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i-1,j,bi,bj).EQ.1. .OR. |
|
./pkg/diagnostics/diag_calc_psivel.F |
158 |
DIAG_CALC_PSIVEL |
& OBCS_insideMask( i ,j,bi,bj).EQ.1. ) THEN |
|
./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 |
71 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1, j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
72 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask( i ,j-1,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
73 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1,j-1,bi,bj).EQ.oneRS |