/[MITgcm]/MITgcm/model/src/ini_ffields.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_ffields.F

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

revision 1.1 by jmc, Wed Jan 14 18:40:55 2015 UTC revision 1.2 by jmc, Tue Jan 20 20:46:55 2015 UTC
# Line 108  C-    3-D forcing fields Line 108  C-    3-D forcing fields
108  #ifdef ALLOW_EDDYPSI  #ifdef ALLOW_EDDYPSI
109           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
110            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
111             eddyPsiX(i,j,k,bi,bj) = 0. _d 0             eddyPsiX  (i,j,k,bi,bj) = 0. _d 0
112             eddyPsiY(i,j,k,bi,bj) = 0. _d 0             eddyPsiY  (i,j,k,bi,bj) = 0. _d 0
113               tauxEddy  (i,j,k,bi,bj) = 0. _d 0
114               tauyEddy  (i,j,k,bi,bj) = 0. _d 0
115               uEulerMean(i,j,k,bi,bj) = 0. _d 0
116               vEulerMean(i,j,k,bi,bj) = 0. _d 0
117            ENDDO            ENDDO
118           ENDDO           ENDDO
119  #endif /* ALLOW_EDDYPSI */  #endif /* ALLOW_EDDYPSI */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22