/[MITgcm]/MITgcm/pkg/seaice/seaice_ctrl_map_ini.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_ctrl_map_ini.F

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

revision 1.4 by jmc, Tue Apr 28 18:20:02 2009 UTC revision 1.5 by mlosch, Wed Jun 24 08:25:22 2009 UTC
# Line 98  c--   siarea. Line 98  c--   siarea.
98          do bi = itlo,ithi          do bi = itlo,ithi
99              do j = jmin,jmax              do j = jmin,jmax
100                do i = imin,imax                do i = imin,imax
101                  area(i,j,1,bi,bj) = area(i,j,1,bi,bj) +                  area(i,j,bi,bj) = area(i,j,bi,bj) +
102       &                                tmpfld2d(i,j,bi,bj)       &                            tmpfld2d(i,j,bi,bj)
103                enddo                enddo
104              enddo              enddo
105          enddo          enddo
# Line 118  c--   siheff. Line 118  c--   siheff.
118          do bi = itlo,ithi          do bi = itlo,ithi
119              do j = jmin,jmax              do j = jmin,jmax
120                do i = imin,imax                do i = imin,imax
121                  heff(i,j,1,bi,bj) = heff(i,j,1,bi,bj) +                  heff(i,j,bi,bj) = heff(i,j,bi,bj) +
122       &                                tmpfld2d(i,j,bi,bj)       &                            tmpfld2d(i,j,bi,bj)
123                enddo                enddo
124              enddo              enddo
125          enddo          enddo
# Line 138  c--   sihsnow. Line 138  c--   sihsnow.
138          do bi = itlo,ithi          do bi = itlo,ithi
139              do j = jmin,jmax              do j = jmin,jmax
140                do i = imin,imax                do i = imin,imax
141                  hsnow(i,j,1,bi,bj) = hsnow(i,j,1,bi,bj) +                  hsnow(i,j,bi,bj) = hsnow(i,j,bi,bj) +
142       &                                tmpfld2d(i,j,bi,bj)       &                             tmpfld2d(i,j,bi,bj)
143                enddo                enddo
144              enddo              enddo
145          enddo          enddo
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22