/[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.9 by heimbach, Wed Jun 24 20:09:08 2009 UTC revision 1.11 by mlosch, Mon Oct 12 14:36:36 2009 UTC
# Line 32  c     == global variables == Line 32  c     == global variables ==
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "PARAMS.h"  #include "PARAMS.h"
34  c**************************************  c**************************************
 #ifdef ALLOW_AUTODIFF_TAMC  
   
35  c These includes are needed for  c These includes are needed for
36  c AD-checkpointing.  c AD-checkpointing.
37  c They provide the fields to be stored.  c They provide the fields to be stored.
# Line 68  c           updated. Line 66  c           updated.
66  c     mythid - thread number for this instance of the routine.  c     mythid - thread number for this instance of the routine.
67        integer mythid        integer mythid
68    
69    #ifdef ALLOW_AUTODIFF_TAMC
70  c     == local variables ==  c     == local variables ==
71    
72        integer bi,bj        integer bi,bj
# Line 525  C-      2D arrays Line 524  C-      2D arrays
524            StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj)
525            StoreSEAICE(I,J,bi,bj,4) = TICE(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,4) = TICE(I,J,bi,bj)
526            StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj)
 # ifdef SEAICE_MULTICATEGORY  
           StoreSEAICE(I,J,bi,bj,6) = TICES(I,J,bi,bj)  
 # else  
527            StoreSEAICE(I,J,bi,bj,6) = 0.0            StoreSEAICE(I,J,bi,bj,6) = 0.0
 # endif  
528  # ifdef SEAICE_ALLOW_DYNAMICS  # ifdef SEAICE_ALLOW_DYNAMICS
529            StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj)
530            StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj)            StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22