pkg/frazil/frazil_init_varia.F

e0b3e1bdd8 Dimi*0001 #include "FRAZIL_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: FRAZIL_INIT_VARIA
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE FRAZIL_INIT_VARIA( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize FRAZIL variables
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
33e5e9881a Dimi*0016 #include "SIZE.h"
                0017 #ifdef ALLOW_FRAZIL
                0018 # include "FRAZIL.h"
                0019 #endif
e0b3e1bdd8 Dimi*0020
                0021 C     !INPUT/OUTPUT PARAMETERS:
33e5e9881a Dimi*0022 C     myThid :: my Thread Id number
e0b3e1bdd8 Dimi*0023       INTEGER myThid
                0024 CEOP
                0025
                0026 #ifdef ALLOW_FRAZIL
                0027
                0028 C     !LOCAL VARIABLES:
                0029       INTEGER i,j,k,bi,bj
                0030
33e5e9881a Dimi*0031 C     Initialize arrays in common blocks :
e0b3e1bdd8 Dimi*0032       DO bj = myByLo(myThid), myByHi(myThid)
                0033        DO bi = myBxLo(myThid), myBxHi(myThid)
                0034         DO k=1,Nr
                0035          DO j=1-Oly,sNy+OLy
                0036           DO i=1-Olx,sNx+Olx
610e3cd50d Dimi*0037            FrazilForcingT(i,j,k,bi,bj) = 0. _d 0
e0b3e1bdd8 Dimi*0038           ENDDO
                0039          ENDDO
                0040         ENDDO
                0041        ENDDO
                0042       ENDDO
                0043
                0044 #endif /* ALLOW_FRAZIL */
                0045
                0046       RETURN
                0047       END