Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:39:16 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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