pkg/down_slope/dwnslp_init_varia.F

b6bbe8cccf Jean*0001 #include "DWNSLP_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: DWNSLP_INIT_VARIA
                0005 C     !INTERFACE:
                0006       SUBROUTINE DWNSLP_INIT_VARIA( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE DWNSLP_INIT_VARIA
                0011 C     | o Initialize Down_Slope variables
                0012 C     *==========================================================*
                0013 C     \ev
                0014
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
                0021 c#include "PARAMS.h"
                0022 #include "DWNSLP_SIZE.h"
                0023 #include "DWNSLP_PARAMS.h"
                0024 #include "DWNSLP_VARS.h"
                0025
                0026
                0027 C     !INPUT/OUTPUT PARAMETERS:
                0028 C     === Routine arguments ===
                0029 C     myThid    :: my Thread Id number
                0030       INTEGER myThid
                0031 CEOP
                0032
                0033 C     !LOCAL VARIABLES:
                0034 C     === Local variables ===
0884a363a5 Jean*0035 C     msgBuf     :: Informational/error message buffer
b6bbe8cccf Jean*0036 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0037       INTEGER n, bi, bj
                0038
                0039 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0040
                0041
                0042       DO bj = myByLo(myThid), myByHi(myThid)
                0043        DO bi = myBxLo(myThid), myBxHi(myThid)
                0044
                0045 C     Initialize arrays in common blocks :
                0046         DO n=1,DWNSLP_size
                0047           DWNSLP_deepK (n,bi,bj) = 0
                0048           DWNSLP_Transp(n,bi,bj) = 0. _d 0
                0049         ENDDO
                0050
                0051        ENDDO
                0052       ENDDO
                0053
                0054       RETURN
                0055       END