** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Wed, 10 Sep 2024 05:11:47 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/cd_code/cd_code_ini_vars.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:38:17 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!