C--------------------------------------------------------------
C THIS SECTION OF CODE INITIALIZES TO ZERO ALL 
C ARRAYS IN THE COMMON BLOCK 'comblk.h' AND IN 
C THE MAIN PROGRAM    
C---------------------------------------------------------------
C INITIALIZE THE ONE DIMENSIONAL VERTICAL ARRAYS IN COMMON/BLK1D/ 
      DO  K=1,KB
      DZR(K)=0.0
      Z(K)  =0.0
      ZZ(K) =0.0
      DZ(K) =0.0
      DZZ(K)=0.0
      ENDDO  
C---------------------------------------------------------------
C INITIALIZE THE TWO DIMENSIONAL ARRAYS IN COMMON/BLK2D/  
      DO  J=1,JM
      DO  I=1,IM
      H(I,J)        =0.0 
      DX(I,J)       =0.0
      DY(I,J)       =0.0
      D(I,J)        =0.0
      DT(I,J)       =0.0
      ART(I,J)      =0.0
      ARU(I,J)      =0.0
      ARV(I,J)      =0.0
      CBC(I,J)      =0.0
      ALON(I,J)     =0.0
      ALAT(I,J)     =0.0
      DUM(I,J)      =0.0
      DVM(I,J)      =0.0
      FSM(I,J)      =0.0
      COR(I,J)      =0.0
      WUSURF(I,J)   =0.0
      WVSURF(I,J)   =0.0
      WUBOT(I,J)    =0.0
      WVBOT(I,J)    =0.0
      WTSURF(I,J)   =0.0 
      WSSURF(I,J)   =0.0 
      TPS(I,J)      =0.0
      AAM2D(I,J)    =0.0
      UAF(I,J)      =0.0
      UA(I,J)       =0.0
      UAB(I,J)      =0.0  
      VAF(I,J)      =0.0
      VA(I,J)       =0.0
      VAB(I,J)      =0.0
      ELF(I,J)      =0.0
      EL(I,J)       =0.0
      ELB(I,J)      =0.0
      PSI(I,J)      =0.0
      ETF(I,J)      =0.0
      ET(I,J)       =0.0
      ETB(I,J)      =0.0
      FLUXUA(I,J)   =0.0
      FLUXVA(I,J)   =0.0
      EGF(I,J)      =0.0
      EGB(I,J)      =0.0  
C ARRAYS DECLARED IN MAIN PROGRAM 
      UTB(I,J)      =0.0
      VTB(I,J)      =0.0 
      UTF(I,J)      =0.0
      VTF(I,J)      =0.0 
      ADVUA(I,J)    =0.0
      ADVVA(I,J)    =0.0 
      TRNU(I,J)     =0.0
      TRNV(I,J)     =0.0
      ADVUU(I,J)    =0.0
      ADVVV(I,J)    =0.0
      TSURF(I,J)    =0.0
      SSURF(I,J)    =0.0 
      SWRAD(I,J)    =0.0  
      ENDDO
      ENDDO  
C------------------------------------------------------------------
C INITIALIZE THE THREE DIMENSIONAL ARRAYS IN COMMON/BLK3D/    
      DO  K=1,KB
      DO  J=1,JM
      DO  I=1,IM
      A(I,J,K)      =0.0
      C(I,J,K)      =0.0
      EE(I,J,K)     =0.0 
      GG(I,J,K)     =0.0 
      UF(I,J,K)     =0.0 
      VF(I,J,K)     =0.0
      KM(I,J,K)     =0.0
      KH(I,J,K)     =0.0  
      KQ(I,J,K)     =0.0  
      L(I,J,K)      =0.0
      Q2(I,J,K)     =0.0
      Q2B(I,J,K)    =0.0
      AAM(I,J,K)    =0.0
      Q2L(I,J,K)    =0.0 
      Q2LB(I,J,K)   =0.0 
      U(I,J,K)      =0.0
      UB(I,J,K)     =0.0
      W(I,J,K)      =0.0 
      V(I,J,K)      =0.0 
      VB(I,J,K)     =0.0 
      T(I,J,K)      =0.0 
      TB(I,J,K)     =0.0 
      S(I,J,K)      =0.0 
      SB(I,J,K)     =0.0 
      RHO(I,J,K)    =0.0 
      DTEF(I,J,K)   =0.0 
      RMEAN(I,J,K)  =0.0 
C ARRAYS DECLARED IN MAIN PROGRAM  
      TMEAN(I,J,K)  =0.0
      SMEAN(I,J,K)  =0.0 
      DRHOX(I,J,K)  =0.0
      DRHOY(I,J,K)  =0.0  
      ADVX(I,J,K)   =0.0
      ADVY(I,J,K)   =0.0 
      ENDDO
      ENDDO
      ENDDO  
C---------------------------------------------------------------
C INITIALIZE THE ARRAYS IN COMMON/BNDRY/ 
      DO  K=1,KB
      DO  J=1,JM
      TBE(J,K)      =0.0
      SBE(J,K)      =0.0
      ENDDO 
      ENDDO  
C          
      DO  K=1,KB
      DO  I=1,IM
      TBN(I,K)      =0.0
      TBS(I,K)      =0.0
      SBN(I,K)      =0.0  
      SBS(I,K)      =0.0   
      ENDDO
      ENDDO  
C
      DO  I=1,IM 
      VABN(I)       =0.0
      VABS(I)       =0.0 
      ELN(I)        =0.0
      ELS(I)        =0.0
      COVRHN(I)     =0.0
      ENDDO  
C  
      DO  J=1,JM 
      UABE(J)       =0.0 
      ELE(J)        =0.0 
      COVRHE(J)     =0.0 
      ENDDO   
C END OF SECTION OF CODE FOR INITIALIZATION  
C------------------------------------------------------------------