File indexing completed on 2018-03-02 18:39:44 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
90219e5912 Jean*0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014 INTEGER e2BufrRecSize
0015 PARAMETER ( e2BufrRecSize
0016 & = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr
0017 & )
0018
0019
6e33c64afb Jean*0020 _RL e2Bufr1_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0021 _RL e2Bufr2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0022 _RS e2Bufr1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0023 _RS e2Bufr2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0024 _R4 e2Bufr1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0025 _R4 e2Bufr2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0026 _R8 e2Bufr1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0027 _R8 e2Bufr2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
0028 COMMON /W2_EXCH2_BUF_RL/ e2Bufr1_RL, e2Bufr2_RL
0029 COMMON /W2_EXCH2_BUF_RS/ e2Bufr1_RS, e2Bufr2_RS
0030 COMMON /W2_EXCH2_BUF_R4/ e2Bufr1_R4, e2Bufr2_R4
0031 COMMON /W2_EXCH2_BUF_R8/ e2Bufr1_R8, e2Bufr2_R8
90219e5912 Jean*0032
54d78f5995 Jean*0033
0034
0035
6e33c64afb Jean*0036 INTEGER iBuf1Filled( W2_maxNeighbours, nSx, nSy )
0037 INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy )
54d78f5995 Jean*0038 COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled
0039
90219e5912 Jean*0040