/[MITgcm]/MITgcm/pkg/thsice/thsice_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_advection.F

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

revision 1.11 by jmc, Sun Jun 28 01:05:41 2009 UTC revision 1.12 by heimbach, Tue Oct 26 22:26:59 2010 UTC
# Line 286  C   and b) the overlap of myTile are not Line 286  C   and b) the overlap of myTile are not
286  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
287  CADJ STORE iceFld(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte  CADJ STORE iceFld(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte
288  CADJ STORE iceVol(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte  CADJ STORE iceVol(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte
289    CADJ STORE af(:,:)     = comlev1_thsice_4, key=ikey_4, byte=isbyte
290  #endif  #endif
291          IF ( .NOT.overlapOnly .OR. N_edge .OR. S_edge ) THEN          IF ( .NOT.overlapOnly .OR. N_edge .OR. S_edge ) THEN
292    
# Line 500  C   and b) the overlap of myTile are not Line 501  C   and b) the overlap of myTile are not
501  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
502  CADJ STORE iceFld(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte  CADJ STORE iceFld(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte
503  CADJ STORE iceVol(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte  CADJ STORE iceVol(:,:) = comlev1_thsice_4, key=ikey_4, byte=isbyte
504    CADJ STORE af(:,:)     = comlev1_thsice_4, key=ikey_4, byte=isbyte
505  #endif  #endif
506          IF ( .NOT.overlapOnly .OR. E_edge .OR. W_edge ) THEN          IF ( .NOT.overlapOnly .OR. E_edge .OR. W_edge ) THEN
507    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22