36 |
C bi,bj :: Tile index |
C bi,bj :: Tile index |
37 |
C iRec :: reccord number in the output file |
C iRec :: reccord number in the output file |
38 |
C myIter :: Current iteration number in simulation |
C myIter :: Current iteration number in simulation |
39 |
C myThid :: Thread number for this instance of the routine |
C myThid :: my Thread Id number |
40 |
CHARACTER*(*) pref, suff |
CHARACTER*(*) pref, suff |
41 |
INTEGER nNr |
INTEGER nNr |
42 |
_RL field(sNx,sNy,nNr,MAX_NO_THREADS) |
_RL field(sNx,sNy,nNr,MAX_NO_THREADS) |
54 |
INTEGER iL |
INTEGER iL |
55 |
INTEGER i, j, k, Katm, nLoc |
INTEGER i, j, k, Katm, nLoc |
56 |
INTEGER ith, biLoc, bjLoc |
INTEGER ith, biLoc, bjLoc |
|
|
|
57 |
CEOP |
CEOP |
58 |
|
|
59 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
128 |
ENDDO |
ENDDO |
129 |
ENDIF |
ENDIF |
130 |
|
|
131 |
C-- Write to file: |
C-- Write to file: note: call with myThArg=0 => single thread job |
132 |
CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld, |
CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld, |
133 |
& biLoc, bjLoc, iRec, myIter, myThid ) |
& biLoc, bjLoc, iRec, myIter, 0 ) |
134 |
|
|
135 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
136 |
|
|