File indexing completed on 2018-03-02 18:41:47 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
4e66ab0b67 Oliv*0001 #include "LONGSTEP_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE LONGSTEP_FILL_3D(
0007 U lsCnt, lsFld,
0008 I fld, myNr, myThid)
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018 IMPLICIT NONE
0019
0020 #include "SIZE.h"
0021 #include "EEPARAMS.h"
0022 #include "PARAMS.h"
0023 #include "GRID.h"
0024
0025
0026
0027
0028
0029
0030
0031
af5eb09265 Jean*0032 INTEGER myNr
4e66ab0b67 Oliv*0033 _RL lsFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
0034 _RL Fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
7b3defa94d Jean*0035 INTEGER lsCnt(nSx,nSy)
4e66ab0b67 Oliv*0036 INTEGER myThid
0037
0038 #ifdef ALLOW_LONGSTEP
0039
0040
0041 INTEGER i,j,k,bi,bj
0042
0043
0044 DO bj=myByLo(myThid), myByHi(myThid)
0045 DO bi=myBxLo(myThid), myBxHi(myThid)
7b3defa94d Jean*0046 lsCnt(bi,bj) = lsCnt(bi,bj) + 1
4e66ab0b67 Oliv*0047 DO k = 1,myNr
0048 DO j = 1-OLy,sNy+OLy
0049 DO i = 1-OLx,sNx+OLx
0050 lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj)
0051 ENDDO
0052 ENDDO
0053 ENDDO
0054 ENDDO
0055 ENDDO
0056 #endif /* ALLOW_LONGSTEP */
0057
0058 RETURN
0059 END
0060