/[MITgcm]/MITgcm/pkg/dic/dic_fields_load.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_fields_load.F

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

revision 1.27 by gforget, Thu Apr 24 21:35:53 2008 UTC revision 1.28 by dimitri, Thu Dec 3 05:49:46 2009 UTC
# Line 207  C endif for DIC_forcingCycle Line 207  C endif for DIC_forcingCycle
207           IF ( useSEAICE ) THEN           IF ( useSEAICE ) THEN
208             DO j=1-Oly,sNy+Oly             DO j=1-Oly,sNy+Oly
209              DO i=1-Olx,sNx+Olx              DO i=1-Olx,sNx+Olx
210               FIce(i,j,bi,bj) = AREA(i,j,1,bi,bj)               FIce(i,j,bi,bj) = AREA(i,j,bi,bj)
211              ENDDO              ENDDO
212             ENDDO             ENDDO
213           ENDIF           ENDIF
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22