/[MITgcm]/MITgcm/pkg/ggl90/ggl90_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_init_varia.F

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

revision 1.5 by jmc, Sun Jan 3 18:48:53 2010 UTC revision 1.6 by gforget, Mon Aug 9 20:34:03 2010 UTC
# Line 37  C-      3D arrays Line 37  C-      3D arrays
37  c        Km1 = MAX(K-1,1)  c        Km1 = MAX(K-1,1)
38           DO J=1-Oly,sNy+Oly           DO J=1-Oly,sNy+Oly
39            DO I=1-Olx,sNx+Olx            DO I=1-Olx,sNx+Olx
40               GGL90viscArU(I,J,K,bi,bj) = 0. _d 0
41               GGL90viscArV(I,J,K,bi,bj) = 0. _d 0
42               GGL90diffKr(I,J,K,bi,bj)  = 0. _d 0
43  CML           GGL90TKE(I,J,K,bi,bj)=0. _d 0  CML           GGL90TKE(I,J,K,bi,bj)=0. _d 0
44             GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj)             GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj)
45  C  C
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22