pkg/oasim/oasim_init_varia.F

87dd4f7d5f Oliv*0001 #include "OASIM_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: OASIM_INIT_VARIA
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE OASIM_INIT_VARIA( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize OASIM variables
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
                0016 #include "SIZE.h"
                0017 #include "OASIM_SIZE.h"
                0018 #include "OASIM_FIELDS.h"
                0019
                0020 C     !INPUT/OUTPUT PARAMETERS:
                0021 C     myThid ::  my Thread Id number
                0022       INTEGER myThid
                0023 CEOP
                0024
                0025 #ifdef ALLOW_OASIM
                0026
                0027 C     !LOCAL VARIABLES:
                0028 C     === Local variables ===
                0029       INTEGER i,j,k,bi,bj,l
                0030
                0031 C     Initialize arrays in common blocks :
                0032       DO bj=myByLo(myThid),myByHi(myThid)
                0033        DO bi=myBxLo(myThid),myBxHi(myThid)
                0034         DO j=1,sNy
                0035          DO i=1,sNx
                0036           OASIM_solz(i,j,bi,bj) = 0. _d 0
                0037           OASIM_rmud(i,j,bi,bj) = 0. _d 0
                0038          ENDDO
                0039         ENDDO
                0040        ENDDO
                0041       ENDDO
                0042
                0043       DO l=1,nlt
                0044        DO bj=myByLo(myThid),myByHi(myThid)
                0045         DO bi=myBxLo(myThid),myBxHi(myThid)
                0046          DO j=1,sNy
                0047           DO i=1,sNx
                0048            OASIM_Edabove(i,j,bi,bj,l) = 0. _d 0
                0049            OASIM_Esabove(i,j,bi,bj,l) = 0. _d 0
                0050            OASIM_Edbelow(i,j,bi,bj,l) = 0. _d 0
                0051            OASIM_Esbelow(i,j,bi,bj,l) = 0. _d 0
                0052           ENDDO
                0053          ENDDO
                0054         ENDDO
                0055        ENDDO
                0056       ENDDO
                0057
                0058 #ifndef OASIM_READ_UNFORMATTED
                0059       CALL OASIM_EXF_INIT_VARIA(myThid)
                0060 #endif
                0061
                0062 #endif /* ALLOW_OASIM */
                0063
                0064       RETURN
                0065       END