/[MITgcm]/MITgcm/pkg/autodiff/autodiff_store.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/autodiff_store.F

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

revision 1.2 by heimbach, Wed Jun 27 22:14:28 2007 UTC revision 1.3 by heimbach, Wed Sep 26 04:12:40 2007 UTC
# Line 570  C-      2D arrays Line 570  C-      2D arrays
570            StoreSEAICE(I,J,bi,bj,23) = 0.0                      StoreSEAICE(I,J,bi,bj,23) = 0.0          
571            StoreSEAICE(I,J,bi,bj,24) = 0.0            StoreSEAICE(I,J,bi,bj,24) = 0.0
572  # endif /* SEAICE_ALLOW_DYNAMICS */  # endif /* SEAICE_ALLOW_DYNAMICS */
573    # ifdef SEAICE_SALINITY
574              StoreSEAICE(I,J,bi,bj,25) = HSALT(I,J,bi,bj)
575    # else
576              StoreSEAICE(I,J,bi,bj,25) = 0.0
577    # endif
578           enddo           enddo
579          enddo          enddo
580         enddo         enddo
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22