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

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

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

revision 1.7 by mlosch, Wed Jun 24 08:26:00 2009 UTC revision 1.8 by mlosch, Wed Jun 24 08:42:22 2009 UTC
# Line 97  c     sea-ice volume Line 97  c     sea-ice volume
97                    do j = 1,sny                    do j = 1,sny
98                       do i =  1,snx                       do i =  1,snx
99                          objf_ice(bi,bj) = objf_ice(bi,bj) +                          objf_ice(bi,bj) = objf_ice(bi,bj) +
100       &                       tempVar * rA(i,j,bi,bj) * HEFF(i,j,1,bi,bj)       &                       tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj)
101                       enddo                       enddo
102                    enddo                    enddo
103                 enddo                 enddo
# Line 110  c     sea-ice area Line 110  c     sea-ice area
110                    do j = 1,sny                    do j = 1,sny
111                       do i =  1,snx                       do i =  1,snx
112                          objf_ice(bi,bj) = objf_ice(bi,bj) +                          objf_ice(bi,bj) = objf_ice(bi,bj) +
113       &                       tempVar * rA(i,j,bi,bj) * AREA(i,j,1,bi,bj)       &                       tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj)
114                       enddo                       enddo
115                    enddo                    enddo
116                 enddo                 enddo
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22