/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

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

revision 1.114 by jmc, Tue Mar 6 15:10:05 2012 UTC revision 1.115 by heimbach, Sat Apr 28 19:04:57 2012 UTC
# Line 477  CADJ &     kind = isbyte Line 477  CADJ &     kind = isbyte
477  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey,  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey,
478  CADJ &     kind = isbyte  CADJ &     kind = isbyte
479  # endif  # endif
480    # ifdef ALLOW_SALT_PLUME
481    CADJ STORE saltplumedepth(:,:,bi,bj) = comlev1_bibj, key=itdkey,
482    CADJ &     kind = isbyte
483    # endif
484  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
485    
486  C--   Always compute density (stored in common block) here; even when it is not  C--   Always compute density (stored in common block) here; even when it is not
Legend:
Removed from v.1.114  
changed lines
  Added in v.1.115
  ViewVC Help
Powered by ViewVC 1.1.22