pkg/icefront/icefront_init_varia.F

5da8ce63fa Dimi*0001 #include "ICEFRONT_OPTIONS.h"
                0002
                0003 CBOP
                0004       SUBROUTINE ICEFRONT_INIT_VARIA( myThid )
d9f68388f3 Jean*0005 C     *============================================================*
5da8ce63fa Dimi*0006 C     | SUBROUTINE ICEFRONT_INIT_VARIA                             |
                0007 C     | o Routine to initialize ICEFRONT variables.                |
d9f68388f3 Jean*0008 C     *============================================================*
5da8ce63fa Dimi*0009 C     | Initialize ICEFRONT parameters and variables.              |
d9f68388f3 Jean*0010 C     *============================================================*
5da8ce63fa Dimi*0011       IMPLICIT NONE
                0012
                0013 C     === Global variables ===
                0014 #include "SIZE.h"
                0015 #include "EEPARAMS.h"
                0016 #include "PARAMS.h"
                0017 #include "GRID.h"
                0018 #include "ICEFRONT.h"
                0019
                0020 C     === Routine arguments ===
                0021 C     myThid -  Number of this instance of ICEFRONT_INIT_VARIA
                0022       INTEGER myThid
                0023 CEndOfInterface
                0024
                0025 #ifdef ALLOW_ICEFRONT
                0026 C     === Local variables ===
8126484198 Dimi*0027 C     I,J,K,bi,bj - Loop counters
                0028       INTEGER I, J, K, bi, bj
5da8ce63fa Dimi*0029 CEOP
                0030
                0031       DO bj = myByLo(myThid), myByHi(myThid)
                0032        DO bi = myBxLo(myThid), myBxHi(myThid)
54a885aa34 Dimi*0033         DO K = 1, Nr
d9f68388f3 Jean*0034          DO J = 1, sNy
                0035           DO I = 1, sNx
e5c5488a84 Dimi*0036            icefront_TendT (i,j,k,bi,bj) = 0. _d 0
                0037            icefront_TendS (i,j,k,bi,bj) = 0. _d 0
8126484198 Dimi*0038           ENDDO
5da8ce63fa Dimi*0039          ENDDO
                0040         ENDDO
                0041        ENDDO
                0042       ENDDO
                0043
                0044 #endif /* ALLOW_ICEFRONT */
                0045
                0046       RETURN
                0047       END