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

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

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

revision 1.9 by jmc, Thu Aug 30 15:02:51 2007 UTC revision 1.10 by heimbach, Thu Oct 21 02:10:34 2010 UTC
# Line 167  C--   Initialisation (+ build oceanic ma Line 167  C--   Initialisation (+ build oceanic ma
167        ENDDO        ENDDO
168    
169  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
170  CADJ STORE iceHeight(i,j,bi,bj)  CADJ STORE iceHeight(:,:,bi,bj)
171  CADJ &     = comlev1_bibj, key=iicekey, byte=isbyte  CADJ &     = comlev1_bibj, key=iicekey, byte=isbyte
172  CADJ STORE snowHeight(i,j,bi,bj)  CADJ STORE snowHeight(:,:,bi,bj)
173  CADJ &     = comlev1_bibj, key=iicekey, byte=isbyte  CADJ &     = comlev1_bibj, key=iicekey, byte=isbyte
174  #endif  #endif
175        IF ( thSIce_diffK .GT. 0. ) THEN        IF ( thSIce_diffK .GT. 0. ) THEN
# Line 202  C--   Fractional area Line 202  C--   Fractional area
202           ENDDO           ENDDO
203          ENDDO          ENDDO
204  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
205  CADJ STORE icevol(i,j) = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE icevol(:,:) = comlev1_bibj, key=iicekey, byte=isbyte
206  CADJ STORE utrice(i,j) = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE utrice(:,:) = comlev1_bibj, key=iicekey, byte=isbyte
207  CADJ STORE vtrice(i,j) = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE vtrice(:,:) = comlev1_bibj, key=iicekey, byte=isbyte
208  #endif  #endif
209          CALL THSICE_ADVECTION(          CALL THSICE_ADVECTION(
210       I       GAD_SI_FRAC,  thSIceAdvScheme, .TRUE.,       I       GAD_SI_FRAC,  thSIceAdvScheme, .TRUE.,
# Line 227  C--   Snow thickness Line 227  C--   Snow thickness
227       I       bi, bj, myTime, myIter, myThid )       I       bi, bj, myTime, myIter, myThid )
228    
229  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
230  CADJ STORE iceHeight(i,j,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE iceHeight(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
231  CADJ STORE iceMask(i,j,bi,bj)   = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE iceMask(:,:,bi,bj)   = comlev1_bibj, key=iicekey, byte=isbyte
232  #endif  #endif
233  C--   sea-ice Thickness  C--   sea-ice Thickness
234          DO j=1-Oly,sNy+Oly          DO j=1-Oly,sNy+Oly
# Line 245  C--   sea-ice Thickness Line 245  C--   sea-ice Thickness
245       I       bi, bj, myTime, myIter, myThid )       I       bi, bj, myTime, myIter, myThid )
246    
247  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
248  CADJ STORE qice2(i,j,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE qice2(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
249  CADJ STORE utrice(i,j)      = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE utrice(:,:)      = comlev1_bibj, key=iicekey, byte=isbyte
250  CADJ STORE vtrice(i,j)      = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE vtrice(:,:)      = comlev1_bibj, key=iicekey, byte=isbyte
251  #endif  #endif
252    
253  #ifdef ALLOW_DBUG_THSICE  #ifdef ALLOW_DBUG_THSICE
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22