/[MITgcm]/MITgcm/pkg/offline/offline_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/offline/offline_init_varia.F

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

revision 1.1 by heimbach, Thu Oct 8 19:43:03 2009 UTC revision 1.2 by heimbach, Sat Oct 10 21:28:20 2009 UTC
# Line 37  C     i,j,k,bi,bj  :: loop indices Line 37  C     i,j,k,bi,bj  :: loop indices
37                   uvel0(i,j,k,bi,bj) = 0. _d 0                   uvel0(i,j,k,bi,bj) = 0. _d 0
38                   vvel0(i,j,k,bi,bj) = 0. _d 0                   vvel0(i,j,k,bi,bj) = 0. _d 0
39                   wvel0(i,j,k,bi,bj) = 0. _d 0                   wvel0(i,j,k,bi,bj) = 0. _d 0
40                     conv0(i,j,k,bi,bj) = 0. _d 0
41                     gmkx0(i,j,k,bi,bj) = 0. _d 0
42                     gmky0(i,j,k,bi,bj) = 0. _d 0
43                     gmkz0(i,j,k,bi,bj) = 0. _d 0
44  c  c
45                   save1(i,j,k,bi,bj) = 0. _d 0                   save1(i,j,k,bi,bj) = 0. _d 0
46                   tave1(i,j,k,bi,bj) = 0. _d 0                   tave1(i,j,k,bi,bj) = 0. _d 0
47                   uvel1(i,j,k,bi,bj) = 0. _d 0                   uvel1(i,j,k,bi,bj) = 0. _d 0
48                   vvel1(i,j,k,bi,bj) = 0. _d 0                   vvel1(i,j,k,bi,bj) = 0. _d 0
49                   wvel1(i,j,k,bi,bj) = 0. _d 0                   wvel1(i,j,k,bi,bj) = 0. _d 0
50                     conv1(i,j,k,bi,bj) = 0. _d 0
51                     gmkx1(i,j,k,bi,bj) = 0. _d 0
52                     gmky1(i,j,k,bi,bj) = 0. _d 0
53                     gmkz1(i,j,k,bi,bj) = 0. _d 0
54                ENDDO                ENDDO
55              ENDDO              ENDDO
56            ENDDO            ENDDO
57              DO j=1-Oly,sNy+OLy
58                DO i=1-Olx,sNx+Olx
59                     hflx0(i,j,bi,bj) = 0. _d 0
60                     sflx0(i,j,bi,bj) = 0. _d 0
61                     hflx1(i,j,bi,bj) = 0. _d 0
62                     sflx1(i,j,bi,bj) = 0. _d 0
63                ENDDO
64              ENDDO
65          ENDDO          ENDDO
66        ENDDO        ENDDO
67    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22