File indexing completed on 2018-03-02 18:36:11 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
015b5b0e0a Jean*0001 #include "CPP_EEOPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE LEF_ZERO( arr ,myThid )
0007
0008
0009
0010
0011 IMPLICIT NONE
0012
0013 #include "SIZE.h"
0014 #include "EEPARAMS.h"
0015
0016
0017 _RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0018 INTEGER myThid
0019
0020
0021 INTEGER i,j,bi,bj
0022
0023
0024 DO bj = myByLo(myThid), myByHi(myThid)
0025 DO bi = myBxLo(myThid), myBxHi(myThid)
0026 DO j=1-Oly,sNy+Oly
0027 DO i=1-Olx,sNx+Olx
0028 arr(i,j,bi,bj)=0.
0029 ENDDO
0030 ENDDO
0031 ENDDO
0032 ENDDO
0033
0034 RETURN
0035 END