Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:40:51 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
e0b3e1bdd8 Dimi*0001 #include "FRAZIL_OPTIONS.h"
                0002 
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: FRAZIL_INIT_VARIA
                0006 
                0007 C !INTERFACE:
                0008       SUBROUTINE FRAZIL_INIT_VARIA( myThid )
                0009 
                0010 C     !DESCRIPTION:
                0011 C     Initialize FRAZIL variables
                0012 
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
33e5e9881a Dimi*0016 #include "SIZE.h"
                0017 #ifdef ALLOW_FRAZIL
                0018 # include "FRAZIL.h"
                0019 #endif
e0b3e1bdd8 Dimi*0020 
                0021 C     !INPUT/OUTPUT PARAMETERS:
33e5e9881a Dimi*0022 C     myThid :: my Thread Id number
e0b3e1bdd8 Dimi*0023       INTEGER myThid
                0024 CEOP
                0025 
                0026 #ifdef ALLOW_FRAZIL
                0027 
                0028 C     !LOCAL VARIABLES:
                0029       INTEGER i,j,k,bi,bj
                0030 
33e5e9881a Dimi*0031 C     Initialize arrays in common blocks :
e0b3e1bdd8 Dimi*0032       DO bj = myByLo(myThid), myByHi(myThid)
                0033        DO bi = myBxLo(myThid), myBxHi(myThid)
                0034         DO k=1,Nr
                0035          DO j=1-Oly,sNy+OLy
                0036           DO i=1-Olx,sNx+Olx
610e3cd50d Dimi*0037            FrazilForcingT(i,j,k,bi,bj) = 0. _d 0
e0b3e1bdd8 Dimi*0038           ENDDO
                0039          ENDDO
                0040         ENDDO
                0041        ENDDO
                0042       ENDDO
                0043 
                0044 #endif /* ALLOW_FRAZIL */
                0045 
                0046       RETURN
                0047       END