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

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

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

revision 1.1 by jmc, Tue Nov 8 02:13:17 2005 UTC revision 1.2 by baylor, Tue Jun 20 20:57:37 2006 UTC
# Line 49  C        common blocs (even if never use Line 49  C        common blocs (even if never use
49                phi_nh(i,j,k,bi,bj) = 0. _d 0                phi_nh(i,j,k,bi,bj) = 0. _d 0
50                gW   (i,j,k,bi,bj) = 0. _d 0                gW   (i,j,k,bi,bj) = 0. _d 0
51                gWnm1(i,j,k,bi,bj) = 0. _d 0                gWnm1(i,j,k,bi,bj) = 0. _d 0
52    C Set the variable viscosities to default value.
53                  viscAh_W(i,j,k,bi,bj) = viscAhW
54                  viscA4_W(i,j,k,bi,bj) = viscA4W
55              ENDDO              ENDDO
56             ENDDO             ENDDO
57            ENDDO            ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22