/[MITgcm]/MITgcm/pkg/mom_common/mom_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by gforget, Wed Feb 17 00:21:35 2010 UTC revision 1.9 by gforget, Wed Feb 17 23:39:37 2010 UTC
# Line 34  CEOP Line 34  CEOP
34  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
35  C     i,j,k,bi,bj  :: loop counter  C     i,j,k,bi,bj  :: loop counter
36        INTEGER i,j,bi,bj        INTEGER i,j,bi,bj
37  #ifdef NONLIN_FRSURF  #if (defined (NONLIN_FRSURF) || \
38         defined (ALLOW_3D_VISCAH) || \
39         defined (ALLOW_3D_VISCA4))
40        INTEGER k        INTEGER k
41  #endif  #endif
42    
# Line 55  C-    used for side-drag: Line 57  C-    used for side-drag:
57        ENDDO        ENDDO
58  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
59    
60    #if defined (ALLOW_3D_VISCAH) || defined (ALLOW_3D_VISCA4)
61          DO bj=myByLo(myThid), myByHi(myThid)
62           DO bi=myBxLo(myThid), myBxHi(myThid)
63            DO k=1,Nr
64             DO j=1-Oly,sNy+Oly
65              DO i=1-Olx,sNx+Olx
66    #ifdef ALLOW_3D_VISCAH
67               viscAhDfld(i,j,k,bi,bj) = 0. _d 0
68               viscAhZfld(i,j,k,bi,bj) = 0. _d 0
69    #endif
70    #ifdef ALLOW_3D_VISCA4          
71               viscA4Dfld(i,j,k,bi,bj) = 0. _d 0
72               viscA4Zfld(i,j,k,bi,bj) = 0. _d 0
73    #endif          
74              ENDDO
75             ENDDO
76            ENDDO
77           ENDDO
78          ENDDO
79    #endif /* ALLOW_3D_VISCAH */
80    
81         IF (deltaTmom.NE.0.) THEN         IF (deltaTmom.NE.0.) THEN
82          recip_dt = 1. _d 0/deltaTmom          recip_dt = 1. _d 0/deltaTmom
83         ELSE         ELSE
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22