model/src/taueddy_init_varia.F

f9bac5a287 Patr*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: TAUEDDY_INIT_VARIA
                0005 C     !INTERFACE:
                0006       SUBROUTINE TAUEDDY_INIT_VARIA( myThid )
                0007 C     !DESCRIPTION: \bv
                0008 C     *==========================================================*
bfb39e7f7b Jean*0009 C     | SUBROUTINE TAUEDDY_INIT_VARIA
                0010 C     | o Initialise to zero some active arrays
f9bac5a287 Patr*0011 C     *==========================================================*
                0012 C     \ev
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016 C     === Global variables ===
                0017 #include "SIZE.h"
                0018 #include "EEPARAMS.h"
                0019 #include "PARAMS.h"
                0020 #include "FFIELDS.h"
                0021
                0022 C     !INPUT/OUTPUT PARAMETERS:
                0023 C     == Routine arguments ==
bfb39e7f7b Jean*0024 C     myThid :: my Thread Id number
f9bac5a287 Patr*0025       INTEGER myThid
                0026
43af9695da Gael*0027 #ifdef ALLOW_EDDYPSI
f9bac5a287 Patr*0028
                0029 C     !LOCAL VARIABLES:
                0030 C     == Local variables ==
                0031 C     bi,bj  - Loop counters
bfb39e7f7b Jean*0032 C     i,j,k
f9bac5a287 Patr*0033       INTEGER bi, bj
bfb39e7f7b Jean*0034       INTEGER i, j, k
f9bac5a287 Patr*0035 CEOP
                0036
                0037 C--   Over all tiles
                0038       DO bj = myByLo(myThid), myByHi(myThid)
                0039        DO bi = myBxLo(myThid), myBxHi(myThid)
bfb39e7f7b Jean*0040         DO k=1,Nr
                0041          DO j=1-Oly,sNy+Oly
                0042           DO i=1-Olx,sNx+Olx
43af9695da Gael*0043            eddyPsiX(i,j,k,bi,bj)=0.
                0044            eddyPsiY(i,j,k,bi,bj)=0.
f9bac5a287 Patr*0045           ENDDO
                0046          ENDDO
                0047         ENDDO
                0048        ENDDO
                0049       ENDDO
                0050
a1a48682a7 Davi*0051       IF ( eddyPsiXFile .NE. ' ' ) THEN
bfb39e7f7b Jean*0052        CALL READ_FLD_XYZ_RS( eddyPsiXFile, ' ',
                0053      &                       eddyPsiX, nIter0, myThid )
f9bac5a287 Patr*0054       ENDIF
a1a48682a7 Davi*0055       IF ( eddyPsiYFile .NE. ' ' ) THEN
bfb39e7f7b Jean*0056        CALL READ_FLD_XYZ_RS( eddyPsiYFile, ' ',
                0057      &                       eddyPsiY, nIter0, myThid )
f9bac5a287 Patr*0058       ENDIF
                0059
43af9695da Gael*0060       CALL EXCH_UV_XYZ_RS(eddyPsiX,eddyPsiY,.TRUE.,myThid)
f9bac5a287 Patr*0061
bfb39e7f7b Jean*0062 #endif /* ALLOW_EDDYPSI */
f9bac5a287 Patr*0063
bfb39e7f7b Jean*0064       RETURN
f9bac5a287 Patr*0065       END