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