eesupp/src/lef_zero.F

015b5b0e0a Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: LEF_ZERO
                0005 C     !INTERFACE:
                0006       SUBROUTINE LEF_ZERO( arr ,myThid )
                0007 C     !DESCRIPTION: \bv
                0008 C     This routine simply sets the argument array to zero
                0009 C     \ev
                0010 C     !USES:
                0011       IMPLICIT NONE
                0012 C     === Global variables ===
                0013 #include "SIZE.h"
                0014 #include "EEPARAMS.h"
                0015 C     !INPUT/OUTPUT PARAMETERS:
                0016 C     === Arguments ===
                0017       _RS  arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0018       INTEGER myThid
                0019 C     !LOCAL VARIABLES:
                0020 C     === Local variables ===
                0021       INTEGER i,j,bi,bj
                0022 CEOP
                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