/[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.12 by gforget, Mon Aug 9 16:05:22 2010 UTC revision 1.13 by heimbach, Thu Sep 16 20:10:22 2010 UTC
# Line 538  C-      2D arrays Line 538  C-      2D arrays
538            StoreSEAICE(I,J,bi,bj,4) = TICE(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,4) = TICE(I,J,bi,bj)
539            StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj)
540            StoreSEAICE(I,J,bi,bj,6) = 0.0            StoreSEAICE(I,J,bi,bj,6) = 0.0
541    #  ifdef SEAICE_CGRID
542              StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj)
543              StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj)
544    #  else
545              StoreSEAICE(I,J,bi,bj,14) = 0.0
546              StoreSEAICE(I,J,bi,bj,15) = 0.0
547    # endif
548  # ifdef SEAICE_ALLOW_DYNAMICS  # ifdef SEAICE_ALLOW_DYNAMICS
549            StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj)
550            StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj)
# Line 547  C-      2D arrays Line 554  C-      2D arrays
554            StoreSEAICE(I,J,bi,bj,11) = dwatn(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,11) = dwatn(I,J,bi,bj)
555            StoreSEAICE(I,J,bi,bj,12) = seaicemasku(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,12) = seaicemasku(I,J,bi,bj)
556            StoreSEAICE(I,J,bi,bj,13) = seaicemaskv(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,13) = seaicemaskv(I,J,bi,bj)
           StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj)  
           StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj)  
557  #  else  #  else
558            StoreSEAICE(I,J,bi,bj,11) = 0.0                  StoreSEAICE(I,J,bi,bj,11) = 0.0      
559            StoreSEAICE(I,J,bi,bj,12) = 0.0                      StoreSEAICE(I,J,bi,bj,12) = 0.0          
           StoreSEAICE(I,J,bi,bj,13) = 0.0  
           StoreSEAICE(I,J,bi,bj,14) = 0.0            
560            StoreSEAICE(I,J,bi,bj,15) = 0.0            StoreSEAICE(I,J,bi,bj,15) = 0.0
561  #  endif /* SEAICE_CGRID */  #  endif /* SEAICE_CGRID */
562  #  ifdef SEAICE_ALLOW_EVP  #  ifdef SEAICE_ALLOW_EVP
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22