/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_advdiff.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_advdiff.F

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

revision 1.2 by dimitri, Fri Apr 27 22:25:23 2012 UTC revision 1.3 by torge, Mon Dec 10 22:19:49 2012 UTC
# Line 194  CADJ STORE heffm(:,:,bi,bj)  = comlev1_b Line 194  CADJ STORE heffm(:,:,bi,bj)  = comlev1_b
194  CADJ &     key = itmpkey, kind=isbyte  CADJ &     key = itmpkey, kind=isbyte
195  CADJ STORE hsnow(:,:,bi,bj) = comlev1_bibj,  CADJ STORE hsnow(:,:,bi,bj) = comlev1_bibj,
196  CADJ &     key = itmpkey, kind=isbyte  CADJ &     key = itmpkey, kind=isbyte
197    # ifdef SEAICE_VARIABLE_SALINITY
198    CADJ STORE hsalt(:,:,bi,bj)  = comlev1_bibj,
199    CADJ &     key = itmpkey, kind=isbyte
200    # endif
201  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
202    
203          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22