| File |
Line number |
Procedure |
Code |
|
./model/src/add_walls2masks.F |
112 |
ADD_WALLS2MASKS |
IF ( tmpFldW(i,j,bi,bj).EQ.oneRS ) THEN |
|
./model/src/add_walls2masks.F |
43 |
ADD_WALLS2MASKS |
_RS tmpFldW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/add_walls2masks.F |
58 |
ADD_WALLS2MASKS |
tmpFldW(i,j,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
65 |
ADD_WALLS2MASKS |
CALL READ_FLD_XY_RS( addWwallFile, ' ', tmpFldW, 0, myThid ) |
|
./model/src/add_walls2masks.F |
70 |
ADD_WALLS2MASKS |
CALL EXCH_UV_XY_RS( tmpFldW, tmpFldS, .FALSE., myThid ) |