pkg/offline/offline_init_varia.F

f90ac18778 Jean*0001 #include "OFFLINE_OPTIONS.h"
287934f0f1 Patr*0002
                0003 C !INTERFACE: ==========================================================
                0004       SUBROUTINE OFFLINE_INIT_VARIA( myThid )
                0005
                0006 C !DESCRIPTION:
                0007 C calls subroutines that initializes variables for offline code
                0008
                0009 C !USES: ===============================================================
                0010       IMPLICIT NONE
                0011 #include "SIZE.h"
                0012 #include "GRID.h"
                0013 #include "EEPARAMS.h"
                0014 #include "PARAMS.h"
                0015 #include "OFFLINE.h"
                0016
                0017 C !INPUT PARAMETERS: ===================================================
                0018 C  myThid               :: thread number
                0019       INTEGER myThid
                0020 CEOP
                0021
                0022 C     !LOCAL VARIABLES:
                0023 C     i,j,k,bi,bj  :: loop indices
                0024       INTEGER i,j,k,bi,bj
                0025
                0026       DO bj = myByLo(myThid), myByHi(myThid)
a35ff864fe Jean*0027        DO bi = myBxLo(myThid), myBxHi(myThid)
                0028          offlineLdRec(bi,bj) = 0
                0029          offline_Wght(1,bi,bj) = 0. _d 0
                0030          offline_Wght(2,bi,bj) = 0. _d 0
                0031          DO k=1,Nr
5f1a0ddae6 Jean*0032           DO j=1-OLy,sNy+OLy
a35ff864fe Jean*0033            DO i=1-OLx,sNx+OLx
                0034              uvel0(i,j,k,bi,bj) = 0. _d 0
                0035              uvel1(i,j,k,bi,bj) = 0. _d 0
                0036              vvel0(i,j,k,bi,bj) = 0. _d 0
                0037              vvel1(i,j,k,bi,bj) = 0. _d 0
                0038              wvel0(i,j,k,bi,bj) = 0. _d 0
                0039              wvel1(i,j,k,bi,bj) = 0. _d 0
                0040              tave0(i,j,k,bi,bj) = 0. _d 0
                0041              tave1(i,j,k,bi,bj) = 0. _d 0
                0042              save0(i,j,k,bi,bj) = 0. _d 0
                0043              save1(i,j,k,bi,bj) = 0. _d 0
                0044              gmkx0(i,j,k,bi,bj) = 0. _d 0
                0045              gmkx1(i,j,k,bi,bj) = 0. _d 0
                0046              gmky0(i,j,k,bi,bj) = 0. _d 0
                0047              gmky1(i,j,k,bi,bj) = 0. _d 0
                0048              gmkz0(i,j,k,bi,bj) = 0. _d 0
                0049              gmkz1(i,j,k,bi,bj) = 0. _d 0
                0050              conv0(i,j,k,bi,bj) = 0. _d 0
                0051              conv1(i,j,k,bi,bj) = 0. _d 0
                0052              kdfs0(i,j,k,bi,bj) = 0. _d 0
                0053              kdfs1(i,j,k,bi,bj) = 0. _d 0
                0054              kght0(i,j,k,bi,bj) = 0. _d 0
                0055              kght1(i,j,k,bi,bj) = 0. _d 0
                0056            ENDDO
89b07f6f87 Patr*0057           ENDDO
a35ff864fe Jean*0058          ENDDO
                0059          DO j=1-OLy,sNy+OLy
                0060            DO i=1-OLx,sNx+OLx
                0061 c            hflx0(i,j,bi,bj) = 0. _d 0
                0062 c            hflx1(i,j,bi,bj) = 0. _d 0
                0063              sflx0(i,j,bi,bj) = 0. _d 0
                0064              sflx1(i,j,bi,bj) = 0. _d 0
                0065 c            icem0(i,j,bi,bj) = 0. _d 0
                0066 c            icem1(i,j,bi,bj) = 0. _d 0
                0067            ENDDO
                0068          ENDDO
                0069 C--   end bi,bj loops.
                0070        ENDDO
287934f0f1 Patr*0071       ENDDO
                0072
efce9746c4 Jean*0073 C     Load offline fields from files (for beginning of first time-step)
                0074       CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid )
5f1a0ddae6 Jean*0075
287934f0f1 Patr*0076       RETURN
                0077       END