pkg/cd_code/cd_code_ini_vars.F

a5bd9cbb61 Ed H*0001 #include "CD_CODE_OPTIONS.h"
                0002
c0d4d5aecc Patr*0003       SUBROUTINE CD_CODE_INI_VARS( myThid )
a5bd9cbb61 Ed H*0004
                0005       IMPLICIT NONE
                0006 C     === Global variables ===
                0007 #include "SIZE.h"
                0008 #include "EEPARAMS.h"
                0009 #include "PARAMS.h"
                0010 #include "CD_CODE_VARS.h"
                0011
                0012 C     == Routine arguments ==
86c9075df5 Jean*0013 C     myThid :: my Thread Id number
a5bd9cbb61 Ed H*0014       INTEGER myThid
                0015
                0016 C     !LOCAL VARIABLES:
                0017 C     == Local variables ==
                0018 C     bi,bj  - Loop counters
                0019 C     I,J,K
                0020       INTEGER bi, bj
86c9075df5 Jean*0021       INTEGER I, J, K
a5bd9cbb61 Ed H*0022 CEOP
                0023
                0024 #ifdef ALLOW_CD_CODE
                0025
                0026 C--   Over all tiles
                0027       DO bj = myByLo(myThid), myByHi(myThid)
                0028        DO bi = myBxLo(myThid), myBxHi(myThid)
                0029
                0030 C-      3D arrays
                0031         DO K=1,Nr
                0032          DO J=1-Oly,sNy+Oly
                0033           DO I=1-Olx,sNx+Olx
                0034            uNM1(I,J,K,bi,bj)=0. _d 0
                0035            vNM1(I,J,K,bi,bj)=0. _d 0
                0036            uVeld(I,J,K,bi,bj)=0. _d 0
                0037            vVeld(I,J,K,bi,bj)=0. _d 0
                0038           ENDDO
                0039          ENDDO
                0040         ENDDO
                0041
                0042 C-      2D arrays
                0043         DO J=1-Oly,sNy+Oly
                0044          DO I=1-Olx,sNx+Olx
                0045           etaNm1(I,J,bi,bj)=0. _d 0
                0046          ENDDO
                0047         ENDDO
                0048
                0049        ENDDO
                0050       ENDDO
                0051
5b187c067b Jean*0052       IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN
86c9075df5 Jean*0053         CALL CD_CODE_READ_PICKUP( nIter0, myThid )
fec605ec61 Jean*0054       ENDIF
                0055
a5bd9cbb61 Ed H*0056 #endif /*  ALLOW_CD_CODE  */
                0057
                0058       RETURN
                0059       END