45 |
C myTime :: Current time in simulation |
C myTime :: Current time in simulation |
46 |
C myIter :: Current iteration number in simulation |
C myIter :: Current iteration number in simulation |
47 |
C myThid :: Thread number for this instance of SHAP_FILT_TRACER_S2 |
C myThid :: Thread number for this instance of SHAP_FILT_TRACER_S2 |
48 |
|
INTEGER kSize |
49 |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
50 |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
51 |
INTEGER nShapTr, exchInOut, kSize |
INTEGER nShapTr, exchInOut |
52 |
_RL myTime |
_RL myTime |
53 |
INTEGER myIter |
INTEGER myIter |
54 |
INTEGER myThid |
INTEGER myThid |