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

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

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

revision 1.25 by m_bates, Sun Sep 15 14:28:31 2013 UTC revision 1.27 by jmc, Tue Jan 20 20:46:55 2015 UTC
# Line 51  C-      3D arrays Line 51  C-      3D arrays
51             uVel (i,j,k,bi,bj) = 0. _d 0             uVel (i,j,k,bi,bj) = 0. _d 0
52             vVel (i,j,k,bi,bj) = 0. _d 0             vVel (i,j,k,bi,bj) = 0. _d 0
53             wVel (i,j,k,bi,bj) = 0. _d 0             wVel (i,j,k,bi,bj) = 0. _d 0
 #ifdef ALLOW_EDDYPSI  
            uMean(i,j,k,bi,bj) = 0. _d 0  
            vMean(i,j,k,bi,bj) = 0. _d 0  
 #endif  
54             theta(i,j,k,bi,bj) = 0. _d 0             theta(i,j,k,bi,bj) = 0. _d 0
55             salt (i,j,k,bi,bj) = 0. _d 0             salt (i,j,k,bi,bj) = 0. _d 0
56    
57             gU(i,j,k,bi,bj) = 0. _d 0             gU(i,j,k,bi,bj) = 0. _d 0
58             gV(i,j,k,bi,bj) = 0. _d 0             gV(i,j,k,bi,bj) = 0. _d 0
59    #ifdef USE_OLD_EXTERNAL_FORCING
60             gT(i,j,k,bi,bj) = 0. _d 0             gT(i,j,k,bi,bj) = 0. _d 0
61             gS(i,j,k,bi,bj) = 0. _d 0             gS(i,j,k,bi,bj) = 0. _d 0
62    #endif
63  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
64             guNm(i,j,k,bi,bj,1) = 0. _d 0             guNm(i,j,k,bi,bj,1) = 0. _d 0
65             gvNm(i,j,k,bi,bj,1) = 0. _d 0             gvNm(i,j,k,bi,bj,1) = 0. _d 0
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22